Salve, ho un problema relativo ad un programma con excels 2003 passato a 2007 adesso vi spiego il mio problema:
con office 2003 quando filtravo i dati ed andavo ad incollarli bastava incollare solo valore è la macro mi incollava solo i dati filtrati ma con il 2007 mi incolla tutta la colonna. Ho provato ad inserire la stringa prima di copia selection.specailcells(xlcellTypevisibile). select ma il problema nasce quando il filtro è vuoto mi incolla tutta la colonna e mi da errore interrompendo la macro.Mi potete aiutare??
GRazie.

salve
puoi mostrare la macro intera?
saluti
Giap

---

Mi sono dimenticato di scrivere il messaggio di errore: Errore di run-time '1004' non è stata trovata alcuna cella.
Buona serata.
Grazie

Grazie Giap proverò. Scusa se aproffitto della tua generosità , come posso filtrare sulla stessa colonna altri dati come ad esempio =n*,=a*;=b*,=m* quando non trova una lettera passa alla successiva.
Michele

salve
non credo sia un problema di versione di Excel, se nel range filtrato non ci sono celle visibili è normale che nell'istruzione copy venga scaturito l'errore.
In questo caso necessita gestire l'errore. in base alla tua seconda richiesta passare il criterio del filtro ad una altro carattere, è risolvibile creando un array con l'elenco dei caratteri che si vogliono filtrare.
La macro che segue fa ( meglio.. dovrebbe fare questo) se il filtro non trova riscontri, passa al carattere successivo e si ferma quando trova un criterio valido.

in questa riga con la sintassi che vedi devi elencare i tuoi valori di criterio: myarray = Array("z*", "n*", "e*")


Sub filtra()
On Error Resume Next
myarray = Array("z*", "n*", "e*")
Sheets("Giovanni").Select
Range("a1").Select
For n = LBound(myarray) To UBound(myarray)
Selection.AutoFilter Field:=4, Criteria1:="=" & myarray(n), Operator:=xlAnd
Set rng = Range(("C2"), Range("C29")).SpecialCells(xlCellTypeVisible)
If Err.Number = 1004 Then
Resume
Else
Selection.AutoFilter Field:=4, Criteria1:="=n*"
Range("A6:b2000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Foglio5").Select
Range("S6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giovanni").Select
Range("f6:g2000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Foglio5").Select
Range("t6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next n
End Sub

saluti
Giap

---

Non ho provato però leggendo la macro non credo che funzioni perchè non è detto che ci sia per forza un valore di criterio: myarray , pertanto ti chiedo se partiamo solo da un dato nel primo caso n* (la macro iniziale) si potrebbe mettere un criterio che controlli la colonna filtrata (C) se contiene il dato n* magari con If / elseif facendo partire la macro solo se trova n* oppure uscire. Che cosa ne pensi? Potrebbe Funzionare, il mio programma filtrava n* in colonna C poi copiava i dati della colonna A:B ecc. incollandoli nel foglio dove avevo un resoconto.
Grazie ancora Michele.

salve
la differenza tra le due macro che hai postato è nell'aggiunta dell'istruzione "Specialcells"
che nel caso di nessun riscontro nel filtro manda in errore.
La differenza strana tra 2003-2007 è che il comando copy di celle filtrate copia solo le celle visibili nel 2003 mentre strano ma vero non funge con il 2007

vedi se la modifica alla macro può andarti bene.

Sub filtra()
On Error Resume Next
Sheets("Giovanni").Select
Range("a1").Select
Selection.AutoFilter Field:=4, Criteria1:="=x*", Operator:=xlAnd
Set rng = Range(("C2"), Range("C2000")).SpecialCells(xlCellTypeVisible)
If Err.Number = 1004 Then
MsgBox ("nessun risultato per il filtro")
Resume
Else
Selection.AutoFilter Field:=4, Criteria1:="=n*"
Range("A6:b2000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Foglio5").Select
Range("S6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giovanni").Select
Range("f6:g2000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Foglio5").Select
Range("t6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

End Sub

saluti
Giap

---