Estou removendo o item selecionado na listBox1 e transferindo o item removido da listBox1 para a listBox2.
Private Sub CommandButton1_Click()
Dim i As Integer
'Incluir na listBox2 o item selecionado na listbox1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Plan1.Range("A65000").End(xlUp)(2, 1) = ListBox1.List(i)
ListBox2.AddItem ListBox1.List(i)
End If
Next i
'Retirar da listbox1 o item selecionado
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
ListBox1.RemoveItem (i)
End If
Next i
End Sub
Problemas:
A listBox1 e alimentada pela Plan2 com as datas de 01/01/2009 a 31/12/2009
O item data quando selecionado é transferido para a listBox2 e impresso na Plan1.
O problema é que a data selecionada por exemplo 2/1/2009 e impressa de forma trocada dia e mês, 1/2/2009.
Como resolver ?
Outro problema:
Ao reiniciar a userform os valores da listbox1 selecionados e removidos retornam, como escrever uma linha de código para remover da plan2 a data.
Pergunta
PBJ
Olá pessoal,
Estou removendo o item selecionado na listBox1 e transferindo o item removido da listBox1 para a listBox2.
Private Sub CommandButton1_Click() Dim i As Integer 'Incluir na listBox2 o item selecionado na listbox1 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Plan1.Range("A65000").End(xlUp)(2, 1) = ListBox1.List(i) ListBox2.AddItem ListBox1.List(i) End If Next i 'Retirar da listbox1 o item selecionado For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then ListBox1.RemoveItem (i) End If Next i End SubProblemas:
A listBox1 e alimentada pela Plan2 com as datas de 01/01/2009 a 31/12/2009
O item data quando selecionado é transferido para a listBox2 e impresso na Plan1.
O problema é que a data selecionada por exemplo 2/1/2009 e impressa de forma trocada dia e mês, 1/2/2009.
Como resolver ?
Outro problema:
Ao reiniciar a userform os valores da listbox1 selecionados e removidos retornam, como escrever uma linha de código para remover da plan2 a data.
abraços,
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.