Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

VBA copia incolla dati filtrati automatico HHEEELLPPPPPP!!! Opzioni
murderoushands
Inviato: Thursday, July 01, 2010 10:01:59 AM
Rank: Newbie

Iscritto dal : 7/1/2010
Posts: 1
Buongiorno a tutti, spero che qualcuno possa aiutarmi...

per questioni lavorative, devo praticamente ogni 15 gg copiare dei dati filtrati da una tabella in un'altra..inizialmente filtro i dati in base alla ZONA (determinata da un codice), successivamente sommo con SUBTOTALE i dati filtrati e successivamente li incollo in un altro file.

Vorrei automatizzare il processo...vorrei creare una macro che mi filtri i dati, mi faccia la somma e mi incolli il risultato.

Non so se tutto questo sia fattibile, comunque sia ho inserito delle immagini per rendere più chiaro tutto...

http://upmyphoto.com/img/image.php?image=frh_420101_images_2072_01074025000000_628389290783_loc.jpg http://upmyphoto.com/img/image.php?image=frh_720109_images_7076_01074025000000_547245453507_loc.jpg

Grazie a tutti in anticipo
Sponsor
Inviato: Thursday, July 01, 2010 10:01:59 AM

 
a10n11
Inviato: Thursday, July 01, 2010 12:09:04 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
ti posto solo un esempio di come potrebbe essere sviluppato un codice.
La macro che segue, richiede di digitare il criterio del filtro (nell'esempio si prende in considerazione la colonna 2), dopo di che filtra il foglio esegue i subtotali,
e copia la riga di essi sul foglio 2 a partire dalla cella A1.
Questi parametri dovranno essere adattati al tuo lavoro.
Il filtro viene applicato ca colonna A a colonna R

Sub Filtro()
ur = Range("b" & Rows.Count).End(xlUp).Row
X = InputBox("Criterio Ricerca", "Criterio")
Range("A1:R" & ur).AutoFilter Field:=2, Criteria1:=X
For n = 3 To 18
Cells(ur + 2, n).Value = WorksheetFunction.Subtotal(9, Range(Cells(2, n), Cells(ur, n)))
Next n
Range(Cells(ur + 2, 3), Cells(ur + 2, 18)).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Sheets("Foglio2").Range("A1")
Rows(ur + 2).ClearContents
End Sub

In caso di problemi, chiedi
saluti
Giap

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.