Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[VBA Excel]Errore di Run Time 1004

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

[VBA Excel]Errore di Run Time 1004

Postdi saso » 14/05/17 15:23

Ciao a tutti
ho questo problema questa macro a volte genera questo errore:
"Errore di Run Time 1004 Impossibile trovare la proprietà Match x la classe WorksheetFunction"
Codice: Seleziona tutto
Sub Spiare()
Dim ws1 As Worksheet, Rng As Range, c As Object
Set ws1 = Worksheets("Inserimento")
Worksheets("Spia Generale").Select
'NOTA: qui cancello i risultati precedenti. Se non lo deve fare commenta la seguente riga:
Worksheets("Spia Generale").Range("B2:AK37").ClearContents
  For r = 2 To 37
    n = Cells(r, 1)
   With ws1.Range("A2:A" & Rows.Count)
        Set c = .Find(n, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
            r1 = c.Row + 1
            For i = 1 To 5
               n1 = ws1.Cells(r1, 1)
                If n1 <> "" Then
                    lcol = Application.WorksheetFunction.Match(n1, Range("1:1"), 0)
                    Cells(r, lcol) = Cells(r, lcol) + 1
                    r1 = r1 + 1
                End If
            Next i
            Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress 'And c.Value = n
        End If
    End With
Next r
End Sub
saso
Utente Junior
 
Post: 14
Iscritto il: 14/05/17 13:26

Sponsor
 

Re: [VBA Excel]Errore di Run Time 1004

Postdi Anthony47 » 15/05/17 00:17

Ciao saso, benvenuto nel forum.
Quell'errore si verifica quando il valore che prelevi dal foglio "Inserimento" non e' presente in colonna 1 di "Spia Generale".
Immagino che vorresti anche sapere come aggirare l'errore..
Modifica la riga If n1 <> "" Then in
Codice: Seleziona tutto
    If n1 <> "" And Application.WorksheetFunction.CountIf(Range("1:1"), n1) > 0 Then


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17003
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [VBA Excel]Errore di Run Time 1004

Postdi saso » 15/05/17 09:11

Ciao Anthony47, grazie infinite
sto cercando di imparare qualcosina, spero di riuscirci.
Comunque funziona alla grande
saso
Utente Junior
 
Post: 14
Iscritto il: 14/05/17 13:26


Torna a Applicazioni Office Windows


Topic correlati a "[VBA Excel]Errore di Run Time 1004":


Chi c’è in linea

Visitano il forum: Marius44 e 7 ospiti