Range +1

[celliusctba]

Range("A3").Select

'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True



Preciso de uma grande ajuda, no cadastro de clientes, devido a primeira linha Range ("A3") do código acima...
cada registro ele passa por todas as linhas até encontrar a primeira célula não preenchida, mas imaginem se tiver 20000 registros; ela faz um loop até encontrar um campo vazio, gostaria de saber como fazer para que cada novo campo o vba entenda que o campo Range("A3"). Select altere pra Range("A4). Select...Range("A5). Select e assim por diante automaticamente? Me facilitaria muito.


Desde já muito obrigado!

[Mikel Silveira Fraga]

Seja bem vindo Cellius.

Uma solução para o seu problema é utilizar o Contar Valores, mas usando VBA. O código ficaria assim:

Código: Selecionar todos

Sub Cel_Vazia()
 
 Dim i As Integer
 
 i = Application.WorkSheetFunction.CountA(Columns(1)) + 1
 
 Range("A" & i).Select

End Sub

Caso sua lista de cadastro não obtenha falha, esse código pode vir a te ajudar.

Qualquer coisa é só procurar.

Abraços e bom feriado.