Capturar nomes de objetos VBA Excel

[FERGSILVA72]

Olá Pessoal,

Por gentileza uma ajuda.

 

Tenho uma Form do VBA Excel cujo nome do objeto se repete como: Tel1, Tel2, Tel3..Tel10. Gostaria de preencher automaticamente os "Tels", porém, não consigo capturar o nome dos objetos e inserir em cada um, a informação das linhas. Atualmente está assim:

usrTelefone.Tel1.Text=activecell.offset(0,0).value
usrTelefone.Tel2.Text=activecell.offset(1,0).value...

 

O ideal seria do tipo:

For I=1 to 10
    usrTelefone.(objeto+I).Text=activecell.offset(I,0).value
Next

 

Alguém poderia me ajudar?

 

Muito Obrigado!

[Midori]

 

Tente dessa forma

 

Dim C As Control

For Each C In Me.Controls
	If TypeName(C) = "TextBox" And Mid(C.Name, 1, 3) = "Tel" Then
    	C.Text = Activecell.offset(I, 0)
        I = I + 1
    End If
Next

 

Os controles serão preenchidos na sequencia da ordem de tabulação.

 

[FERGSILVA72]

15 horas atrás, olliver.soul disse:

 

Tente dessa forma

 

Dim C As Control

For Each C In Me.Controls
	If TypeName(C) = "TextBox" And Mid(C.Name, 1, 3) = "Tel" Then
    	C.Text = Activecell.offset(I, 0)
        I = I + 1
    End If
Next

 

Os controles serão preenchidos na sequencia da ordem de tabulação.

 

@olliver.soulFicou perfeito Olliver. MUITO OBRIGADO pela imensa ajuda!