incollare dati solo sulle celle visibili

[gianni]

Ho due worksheet, dal primo copio una colonna che voglio incollare in
una colonna del secondo worksheet.
Nel secondo worksheet ho applicato un filtro automatico.
Vorrei che le righe della colonna che ho copiato dal primo worksheet
venissero incollate solo sulle righe visibili della colonna di
destinazione del secondo worksheet.
Invece facendo un semplice copia-incolla, le righe della colonna
copiata vengono incollate anche nelle righe nascoste della colonna di
destinazione.
Spero di essere stato sufficientemente chiaro.
Grazie,
Gianni

[cucchiaino]

Post by gianni
Ho due worksheet, dal primo copio una colonna che voglio incollare in
una colonna del secondo worksheet.
Nel secondo worksheet ho applicato un filtro automatico.
Vorrei che le righe della colonna che ho copiato dal primo worksheet
venissero incollate solo sulle righe visibili della colonna di
destinazione del secondo worksheet.
Invece facendo un semplice copia-incolla, le righe della colonna
copiata vengono incollate anche nelle righe nascoste della colonna di
destinazione.

Ciao Gianni.

Prova a prendere spunto dalla routine seguente:


Sub Incollasuvisibili()
Dim filtrate As Range
Dim u(1 To 500)
Dim r As Long, x As Long

'copia la seconda colonna di foglio1 a cominciare
'dalla prima riga fino alla 500

Worksheets("Foglio1").Activate
For r = 1 To 500
u(r) = Cells(r, 2).Value
Next r


'riporta i valori memorizzati nella colonna D del
'foglio2, solo nelle 'celle visibili
Worksheet("Foglio2").Activate
Set filtrate =
ActiveSheet.Range("A2:D1000").Columns(4).SpecialCells(xlCellTypeVisible)

For Each F In rFiltrato
x = x + 1
F.Value = u(x)
Next
End Sub



Giocando con gli stessi strumenti potrai personalizzarti
la routine.



Ciao.
( )---cucchiaino