copiare celle durante l'uso del filtro

[SiNi]

Salve a tutti.

Il mio problema consiste nel fatto che ho piu' colonne a cui applico il
filtro automatico.
Dopodiche' vorrei copiare i dati di una colonna su un'altra dello stesso
foglio mentre il filtro è attivato.
Purtroppo i dati che incollo nella colonna non hanno la stessa disposizione
di quando ho usato la copia, ma le celle vengono copiate una sotto l'altra.

es.

Filtro automatico attivato

colonna A colonna D

a a
a a
a

a


nella colonna A uso il tsto copia e incollo sulla D...ma come si vede
vengono messe una sotto l'altra e non nella stessa posizione della A.

Io vorrei che fossero copiati nella stessa pozione della A

Grazie a tutti.

SiNi

[Raffael]

Non so come è intitolato in italiano, ma c'è un commando che fa selezionare
soltanto le celle visibili (forse "selezionare celle visibili" :D ) di una
selezione con filtri attivi. È un tasto nascosto, che si attiva nel menu
"customize" dei "toolbars".
Cercherò di spiegarmi: fai un clic col tasto destro del mouse in qualche
toolbar, seleziona "personalizare...", vai in "comandi" > "editare" > cerca
un tasto col nome detto prima e lo metti ovunque vuoi.
Poi, doppo copiare i dati, seleziona la colonna e fai un clic in quel tasto
prima di incollare i dati.

Se mi ho fatto capire, forse funzionerà... :)

Saluti



"SiNi"

Post by SiNi
Salve a tutti.
Il mio problema consiste nel fatto che ho piu' colonne a cui applico il
filtro automatico.
Dopodiche' vorrei copiare i dati di una colonna su un'altra dello stesso
foglio mentre il filtro è attivato.
Purtroppo i dati che incollo nella colonna non hanno la stessa
disposizione di quando ho usato la copia, ma le celle vengono copiate una
sotto l'altra.
es.
Filtro automatico attivato
colonna A colonna D
a a
a a
a
a
nella colonna A uso il tsto copia e incollo sulla D...ma come si vede
vengono messe una sotto l'altra e non nella stessa posizione della A.
Io vorrei che fossero copiati nella stessa pozione della A
Grazie a tutti.
SiNi

[SiNi]

Ciao,

ho trovato il pulsante in
Personalizza ---> Modifica --> seleziona celle visibili
ma mi spiace non funziona la copia.

Provero' con la soluzione dell'amico Norman.

Grazie comunque per l'aiuto.

SiNi

Post by Raffael
Cercherò di spiegarmi: fai un clic col tasto destro del mouse in qualche
toolbar, seleziona "personalizare...", vai in "comandi" > "editare" >
cerca un tasto col nome detto prima e lo metti ovunque vuoi.
Poi, doppo copiare i dati, seleziona la colonna e fai un clic in quel
tasto prima di incollare i dati.
Se mi ho fatto capire, forse funzionerà... :)
Saluti

[Raffael]

:(
è vero...

Per la soluzione che ha postato Norman, vedo che non era così semplice...

Saluti

Post by SiNi
Ciao,
ho trovato il pulsante in
Personalizza ---> Modifica --> seleziona celle visibili
ma mi spiace non funziona la copia.
Provero' con la soluzione dell'amico Norman.
Grazie comunque per l'aiuto.
SiNi

Post by Raffael
Cercherò di spiegarmi: fai un clic col tasto destro del mouse in qualche
toolbar, seleziona "personalizare...", vai in "comandi" > "editare" >
cerca un tasto col nome detto prima e lo metti ovunque vuoi.
Poi, doppo copiare i dati, seleziona la colonna e fai un clic in quel
tasto prima di incollare i dati.
Se mi ho fatto capire, forse funzionerà... :)
Saluti

[Norman Jones]

Ciao SiNi,

'-----------------------
Il mio problema consiste nel fatto che ho piu' colonne a cui
applico il filtro automatico.
Dopodiche' vorrei copiare i dati di una colonna su un'altra
dello stesso foglio mentre il filtro è attivato.
Purtroppo i dati che incollo nella colonna non hanno la stessa
disposizione di quando ho usato la copia, ma le celle vengono
copiate una sotto l'altra.

es.

Filtro automatico attivato

colonna A colonna D

a a
a a
a

a


nella colonna A uso il tsto copia e incollo sulla D...ma come si
vede vengono messe una sotto l'altra e non nella stessa posizione
della A.

Io vorrei che fossero copiati nella stessa pozione della A
'-----------------------

Prova ad assegnare il seguente codice ad un pulsante:
'=============>>
Public Sub CopyFilter()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim Rng2 As Range
Dim Ar As Range
Dim iOffset As Long
Const srcCol As Long = 1 '<<=== da CAMBIARE
Const DestCol As Long = 4 '<<=== da CAMBIARE

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE
On Error Resume Next
Set Rng = SH.AutoFilter.Range
On Error GoTo 0
If Rng Is Nothing Then
MsgBox Prompt:="Non si trova un filtro automatico!", _
Buttons:=vbCritical, _
Title:="Errore"
Exit Sub
End If

Set Rng = Intersect(Rng, SH.Columns(srcCol))
With Rng
Set Rng2 = .Offset(1).Resize(.Rows.Count)
End With

On Error Resume Next
Set Rng2 = Rng2.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not Rng2 Is Nothing Then
iOffset = DestCol - srcCol
For Each Ar In Rng2.Areas
With Ar
.Copy Destination:=.Offset(0, iOffset)
End With
Next Ar
End If
End Sub
'<<=============


---
Regards,
Norman

[SiNi]

Ciao Norman!

Grazie!
Na' meraviglia!!!

Post by Norman Jones
'=============>>
Public Sub CopyFilter()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim Rng2 As Range
Dim Ar As Range
Dim iOffset As Long
Const srcCol As Long = 1 '<<=== da CAMBIARE
Const DestCol As Long = 4 '<<=== da CAMBIARE
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE
On Error Resume Next
Set Rng = SH.AutoFilter.Range
On Error GoTo 0
If Rng Is Nothing Then
MsgBox Prompt:="Non si trova un filtro automatico!", _
Buttons:=vbCritical, _
Title:="Errore"
Exit Sub
End If
Set Rng = Intersect(Rng, SH.Columns(srcCol))
With Rng
Set Rng2 = .Offset(1).Resize(.Rows.Count)
End With
On Error Resume Next
Set Rng2 = Rng2.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not Rng2 Is Nothing Then
iOffset = DestCol - srcCol
For Each Ar In Rng2.Areas
With Ar
.Copy Destination:=.Offset(0, iOffset)
End With
Next Ar
End If
End Sub
'<<=============
---
Regards,
Norman