Visualizza messaggio singolo
Vecchio 22-02-2018, 06.43.47   #1
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Ricerca di un Determnato dato e copiare L'intera riga di dati da un altra parte del

Ciao a Tutti mi chiamo Maurizio
E il mio Problema e questo : Sul Foglio1 sto tentando di creare un mio Database e fin qui tutto bene.
Il Problema viene fuori quando attraverso una ListBox inserita in un Userform dovrebbe ricercare il nome ho il cognome che sia di un determinato cliente.
perņ se lascio inserito solo le prime tre voci mi coordina il tutto in modo perfetto ; E mi copia i dati provati nella Riga (J2) in poi.
Al contrario perņ : Se tento di estendere a tutto il resto del Database la mia procedura continua ad impallarsi.

In poche parole Vorrei che tutte le volte che trova un dato desiderato e faccio click su di esso , mi possa andare a copiare tutto il suo report a partire dalla Cella J2 in poi Grazie
La mia Procedura e questa :

Codice:
Option Compare Text

Private Sub CmdCerca_Click()

' ricerca per Cognome o nome

Dim ric As String
ric = TextBox1.Text
Call cerca(ric)
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Label2_Click()

End Sub

Private Sub ListBox1_Click()

' inserisce nelle celle il valore della listbox selezionato

    rig = ListBox1.ListIndex
    Cells(2, 10) = ListBox1.List(rig, 0)
    Cells(2, 11) = ListBox1.List(rig, 1)
    Cells(2, 12) = ListBox1.List(rig, 2)
    Cells(2, 13) = ListBox1.List(rig, 3)
    Cells(2, 13) = ListBox1.List(rig, 4)
    Cells(2, 13) = ListBox1.List(rig, 5)
    Unload UserForm1
End Sub

Function cerca(Optional ric As String) As Integer

uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If OptionButton1.Value = True Then cln = 1 Else cln = 5
a = 0
'ListBox1.Clear

For i = 4 To uRg
    If Cells(i, cln) Like ric Then
        ListBox1.Visible = True
        ListBox1.AddItem Cells(i, 1).Text
        ListBox1.List(a, 1) = Cells(i, 2).Text
        ListBox1.List(a, 2) = Cells(i, 3).Text
        ListBox1.List(a, 3) = Cells(i, 4).Text
        ListBox1.List(a, 4) = Cells(i, 5).Text
        ListBox1.List(a, 5) = Cells(i, 6).Text
        a = a + 1
    End If
Next i
End Function
Files allegati
Tipo file: zip Database_Maury.zip (18,8 Kb, 1 visite)
A.Maurizio non č collegato   Rispondi citando