Condividi:        

Errore nel metodo Paste per la classe Worksheets

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 nel metodo Paste per la classe Worksheets

Postdi blunotte13 » 18/04/11 15:54

Ciao a tutti, ho questa semplece macro per un filtro automatico
Codice: Seleziona tutto
Sub filtro_uno()
    Sheets("foglio1").Select
    Columns("D:D").Select
    Selection.AutoFilter
    ActiveSheet.Range("$d$1:$d$500").AutoFilter Field:=1, Criteria1:=[AG2]
    Range("D7:L500").Copy
    Selection.AutoFilter
    Range("AH1").Activate
    Range("AH1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B2").Select
End Sub

che, come da titolo, mi da errore sulla riga ActiveSheetPaste, ho provato a cambiare il comando per il "paste" diverse volte ma restituisce sempre errore, come posso fare?

Grazie in anticipo.
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Sponsor
 

Re: Errore nel metodo Paste per la classe Worksheets

Postdi blunotte13 » 18/04/11 16:18

Credo di aver trovato l'errore, toglievo il filtro troppo presto, ho anche modificato il metodo per trovare la prima cella vuota in colonna, se a qualcuno può servire così funziona
Codice: Seleziona tutto
Sub filtro_uno()
    Sheets("foglio1").Select
    Columns("D:D").Select
    Selection.AutoFilter
    ActiveSheet.Range("$d$1:$d$500").AutoFilter Field:=1, Criteria1:=[AG2]
    Range("D7:L500").Copy
    Columns("AH").Select
   Colonna = ActiveCell.Column
   Cells(65535, Colonna).End(xlUp).Offset(1, 0).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Selection.AutoFilter
   Application.CutCopyMode = False
   Range("B2").Select
End Sub
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35


Torna a Applicazioni Office Windows


Topic correlati a "Errore nel metodo Paste per la classe Worksheets":


Chi c’è in linea

Visitano il forum: raimea e 37 ospiti

cron