Excel Macro if else no Excel

[Matheus Sena]

Boa tarde pessoal, poderiam me ajudar com uma macro do Excel? tentei criar uma com o que preciso porém como estou aprendendo ainda, não consegui fazer funcionar.

Eu precisava de uma macro do seguinte:

If C2 = D2, então G2 recebe C2
Else C2 = 0, então G2 recebe D2
Else D2 = 0, então G2 recebe C2
Else C2 <> D2, então G2 recebe C2 e a célula abaixo dela (G3) receberia o D2

 

Não sei se expliquei muito bem o que eu preciso. Eu tive bastante problemas nessa última linha para efetuar a macro, não consegui fazer com que o D2 também seja incrementado uma célula abaixo do C2 (no caso, C2 para G2 e D2 para G3).

Se alguém souber bem de macros, poderia me ajudar?

[Muca Costa]

Veja se o anexo ajuda...

PreencheColuna.rar

[Matheus Sena]

Boa tarde Muca, como você está?

Obrigado por tentar me ajudar. Eu executei um teste, porém a parte que eu estava com problemas (Else C2 <> D2, então G2 recebe C2 e a célula abaixo dela (G3) receberia o D2) não resolveu.

De resto, tudo funcionou perfeito.
 

Eu estava pensando, teria como fazer da seguinte maneira:

Else C2 <> D2, então G2 recebe C2 e H2 recebe D2

Creio que isso já ajudaria!

[Muca Costa]

Tente assim:

 

For i = 2 To UltimaLinha

If Planilha1.Cells(i, 3) = Planilha1.Cells(i, 4) And Planilha1.Cells(i, 7) = "" Then
   Planilha1.Cells(i, 7) = Planilha1.Cells(i, 3)
ElseIf Planilha1.Cells(i, 3) = 0 And Planilha1.Cells(i, 7) = "" Then
   Planilha1.Cells(i, 7) = Planilha1.Cells(i, 4)
ElseIf Planilha1.Cells(i, 4) = 0 And Planilha1.Cells(i, 7) = "" Then
   Planilha1.Cells(i, 7) = Planilha1.Cells(i, 3)
ElseIf Planilha1.Cells(i, 3) <> Planilha1.Cells(i, 4) And Planilha1.Cells(i, 3) <> 0 And Planilha1.Cells(i, 4) <> 0 And Planilha1.Cells(i, 7) = "" Then
   Planilha1.Cells(i, 7) = Planilha1.Cells(i, 3)
   Planilha1.Cells(i + 1, 7) = Planilha1.Cells(i, 4)
Lin = Lin + 1
End If
Next

 

[Matheus Sena]

@Muca Costa Obrigado por me enviar a macro, porém não funcionou também.

Mas você já me deu uma boa ideia! Obrigado!