LISTBOX1 COM COLUNA PARA LISTBOX2
Olá,
O titulo já é alto descritivo rsrs
Tenho um form com 2 listbox, gostaria de passar por um botão o listbox1 para o listbox2, depois em outro botão levar todo conteudo cadastrado do listbox2 para a planilha?
O detalhe é que ambos listbox tem colunas (2 colunas)!
Eu consigo passar de um para o outro com o AddItem, porem com duas colunas ele esta passando só a primeira coluna... poderia me dar um força nessa caso.
Grato.
O titulo já é alto descritivo rsrs
Tenho um form com 2 listbox, gostaria de passar por um botão o listbox1 para o listbox2, depois em outro botão levar todo conteudo cadastrado do listbox2 para a planilha?
O detalhe é que ambos listbox tem colunas (2 colunas)!
Eu consigo passar de um para o outro com o AddItem, porem com duas colunas ele esta passando só a primeira coluna... poderia me dar um força nessa caso.
Grato.
Olá
Mostra o código que vc ta usando pra fazer hj por favor?
Segue o codigo do botão gravar:
Private Sub cmd_gravaEsp_Click()
[ô]Ativar a primeira planilha
ThisWorkbook.Worksheets([Ô]BD_ESPDS[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A1[Ô]).Select
[ô]Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os dados digitados nas caixas de texto para a planilha
[ô]Informações Gerais
If nome_especialidade.Value = [Ô][Ô] Then
ActiveCell.Value = [Ô]VAZIO[Ô]
Else
ActiveCell.Value = nome_especialidade.Value
End If
ActiveCell.Offset(0, 1).Value = ComboBox_areas.Value
ActiveCell.Offset(0, 2).Value = ListBox1.Value
[ô]...
End Sub
Private Sub cmd_gravaEsp_Click()
[ô]Ativar a primeira planilha
ThisWorkbook.Worksheets([Ô]BD_ESPDS[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A1[Ô]).Select
[ô]Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os dados digitados nas caixas de texto para a planilha
[ô]Informações Gerais
If nome_especialidade.Value = [Ô][Ô] Then
ActiveCell.Value = [Ô]VAZIO[Ô]
Else
ActiveCell.Value = nome_especialidade.Value
End If
ActiveCell.Offset(0, 1).Value = ComboBox_areas.Value
ActiveCell.Offset(0, 2).Value = ListBox1.Value
[ô]...
End Sub
Galera,
infelizmente desisti de fazer com colunas e fiz apenas com uma!
Agora o problema é passar da listbox para a planilha?? alguém??
Já dei uma boa lida, mas nda deu certo!
abs tchê!
infelizmente desisti de fazer com colunas e fiz apenas com uma!
Agora o problema é passar da listbox para a planilha?? alguém??
Já dei uma boa lida, mas nda deu certo!
abs tchê!
Faça seu login para responder