Jump to content
Fórum Script Brasil
  • 0

Nomear um variável conforme comobox


Question

Boa Noite Noite Mestres

Estou fazendo um formulário onde eu faço um lançamento direto no listview, quando uso só para uma planilha funciona muito bem, o porém que preciso usas este código para 25 planilhas. tentei usar uma variável SET, mas não tive resultados sempre aparece erro  em tempo de execução 13 - tipos incompatíveis,  já tem uma semana procurando e pesquisando para resolver não conseguir, venho pedir ajuda a quem possa ensinar, desde já fico grato pela qualquer resposta, abaixo o código.

Private Sub CommandButton1_Click()
'Adiciona os itens no ListView
Set guia = ComboBox ' aqui quero mudar o valor da variável conforme o combobox  são 25 planilhas, se eu tirar a combo e digitar o nome da planilha funcionar sem problemas, mas como são muitas eu teria que fazer 25 formulários e eu acho que tem uma solução, só não conseguir resolver, espero que alguém me ajude.
uLinha = guia.Cells(guia.Cells.Rows.Count, "a").End(xlUp).Row
lsLista.ListItems.Clear
For x = 2 To uLinha
Set li = lsLista.ListItems.Add(Text:=guia.Cells(x, "a").Value)
li.ListSubItems.Add Text:=guia.Cells(x, "b").Value
li.ListSubItems.Add Text:=guia.Cells(x, "c").Value
li.ListSubItems.Add Text:=guia.Cells(x, "d").Value
li.ListSubItems.Add Text:=guia.Cells(x, "e").Value
Next
End Sub

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Bom dia!

Tenta da seguinte maneira:

Private Sub CommandButton1_Click()
'Adiciona os itens no ListView
Dim guia as Worksheets 
Set guia = sheets(ComboBox.value)
'Set guia = ComboBox ' aqui quero mudar o valor da variável conforme o combobox  são 25 planilhas, se eu tirar a combo e digitar o nome da planilha funcionar sem problemas, mas como são muitas eu teria que fazer 25 formulários e eu acho que tem uma solução, só não conseguir resolver, espero que alguém me ajude.
uLinha = guia.Cells(guia.Cells.Rows.Count, "a").End(xlUp).Row
lsLista.ListItems.Clear
For x = 2 To uLinha
Set li = lsLista.ListItems.Add(Text:=guia.Cells(x, "a").Value)
li.ListSubItems.Add Text:=guia.Cells(x, "b").Value
li.ListSubItems.Add Text:=guia.Cells(x, "c").Value
li.ListSubItems.Add Text:=guia.Cells(x, "d").Value
li.ListSubItems.Add Text:=guia.Cells(x, "e").Value
Next
End Sub

Obs: escrevi do celular então worksheets pode ser que seja worksheet. Testa o código e vê se deu certo. 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...