Prima di postare ho cercato sul forum quante più informazioni mi potessero servire per iniziare la realizzazzione di essa.
Come da voi suggerito ho avviato la registrazione macro ed eseguito i compiti che la macro deve compiere automaticamente, ho guardato il codice e cercato di capire i vari comandi a cosa servivano.
Premetto che questa macro la sto realizzando negli orari morti di lavoro e mi serve per la realizzazzione di un file da consegnare ad un reparto produttivo della mia azienda, quindi il tempo per pensare non è molto.
Vi posto quanto ho già realizzato e cosa mi serve.
- Codice: Seleziona tutto
Sub comboHrT()
'
' comboHrT Macro
' Macro per la copia delle combinazioni di Umidità e Temperatura per ogni articolo
' presente in tabella prove rotoli
'
Windows("Tabella Prove Rotoli 2012.xls").Activate ' apertura del file da cui prelevare i dati
' parte da ripetere con gli altri articoli
UR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$1:UR").AutoFilter Field:=3, Criteria1:=Array("4025", _
"4025-", "4025+", "4025MB"), Operator:=xlFilterValues ' sostituire i valori con i codici degli altri articoli
ActiveWindow.ScrollColumn = 2 '
ActiveWindow.ScrollColumn = 3 ' non
ActiveWindow.ScrollColumn = 4 '
ActiveWindow.ScrollColumn = 5 ' so
ActiveWindow.ScrollColumn = 6 '
ActiveWindow.ScrollColumn = 7 ' a che
ActiveWindow.ScrollColumn = 8 '
ActiveWindow.ScrollColumn = 9 ' servono
ActiveWindow.ScrollColumn = 10 '
ActiveSheet.Range("$1:$UR").AutoFilter Field:=24, Criteria1:="<>" ' per filtrare le righe vuote nelle celle contenenti Hr e T
ActiveWindow.SmallScroll Down:=-15
'ciclo for per ripetere questa operazione per i valori trovati
For RC = 1 To UR ' RC= riga corrente UR= ultima riga
ActiveSheet.Range("$1:UR").AutoFilter Field:=24, Criteria1:="xxx" ' far sostituire il valore di criteria1 dal ciclo
Range("X2310:Y2310").Select ' cosi da scorrere tutti i valori trovati dal filtro
Selection.Copy ' e copiarli nel file media peel
Windows("Media peel.xlsx").Activate
Sheets("4025").Select ' il foglio in cui copiare i dati
Range("ARC").Select ' la cella da cui partire da deve essere A4
ActiveSheet.Paste 'ARC= A=colonna RC=riga corrente ARC range (1, UR)
Next RC
' fine ciclo for
Windows("Tabella Prove Rotoli 2012.xls").Activate
End Sub
La macro deve riempire la colonna A e B dei fogli presenti nel file Media Peel.xlsx.
nella colonna A devono essere copiati tutti i valori di T(temperatura) prelevati dalla colonna X del file Tabella Prove Rotoli 2012.xlsx; nella colonna B devono essere copiati i valori univoci di Hr(Umidità) prelevati dalla colonna Y del suddetto file.
per capirci se ho una cosa del genere:
T Hr
20 50
20 51
20 50
21 50
la macro deve riportarmi
T Hr
20 50
20 51
21 50
se può bastare questo senza allegare il file di esempio meglio, altrimenti devo preparare un file d'esempio per rimuovere i dati non necessari ai fini dello sviluppo della macro.
Grazie a tutti