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.