Notifications
Clear all

Editar dados da célula através de outra pasta...

4 Posts
1 Usuários
0 Reactions
856 Visualizações
nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
Topic starter
 

Estou aqui novamente kkkkk

Disponibilizo uma planilha básica em anexo para que seja feito uma rotina utilizando VBA.

Na pasta EDIÇÃO se eu alterar a informação CARGO ou SALÁRIO, essa informação deverá ser alterada na pasta DADOS.

Pois quero deixar a pasta DADOS protegida.

Em anexo a planilha.

"Se você for... você vai."

 
Postado : 23/02/2017 10:43 am
nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
Topic starter
 

Beleza, amigos!

Para facilitar ainda mais e ainda ter esperança que terei a ajuda dos feras, fiz todo o FORMULÁRIO restando apenas o código em VBA para que seja possível essa edição dos dados.

Na pasta/aba EDIÇÃO inseri um botão para abrir o formulário de edição. No codigo fiz algumas coisas que ainda me lembro. Mas, a parte de consultar os dados utilizando como critério o NOME DO FUNCIONARIO (no ComboBox) e, caso seja alterado neste mesmo FORMULARIO a informação CARGO ou SALARIO, esta informação alterada deverá ser inserida na tabela DADOS.

Em anexo a nova planilha...

"Se você for... você vai."

 
Postado : 24/02/2017 10:45 am
nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
Topic starter
 

Nobres,

Deixei o formulário pronto dessa vez. Ao selecionar o Funcionário no ComboBox1, o TextBox1 me mostra o referido CARGO e o TextBox2 me mostra o referido SALÁRIO.

Então a bronca continua porque não sei fazer: CASO EU ALTERE O "CARGO", esse novo dado deve ser inserido/editado na PASTA 'DADOS' da planilha.

Em anexo o formulário mais completo.

"Se você for... você vai."

 
Postado : 01/03/2017 9:49 am
nagibsalha
(@nagibsalha)
Posts: 44
Eminent Member
Topic starter
 

Bom galera...

Era muito simples. Consegui resolver sozinho.

Apenas coloquei na ação do botão EDITAR o código abaixo:

Private Sub EDITAR_Click()
    ThisWorkbook.Worksheets("DADOS").Activate
    linha = buscar("DADOS", "A2:A100", ComboBox1.Text)
'    altera = Cells(linha, 2)
    Cells(linha, 2).Value = TextBox1.Text
End Sub

Resolvido por mim mesmo comigo próprio, mas ainda assim agradeço a todos! Valeu.

"Se você for... você vai."

 
Postado : 01/03/2017 1:31 pm