14/09/06 23:00
BOBSS1
Buonasera a tutti, sono nuovamente qui a chiedere aiuto, poichè dopo diversi manuali, tanta ignoranza in materia, poco tempo, ma tanta buona volontà a risolvermi le cose da solo, non sono riuscito a capiere come posso rendere ciclica la macro sottoriportata ed applicata ad un foglio di Xl, affinchè ad ogni ciclo il
Range("B5:G5".Select
si incrementi di una riga, e quindi:
Range("B6:G6".Select e poi
Range("B7:G7".Select e poi
Range("B8:G8".Select
sino ad esaurire le 750 righe, e contemporaneamente deve aumentare di pari passo il
Range("Q5".Select
e quindi:
Range("Q6".Select e poi
Range("Q7".Select e poi
Range("Q8".Select
sino ad esaurire anche qui le 750 righe.
ECCO LA MACRO BASE
Sub combinazioni()
'
' combinazioni Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Range("B5:G5".Select
Selection.Copy
Range("I2".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3:V3".Select
Application.CutCopyMode = False
Selection.Copy
Range("Q5".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Essendo un problema di lavoro, ho dei tempi, molto stretti.Ho già provato con l'aiuto di P4p3r0g4 a risolvere il tutto in un altro modo, con matrici, etc. ma nonostante le utilissime indicazioni datemi dallo stesso, a causa della mia scarsa conoscenza in materia non sono riuscito a chiudere il cerchio.
Per cui se qualcuno riesce a darmi una mano, grazie in anticipo, altrimenti grazie lo stesso per la pazienza che avete avuto a leggere questo msg.
Range("B5:G5".Select
si incrementi di una riga, e quindi:
Range("B6:G6".Select e poi
Range("B7:G7".Select e poi
Range("B8:G8".Select
sino ad esaurire le 750 righe, e contemporaneamente deve aumentare di pari passo il
Range("Q5".Select
e quindi:
Range("Q6".Select e poi
Range("Q7".Select e poi
Range("Q8".Select
sino ad esaurire anche qui le 750 righe.
ECCO LA MACRO BASE
Sub combinazioni()
'
' combinazioni Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Range("B5:G5".Select
Selection.Copy
Range("I2".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3:V3".Select
Application.CutCopyMode = False
Selection.Copy
Range("Q5".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Essendo un problema di lavoro, ho dei tempi, molto stretti.Ho già provato con l'aiuto di P4p3r0g4 a risolvere il tutto in un altro modo, con matrici, etc. ma nonostante le utilissime indicazioni datemi dallo stesso, a causa della mia scarsa conoscenza in materia non sono riuscito a chiudere il cerchio.
Per cui se qualcuno riesce a darmi una mano, grazie in anticipo, altrimenti grazie lo stesso per la pazienza che avete avuto a leggere questo msg.
Ultima modifica effettuata da BOBSS1 14/09/06 23:01
aaa