excell - copiare dati in su Celle filtrate

[Ale75]

salve,
hoi un problema con un file xcell

ho sviluppato una macro per filtrare una lista dati, e vorrei incollare un coefficente solo ai dati filtrati. Mi sono arenato.

quasta è la macro

Codice: Seleziona tutto

filtro = valore
Sheets("Home").Select
Range("M91").Select
Selection.Copy   '---> Questo è il valore da copiare su tutte le celle filtrate

    Sheets("Pagnia 2").Select
   
    Range("T5:T459").Select
    Selection.ClearContents  '---> pulisco tutto il range
    ActiveSheet.Range("$A$4:$CN$459").AutoFilter Field:=11, Criteria1:="=*" & filtro & "*", Operator:=xlFilterValues '----> Applico il filtro a tutti i valori
    Range("T5:T459").Select  '--> ???? come faccio a selezionare solo le celle filtrate
    ActiveSheet.Paste


la macro sopra mi da errore. No so come selezioanre solo le celle filtarte.

Potete aiutarmi?

grazie,
ale.

[Anthony47]

Non puoi Incollare valori in un'area non contigua, quale e' quella filtrata. Devi quindi realizzare un loop che inserisca il valore nelle sole celle visibili.
Ad esempio, invece delle tue
Range("T5:T459").Select '--> ???? come faccio a selezionare solo le celle filtrate
ActiveSheet.Paste

Prova con questo snippet:

Codice: Seleziona tutto

On Error GoTo NoCell
For Each myc In Range("T5:T459").SpecialCells(xlCellTypeVisible)
    myc.Value = Sheets("Home").Range("M91").Value
Next myc
NoCell:
On Error GoTo 0


Ciao

[Ale75]

Grazie