Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Errore 461 ciclo for errato aiutoooo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Errore 461 ciclo for errato aiutoooo

Postdi deniel69 » 14/10/15 12:04

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 ......... :undecided: :?:
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Errore 461 ciclo for errato aiutoooo

Postdi alfrimpa » 14/10/15 13:48

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).
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Errore 461 ciclo for errato aiutoooo

Postdi Marius44 » 14/10/15 21:49

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
Marius44
Utente Senior
 
Post: 143
Iscritto il: 07/09/15 22:00

Re: Errore 461 ciclo for errato aiutoooo

Postdi Anthony47 » 14/10/15 23:43

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Errore 461 ciclo for errato aiutoooo":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti