Notifications
Clear all

Macros e VBA

5 Posts
3 Usuários
0 Reactions
898 Visualizações
(@l3on4rdo)
Posts: 1
New Member
Topic starter
 

Boa noite a todos (as)

desejo saber como faço uma macro para que células sejam copiadas de uma para a outra (em planilhas diferentes) através de uma comdição, explicarei o caso:

tenho duas planilhas, quero que o conteúdo da célula B5, da primeira planilha, seja copiada para a célula E5, da segunda planilha, com uma condição, somente após digitar "ok" na primeira planilha na célula D3.

 
Postado : 19/09/2013 5:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Se usar a Pesquisa e a Biblioteca do fórum, encontrará o que precisa!!!

Do contrário poste seu arquivo modelo compactado!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/09/2013 6:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Leonardo

Seja bem vindo ao fórum!

Estou movendo teu tópico para o fórum VBA & Macros.

Att.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/09/2013 6:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite a todos (as)

tenho duas planilhas, quero que o conteúdo da célula B5, da primeira planilha, seja copiada para a célula E5, da segunda planilha, com uma condição, somente após digitar "ok" na primeira planilha na célula D3.

Leandro coloque a rotina no Modulo de Evento da Aba que irá ser digitado em D3 :
Ajuste o na rotina o Nome da Aba (Plan2) que irá receber o valor em E5.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    
    If Target.Address = "$D$3" Then
            
            If Target = "OK" Then
                Range("B5").Copy Destination:=Sheets("Plan2").Range("E5")
            End If
            
    End If
   
    Application.EnableEvents = True
   
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/09/2013 6:27 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Leonardo,

Bom Dia!

Aquio vai uma outra sugestão, caso não queira utilizar macros:

Digamos que a planilha da qual você quer copiar se chama Plan1 e a que vai receber o valor da célula B5 da Plan1, se chama Plan2. Assim, basta que você coloque, na célula E5 da Plan2 a fórmula:

=SE(Plan1!D3="OK";Plan1!B5;"")

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/09/2013 6:58 am