Notifications
Clear all

Copiar e colar valores digitando em uma célula

3 Posts
2 Usuários
0 Reactions
883 Visualizações
(@damassajr)
Posts: 12
Active Member
Topic starter
 

Prezados do fórum,

Gostaria de saber se existe uma macro que possa ser acionada através da digitação em uma célula. Por exemplo, se ao digitar a palavra "SIM" na célula B2 posso acionar uma macro que copie e cole como valor o conteúdo da célula A2 (na própria célula A2). Isso deve ser válido para linhas alternadas (B2 para A2; B20 para A20; etc.).

Desde já agradeço pela força.

 
Postado : 30/08/2016 2:12 pm
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Segue modelo para você avaliar e adaptar, que deve ser colado no módulo da planilha:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:B20")) Is Nothing Then

    If UCase(Target.Value) = "SIM" Then
        Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
    End If
    
End If

End Sub

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 30/08/2016 2:40 pm
(@damassajr)
Posts: 12
Active Member
Topic starter
 

Valeu pela resposta Issamu. Assim, eu tenho uma formula Hoje() na célula A2 e desejo que ela não mude com o passar dos dias caso, na celula B2, esteja digitado a palavra "SIM". Por isso pensei em uma macro que copiasse e colasse como valor as células da coluna A toda vez que aparecer a palavra "SIM" nas células da coluna B, obedecendo a mesma linha. Meu conhecimento é bastante limitado em VBA, mas tenho certeza que isso pode ser automatizado. Desde já agradeço pessoal!

 
Postado : 02/09/2016 6:14 am