Página 1 de 1

Identificando Controles dentro do UserForm

Enviado: 20 Abr 2017 às 11:23
por wesleyribeiro123
Galera
Bom dia,

Tenho a seguinte form.
Imagem

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
Dim 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

Ele esta executando tudo e relacionando, porém nao na sequencia correta... Como faço para correlacionar td de forma
que nao se perca esta relação entre ComboBox e TextBox?

Obrigado...