Este fórum está sendo desativado

[avgsantos]

Boa noite, Equipe do Forum

Estou utilizando o código abaixo para gerar contador automático dentro do userform "MultiPage1" porém ao cadastrar uma informação o contador está gerando numero repetido, não esta gerando na sequencia.

Private Sub MultiPage1_Layout(ByVal Index As Long)

'GERADOR DE CONTADOR

Dim linha As Long
Dim contador As Long
linha = 3
contador = 0
While Cells(linha, 1) <> ""
If Cells(linha, 1) > contador Then
contador = Cells(linha, 1)
End If
linha = linha + 1
Wend
contador = contador + 1
txt_id = contador

End Sub

[avgsantos]

Boa tarde.

Solução resolvida por Wagner.

Dim UltimaLinha As Long

UltimaLinha = Sheets("box1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinha < 3 Then
UltimaLinha = 3
txt_id.Caption = "1"
Else
txt_id.Caption = CInt(Range("A" & UltimaLinha).Value) + 1
End If

Grato
avgsantos