listar nomes dos campos do formulário

2024 - VBA & Macros

Post Recente por joebsb 8 anos atrás

2 Posts

2 Usuários

0 Reactions

1,217 Visualizações

RSS

valdecirrk

(@valdecirrk)

Posts: 230

Estimable Member

Topic starter

bom dia

gostaria de saber se consigo listar todos os campos e labels de um formulário na planilha.
Exemplo:
Meu formulário tem 20 campos, mas quero copiar o nome dos campos e colocar em uma lista na planilha pra saber todos.
A1 - txtnome

Postado : 12/09/2017 8:50 am

joebsb

(@joebsb)

Posts: 44

Eminent Member

Substitua no código abaixo a palavra UserForm1 pelo nome do seu formulário(ex: FormDoValdecirk)

Depois crie uma nova macro e cole o código.

'Macro criada por Joe em 14/09/2017
'Contato para freelancer: (61) 99136-3695
On Error GoTo finish
    For i = 0 To UserForm1.Controls.Count - 1
        ActiveSheet.Cells(i + 1, 1) = UserForm1.Controls(i).Name
    Next
Exit Sub
finish:
MsgBox Err.Number & " " & Err.Description

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

Postado : 12/09/2017 11:00 am