Listbox com nome concatenado não reconhece como objeto!!! o que fazer

[rodrigo21sf]

Bom dia!

Amigos estou com um projeto que eu tenho que concatenar o nome de uma Listbox  e depois deste nome concluído devo trocar a cor de fundo desta listbox, porém quando concateno o nome ele não aceita a definicão de objeto para trabalhar.    Se eu definir como string consigo visualizar o nome concatenado, porém não reconhece como sendo um objeto tipo listbox.

se alguém tiver uma solução fico muito grato.

Private Sub BTPlanta_Click()

Dim Lselecionada As Integer
Dim Lab As String
Dim Pos As String
Dim Loc As String
Dim nomelista As object
Dim aba As Integer

If ListBoxConsulta.ListIndex <> -1 Then

    Lselecionada = UserForm1.ListBoxConsulta.ListIndex
    
    Lab = UserForm1.ListBoxConsulta.list(Lselecionada, 6)
    Loc = UserForm1.ListBoxConsulta.list(Lselecionada, 7)
    Pos = UserForm1.ListBoxConsulta.list(Lselecionada, 9)
    
    If Lab = "F1" Then
        Lab = "F1"
        aba = 0
    ElseIf Lab = "F2" Then
        Lab = "F2"
        aba = 1
    ElseIf Lab = "F3" Then
        Lab = "F3"
        aba = 2
    ElseIf Lab = "F4" Then
        Lab = "F4"
        aba = 3

    End if

If Loc = "Bancada 1" Then
        Loc = "B1"
    ElseIf Loc = "Bancada 2" Then
        Loc = "B2"
    ElseIf Loc = "Bancada 3" Then
        Loc = "B3"
    ElseIf Loc = "Bancada 4" Then
        Loc = "B4"

end if

If Pos = "Posição 1" Then
        Pos = "P1"
    ElseIf Pos = "Posição 2" Then
        Pos = "P2"
    ElseIf Pos = "Posição 3" Then
        Pos = "P3"
    ElseIf Pos = "Posição 4" Then
        Pos = "P4"

end if

' aqui eu concateno o nome da listbox

nomelista = "List" & Lab & Loc & Pos   ' se a variável nomelista for uma string concatena...mas se for do tipo object não funciona e precisa ser um objeto para ser uma listbox

With nomelista   ' aqui posso usar me.nomelista que também não funciona   
             .BackColor = VBA.RGB(121, 12, 42) 
    End With

 

Muito obrigado aos amigos!!

 

att,

 

Rodrigo Freitas.

 

 

 

 

 

 

 

[Alyson Ronnan Martins]

Bom dia @rodrigo21sf

Você teria como mandar uma planilha com o userform (mesmo com dados fictícios).