Errore 461 ciclo for errato aiutoooo

[deniel69]

Salve a tutti....
Mi sono incartato e non ne vengo fuori, non riesco a caricare i dati da foglio nelle text box dopo aver cercato il dato nella colonna "A"
funziona tutto ma non il ciclo for......
Questo è il codice che uso..ed è inserito in una userfom ..

Codice: Seleziona tutto

Private Sub mTrova(ByVal sValore As String)
    Dim C As Range
    Dim rng As Range
    Dim lUltRiga As Long
    Dim lRisposta As Long
    Dim lng As Long
    Dim s As String
    Dim sPath As String

    s = "ComboBoxCat"

    With sh

        lUltRiga = .Range("A" & _
            .Rows.Count).End(xlUp).Row

        Set rng = .Range("A2:E" & lUltRiga)

        For Each C In rng

             If C.Value = sValore Then 


                .txtP.Value = sh.Cells(C.Row, 2).Value 'colonna 2
                .txtW.Value = sh.Cells(C.Row, 3).Value 'colonna 3
                .txtX.Value = sh.Cells(C.Row, 4).Value 'colonna 4

            End If

        Next

    End With

    With Me

        If Len(.ComboBoxCat.Text) = 0 Then
            MsgBox "Nessun dato trovato."
        End If
   End With


Etc etc etc .........

[alfrimpa]

Ciao Deniel69

Scusa ma sValore che cosa è? Non la vedo dichiarata come variabile né valorizzata.

Quindi in questa istruzione "If C.Value = sValore Then" a cosa dovrebbe essere uguale C.Value se sValore non ha nessun valore?

Poi dimensioni una variabile s come stringa ma poi non la usi nel codice (almeno in quello che hai postato non la vedo).

[Marius44]

Ciao Deniel e ciao Alfredo
E' sempre buona norma allegare un file.
Dal codice che hai inserito non capisco il rigo "With sh". In questa routine non è settato alcun sh (suppongo si tratti di un Foglio)
Nel ciclo For mi pare di notare due errori: primo) una variabile a cui assegnare un valore non può avere un punto davanti nè l'indicazione .value appresso; le variabili si dimensionano Dim ....; secondo) il termine "sh.Cells(C.Row, 3).Value" non è compreso da Excel. Dovresti mettere subito dopo la riga dell'IF questo codice: riga = C.Row ed iserire la variabile nel termine di prima, cioè sh.Cells(riga, 3).value.
Ma, ripeto, senza file a supporto e solo guardando il codice è molto difficile poterti aiutare.

Ciao, Mario

[Anthony47]

Secondo me txtP e' il nome di un textbox, per cui, come e' scritto il codice, dovrebbe esserci un With UserformXyz /End With attorno alle righe tipo .txtP.Value = sh.Cells(C.Row, 2).Value 'colonna 2

Ma per dire qualcosa di serio dobbiamo vedere la tua userform e la tua struttura dati, cioe' avere un file di esempio realistico.

Ciao a tutti