Gerador de Contador "MultiPager"

VBA & Macros

Post Recente por avgsantos 7 anos atrás

5 Posts

2 Usuários

0 Likes

1,155 Visualizações

RSS

avgsantos

(@avgsantos)

Posts: 28

Eminent Member

Topic starter

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

Grato
avgsantos

Postado : 01/09/2017 9:06 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

avgsantos,

Boa tarde!

Sem anexar seu arquivo aqui e sem dizer exatamente o que você precisa, explicando como é o funcionamento do seu formulário, vai ficar muito difícil alguém ajudar.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/09/2017 11:19 am

avgsantos

(@avgsantos)

Posts: 28

Eminent Member

Topic starter

Boa tarde, Wagner

Segue anexo.

avgsantos

Postado : 02/09/2017 2:00 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

avgsantos,

Boa Noite!

Veja se é assim.

Controle de Saida.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/09/2017 3:06 pm