Página 1 de 1

Mudança de Célula

Enviado: 26 Out 2017 às 21:25
por 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

Re: Mudança de Célula

Enviado: 26 Out 2017 às 23:53
por babdallas
Veja se ajuda.

Mudança de Célula

Enviado: 27 Out 2017 às 10:07
por 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

Re: Mudança de Célula

Enviado: 28 Out 2017 às 07:05
por JayltonLuiz
Bom dia,

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

Re: Mudança de Célula

Enviado: 28 Out 2017 às 10:27
por babdallas
Veja se é isso o que deseja.