Identificando Controles dentro do UserForm
Enviado: 20 Abr 2017 às 11:23
Galera
Bom dia,
Tenho a seguinte form.

Observem que tenho ComboBox e TextBox que precisam ser relacionados no Excel na mesma Linha.
Utilizo o código abaixo para percorrer todos os controles do Form e identificar primeiro os TextBox e relacionar em minha planilha para depois percorrer todos os campos afim de identificar os ComBox e relaciona-las na coluna ao lado dos textboxs.
Vejam o código:
que nao se perca esta relação entre ComboBox e TextBox?
Obrigado...
Bom dia,
Tenho a seguinte form.

Observem que tenho ComboBox e TextBox que precisam ser relacionados no Excel na mesma Linha.
Utilizo o código abaixo para percorrer todos os controles do Form e identificar primeiro os TextBox e relacionar em minha planilha para depois percorrer todos os campos afim de identificar os ComBox e relaciona-las na coluna ao lado dos textboxs.
Vejam o código:
Código: Selecionar todos
Ele esta executando tudo e relacionando, porém nao na sequencia correta... Como faço para correlacionar td de formaDim Controle As Control
'~~>> Preenchendo a Coluna dos Números Portados
For Each Controle In TermoPN_Tim.Controls
If TypeName(Controle) = "TextBox" Then
For i = 1 To 200
If Left(Controle.name, 4) = "LH1_" Then
If Controle.name = "LH1_" & i Then
For w = 15 To 60
If Ex.Sheets("Lista de acessos").Cells(w, 3) = "" Then
Ex.Sheets("Lista de acessos").Cells(w, 3) = Controle
Exit For
End If
Next w
Exit For
End If
Else: Exit For
End If
Next i
End If
Next Controle
'~~>> Preenchendo a Coluna das Operadoras
For Each Controle In TermoPN_Tim.Controls
If TypeName(Controle) = "ComboBox" Then
For i = 1 To 200
If Left(Controle.name, 6) = "Oper1_" Then
If Controle.name = "Oper1_" & i Then
For w = 15 To 60
If Ex.Sheets("Lista de acessos").Cells(w, 4) = "" Then
Ex.Sheets("Lista de acessos").Cells(w, 4) = Controle
Exit For
End If
Next w
Exit For
End If
Else: Exit For
End If
Next i
End If
Next Controle
que nao se perca esta relação entre ComboBox e TextBox?
Obrigado...