Este fórum está sendo desativado

[JayltonLuiz]

Boa noite existe alguma forma no vba, Depois que uma célula da coluna A ser preenchida pular para B e após a mesma ser preenchida voltar para baixo da ultima célula alterada da coluna A e seguir assim essa rotina?


Obrigado

[babdallas]

Veja se ajuda.

[blackout7]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, conta, contb As Integer
Range("c1") = Application.WorksheetFunction.CountA(Range("a2:a1000"))
Range("d1") = Application.WorksheetFunction.CountA(Range("b2:b1000"))
i = Range("c1")
cont = Range("d1") - Range("c1")
If cont = 0 Then
Cells(i + 2, 1).Select
Else
Cells(i + 1, 2).Select
End If

End Sub

[JayltonLuiz]

Bom dia,

Tentei adaptar nas colunas D e G e não consegui.

[babdallas]

Veja se é isso o que deseja.