userform di ricerca con più dati uguali EXCEL

[Anthony47]

Nel mio schema avendo il numero di riga a cui appartiene la scelta fatta (cosa che calcoliamo nella Sub CommandButton2_Click) dovrai scrivere una sequenza di istruzioni tipo

Codice: Seleziona tutto

Me.TextBox1.Value=Cells(xxx,3).Value
Me.TextBox2.Value=Cells(xxx,4).Value
'etc etc

Queste ti mettono il contenuto di colonna C in TextBox1, col D in TextBox2; quindi continuare non sarebbe complicato.

Ciao

[Zer0Kelvin]

Ciao.
Per visualizzare più colonne nella lista dei duplicati puoi modificare così

Codice: Seleziona tutto

Public Function Seleziona(rngColl As Collection, Optional nColonne As Long = 1) As Range
Dim i As Long
    Set Seleziona = Nothing
    With Me.ListBox1
      .Clear
      .ColumnCount = 3 '<== Modifica questo valore per il n° di colonne che vuoi visualizzare
      .ColumnWidths = "5 cm; 2 cm; 2 cm" 'queste sono le larghezze delle colonne visualizzate; da modificare secondo esigenza
      For i = 1 To rngColl.Count
          .AddItem rngColl.Item(i) 'rngColl.Item(i) è una cella
          .List(.ListCount - 1, 1) = rngColl.Item(i).Offset(0, -1) 'punta alla cella a destra (o dove preferisci)
          .List(.ListCount - 1, 2) = rngColl.Item(i).Offset(0, -2) 'punta alla seconda cella a destra (o dove preferisci)
      Next i
    End With
    Me.Show
    If Result <> -1 Then Set Seleziona = rngColl.Item(Result)
End Function

tieni presente che i valori in rngColl sono le celle che contengono il valore cercato, quindi puoi utilizzarli per puntare ad altre celle utilizzando la posizione relativa (Offset(riga, colonna) appunto).
Spero sia abbastanza chiaro.

[donbadi]

bene giornata produttiva fin ora stò seguendo le vostre dritte in parallelo..poi quella che mi piace di più vincerà!! eheheh
praticamente in quell oche facevo sbagliavo l'offset e mi continuava a riportare in maniera sbsallata i valori partendo dalle riga 1 in poi e non associandola al valore cercato!! bene.......c'è un però...
@zer0Kel
funziona e vedo quello che volgio vedere ma se seleziono il primo risultato mi dà errore( Set rng = fSelezione.Seleziona(rColl) )MENTRE SUGLI ALTRI NO..

Codice: Seleziona tutto

Private Sub mCerca(ByVal vValore As Variant)
Dim rng As Range, i As Long, msg As String, primo As String, secondo As String
Dim rColl As Collection
Dim sh As Worksheet
    Set rColl = New Collection
    Set sh = Foglio1
    Set rColl = Cerca(sh.Range("n:n"), vValore)
    If Not rColl Is Nothing Then
        If rColl.Count = 1 Then '1 solo valore trovato
            Set rng = rColl(1)
            fillTextBoxes rng
        Else                    'diversi valori trovati
           Set rng = fSelezione.Seleziona(rColl) '<========QUI SI EVIDENZIA L'ERRORE !!!
            If Not rng Is Nothing Then
                fillTextBoxes rng
            Else
                MsgBox "Nessun contratto selezionato, operazione annullata"
                ClearTextBoxes
            End If
        End If
    Else
        MsgBox "Nessun contratto Associato"
        ClearTextBoxes
    End If
    Set rng = Nothing
    Set rColl = Nothing
    Set sh = Nothing
End Sub

come mai ?

[Zer0Kelvin]

C'era un errore nel codice, che è stato corretto in un secondo tempo; qui c'è la correzione:
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101451&sid=357a24be9f7543da6f704429fa8b70d2#p586922

[donbadi]

...ecco lo dicevo io che stavo a ingrullì!!!
top ora si che va bene GRAZIEEEEEEE!!!!!
grazie a tutti per il supporto e la pazienza che avete avuto!!!