IMPRESSAO DE REGISTROS DO LISTBOX
Qria a ajuda de vcs para um programinha que estou tentando montar
Neste programa tenho 2 Userform 1 d cadastro outro d pesquisa
Gostaria d imprimir o resultado da pesquisa
Mas ñ tdos só os q eu escolher tem como?? o resutado sai em uma listbox!!
Abraços Deus os abençoe!!
Neste programa tenho 2 Userform 1 d cadastro outro d pesquisa
Gostaria d imprimir o resultado da pesquisa
Mas ñ tdos só os q eu escolher tem como?? o resutado sai em uma listbox!!
Abraços Deus os abençoe!!
Tem como fazer isso sim.
Mas qual é a sua dúvida! Como selecionar os itens? Como adicionar na listbox? ...
Poste o que você já tem pronto para podermos ajudá-lo.
Ahhh, e não coloque o tÃtulo dessa forma, pois fica bem pior de todos te ajudarem, não sabemos do que se trata.
Conforme está determinado nas regras de conduta.
TÃtulos incorretos
Por favor não utilize tÃtulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque tÃtulos como [Ô]Help[Ô], [Ô]Socorro[Ô], [Ô]Pelo Amor de DEUS[Ô] pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.
Mas qual é a sua dúvida! Como selecionar os itens? Como adicionar na listbox? ...
Poste o que você já tem pronto para podermos ajudá-lo.
Ahhh, e não coloque o tÃtulo dessa forma, pois fica bem pior de todos te ajudarem, não sabemos do que se trata.
Conforme está determinado nas regras de conduta.
TÃtulos incorretos
Por favor não utilize tÃtulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque tÃtulos como [Ô]Help[Ô], [Ô]Socorro[Ô], [Ô]Pelo Amor de DEUS[Ô] pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.
Você pode imprimir um form usando o comando
Me.PrintForm
Cara, poste o código como você passa os Ãtens de uma lista para outra, que então vejo onde está o problema.
é que não tenho certeza se entendi 100% o que você quer.
Que banco você está usando?
é que não tenho certeza se entendi 100% o que você quer.
Que banco você está usando?
Citação::Ahhh, e não coloque o tÃtulo dessa forma, pois fica bem pior de todos te ajudarem, não sabemos do que se trata.
Conforme está determinado nas regras de conduta.
TÃtulos incorretos
Por favor não utilize tÃtulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque tÃtulos como [Ô]Help[Ô], [Ô]Socorro[Ô], [Ô]Pelo Amor de DEUS[Ô] pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.
[txt-size=1]REFORÇANDO....[/txt-size]
O tÃtulo foi alterado de [Ô][txt-color=#e80000]AJUDA MUITO IMPORTANTE[/txt-color][Ô] para [Ô][txt-color=#0000f0]IMPRESSAO DE REGISTROS DO LISTBOX[/txt-color][Ô].
Não se esqueça, ao abrir um tópico, especifique no TÃTULO a sÃntese da sua dúvida para que outras pessoas que CONHEÇAM do assunto possam ajudá-lo.
Não se esqueça, ao abrir um tópico, especifique no TÃTULO a sÃntese da sua dúvida para que outras pessoas que CONHEÇAM do assunto possam ajudá-lo.
colega este simples codigo faz o que vc deseja
With lstLista
For f = 0 To .ListCount - 1
If .Selected(f) = True Then
lstLista2.AddItem .List(f)
End If
Next f
End With
JONATHANSTECKER ainda não consegui fazer o procedimento...
MARCELO-TREZE o codigo que você me passou está fazendo igual ao que eu estou tentando...
Ele só leva a primeira coluna!!
O q eu tenho q fazer para levar todas as colunas??
Abraços e Deus os abençoe!!
MARCELO-TREZE o codigo que você me passou está fazendo igual ao que eu estou tentando...
Ele só leva a primeira coluna!!
O q eu tenho q fazer para levar todas as colunas??
Abraços e Deus os abençoe!!
Boa noite alguém pode me ajudar??
O q eu tenho q fazer para que esse codigo transfira de uma listbox para outra listbox mais de uma coluna??
Não estou conseguindo já tentei de tdo e sou meio lego no vba ainda!!
Se vcs observarem esse codigo só está levando a primeira coluna e a minha 1º listbox tem oito colunas...
Private Sub CommandButton4_Click()
Dim j As Integer
For j = 0 To lstLista.ListCount - 1
If lstLista.Selected(j) Then
If Not temItem(lstLista.List(j), Me.LstLista2) Then
adicionaItem lstLista.List(j), Me.LstLista2
End If
End If
Next j
End Sub
Private Function temItem(ByVal textoItem As String, ByRef listControl As Object) As Boolean
If Not TypeName(listControl) = [Ô]ListBox[Ô] Then Exit Function
Dim intContador As Integer
For intContador = 0 To listControl.ListCount - 1
If listControl.List(intContador) = textoItem Then
temItem = True
Exit Function
End If
Next intContador
temItem = False
End Function
Private Sub adicionaItem(ByVal textoItem As String, ByRef listControl As Object)
If Not TypeName(listControl) = [Ô]ListBox[Ô] Then Exit Sub
listControl.AddItem textoItem
End Sub
Amigos muito obrigado pela atenção!!
Abraços!!
O q eu tenho q fazer para que esse codigo transfira de uma listbox para outra listbox mais de uma coluna??
Não estou conseguindo já tentei de tdo e sou meio lego no vba ainda!!
Se vcs observarem esse codigo só está levando a primeira coluna e a minha 1º listbox tem oito colunas...
Private Sub CommandButton4_Click()
Dim j As Integer
For j = 0 To lstLista.ListCount - 1
If lstLista.Selected(j) Then
If Not temItem(lstLista.List(j), Me.LstLista2) Then
adicionaItem lstLista.List(j), Me.LstLista2
End If
End If
Next j
End Sub
Private Function temItem(ByVal textoItem As String, ByRef listControl As Object) As Boolean
If Not TypeName(listControl) = [Ô]ListBox[Ô] Then Exit Function
Dim intContador As Integer
For intContador = 0 To listControl.ListCount - 1
If listControl.List(intContador) = textoItem Then
temItem = True
Exit Function
End If
Next intContador
temItem = False
End Function
Private Sub adicionaItem(ByVal textoItem As String, ByRef listControl As Object)
If Not TypeName(listControl) = [Ô]ListBox[Ô] Then Exit Sub
listControl.AddItem textoItem
End Sub
Amigos muito obrigado pela atenção!!
Abraços!!
Não sou muito fão do listbox, prefiro o listview
Veja o anexo
Veja o anexo
Boa tarde pessoal tdo bem??
Qria mais um pouco da atenção de vocês!!
Eu ainda não consegui fazer o codigo!!
E MSMJUDAS os arquivos que vc me mandou está conrrupido...
Teria como vc me mandar de novo??
Abraços!!
Qria mais um pouco da atenção de vocês!!
Eu ainda não consegui fazer o codigo!!
E MSMJUDAS os arquivos que vc me mandou está conrrupido...
Teria como vc me mandar de novo??
Abraços!!
Tópico encerrado , respostas não são mais permitidas