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.

Boa Noite! Alyson, Muito obrigado pela gentileza de me ajudar. Estou tendo que aprender "na marra", porém graças ao conhecimento compartilhado, acredito que a missão dada será cumprida. Mais uma vez o meu muito obrigado por sua atenção e tempo dedicado em ajudar. att, Rodrigo Freitas.

Amigos, Sou iniciante neste mundo da programação e peço ajuda aos senhores. Tenho um arquivo externo nomes.ini que contem em seu interior: [Meninos] Alex Bruno Ricardo [Meninas] Maria Joana Milena [Neutros] Alison Dominique Charlie Gostaria de montar uma rotina no VBA que preenchesse 3 combobox(1,2,3) cada uma com uma lista de nomes ao carregar o projeto. Desde já, agradeço a ajuda!!