ricerca textbox su form

Question

Buongiorno a tutti, sono un nuovo iscritto e volevo porre alla vostra attenzione il mio problema. Non essendo un programmatore e con il vba sono all'inizio ho trovato il codice per il mio caso sul web. Il problema è il seguente: 

devo fare una ricerca attraverso una form con 10 o più textbox. I dati vengono prelevati da una tabella del foglio Excel. Quindi, quando inserisco  3 dati nei textbox , ad esempio 1-2-3, contenuti nelle colonne del foglio, mi deve caricare nelle altre textbox della form, i dati che si trovano in corrispondenza della stessa riga, anziché usare i filtri di excel

ll codice fa la ricerca per come desidero solo che quando faccio la ricerca  per data ed un altro valore compreso nella riga mi da errore. Inserisco il codice che utilizzo e grazie per ogni eventuale vostra risposta

Private Sub CommandButton1_Click() 'Cerca

Dim X As Long

Dim rng As Range

Dim rngRow As Range

Dim cella As Range

Dim k As Long

Dim j As Long

Dim jj As Long

'----------------------

'-------------------

Dim nTrue As Byte

Set rng = Range("A2:J3862")

j = rng.Rows.Count

For X = 1 To j

 Set rngRow = rng.Rows(X)

  For jj = 1 To 10

    Set cella = rngRow.Cells(1, jj)

    With cella

      If Me.Controls("TextBox" & jj).Text <> "" Then

        If .Value = Me.Controls("TextBox" & jj).Value Then

          nTrue = nTrue + 1 * 10 ^ k

        Else

          nTrue = nTrue * 10

        End If

        k = k + 1

      End If

    End With

  Next jj

  If InStr(CStr(nTrue), 0) Then

  Else

    rngRow.Select

    nTrue = 1

    For j = 1 To 10

      Me.Controls("TextBox" & j).Value = rngRow.Cells(1, j).Value

    Next j

    Exit For

  End If

  nTrue = 0

  k = 0

Next X

If nTrue = 0 Then

    MsgBox "condizioni non soddisfatte!", vbCritical

End If

Set rng = Nothing

End Sub

Answer 1

ho caricato il file su onedrive. scusa per il casino ma non avevo mai fatto questa procedura

Answer 2

Dovresti però gentilmente postare il link. Grazie.

Answer 3

ciao forse ci sono riuscito a caricare il file

Answer 4

scusa per l'ignoranza ho provato a metterlo su onedrive poi mi chiede di condividerlo ma non so cosa fare. ti posso mandare una mail con il file allegato?

Answer 5

Buongiorno a tutti, sono un nuovo iscritto e volevo porre alla vostra attenzione il mio problema. Non essendo un programmatore e con il vba sono all'inizio ho trovato il codice per il mio caso sul web. Il problema è il seguente: 

devo fare una ricerca attraverso una form con 10 o più textbox.

<cut>

Per favore condividi un file su Onedrive o altro sito di sharing, in modo che noi non si debba *tirare ad indovinare* come è fatta la tua tabella e la tua UserForm.

Grazie.