Outro Código VBA - Sequencial Automático

[Alexafr]

Prezados, bom dia!

 

Estou começando a aprender a programação do VBA (Excel), e estou tentando criar um código com sequencial na coluna A, desde que a respectiva linha na coluna B esteja preenchida. Até consegui fazer, de uma forma bem iniciante, porém gostaria que a condição fosse para toda a coluna A  validando com a respectiva coluna B.

 

Exemplo de Fórmula: SE(B2 <> "";A2=1; SE(B3 <> "";A3=A2+1; SE(B4 <> "";A4=A3+1 ........etc.

 

Private Sub Numerador()
  If Range("B2").Value <> "" Then
     Range("A2").Value = 1
  Else
     Range("A2").Value = ""
  End If
  If Range("B3").Value <> "" Then
     Range("A3").Value = Range("A2").Value + 1
  Else
     Range("A3").Value = ""
  End If

End Sub

 

É possível fazer uma única condição que abrange toda coluna ?

 

 

Desde já peço desculpas caso seja uma dúvida muito simplória, pois estou iniciando neste aprendizado.

 

Aproveite para agradecer antecipadamente.

 

Att,

Alex

 

[Midori]

@Alexafr Use uma estrutura de repetição/loop, p.ex da linha 2 até 20,

 

Private Sub Numerador()
    Dim L, N  As Integer
    
    L = 2
    
    Do While L <= 20
        If Cells(L, 2) <> "" Then
            N = N + 1
            Cells(L, 1) = N
        Else
            Cells(L, 1) = ""
        End If
        L = L + 1
    Loop
End Sub

 

[Alexafr]

@Midori exatamente isso que eu estava querendo. Muito obrigado por compartilhar seu conhecimento. Valeu mesmo!