Notifications
Clear all

Preenchimento automatico com macro

4 Posts
2 Usuários
0 Reactions
1,200 Visualizações
(@rilton)
Posts: 232
Estimable Member
Topic starter
 

Boa noite galera!!

Estou precisando de uma macro que preencha automaticamente uma célula com um determinado valor. Vamos a seguinte situação:

Na célula "A1" eu tenho o valor 10;
Na célula "B1" não tem nenhum valor; e
Na célula "C1" também não tem nenhum valor.

Preciso de uma macro quê:

Ao digitar qualquer valor na célula "B1", automaticamente a célula "C1" é preenchida com o mesmo valor contido na célula "A1".

Bom, eu poderia resolver isso usando apenas a função SE, porém, essa célula ela posteriormente poderá ser preenchida com qualquer outro valor, dessa forma apagaria a função SE, por isso preciso de uma macro.

Se precisar de mais detalhes é só falar.

Grato

Rilton

 
Postado : 04/06/2014 7:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Já tentou usar a pesquisa e gravar uma macro?

Att

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

 
Postado : 05/06/2014 5:24 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Rilton,
se é que entendi a demanda/necessidade, você já possui uma macro (tópico: viewtopic.php?f=29&t=5563)
que faz o que deseja, ou seja acrescenta um "valor" (no caso data) a uma outra célula se a coluna a for modificada. Ou não é isso?

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

 
Postado : 05/06/2014 5:43 am
(@rilton)
Posts: 232
Estimable Member
Topic starter
 

é isso aeh Reinaldo!!

no meu caso, fiz a seguinte adaptação:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 3).Value = Cells(Target.Row, 1).Value
End If
If Target.Column = 1 Then
Cells(Target.Row, 3).Value = Cells(Target.Row, 1).Value
End If

End Sub

Valeu!!

 
Postado : 05/06/2014 7:24 am