PDA

Visualizza versione completa : [EXCEL] ripetizione di una macro (cricchia help me!!!)


interceptor
22-07-2006, 10.28.02
.....allora ho una macro che esegue determinate operazioni, nello specifico prende un valore da una cella (colonna 1), lo confronta con un valore presente in un'altra cella di un altro foglio e lo inserisce a fianco del primo, più o meno il funzionamento è questo.....
..adesso mi servirebbe che la stessa operazione, quindi la macro venga eseguita progressivamente per ogni valore presente nella colonna 1, quindi partendo dalla cella a8, esegua le operazioni sulle altre celle della colonna!!!
:inn:

miciomao
26-07-2006, 11.06.39
posta la macro che aggiungiamo 2 righe di codice

Cricchia
26-07-2006, 22.19.12
interceptor, tu sei fuori di testa!!! :D:D

così dovrebbe funzionare:


Sub prova()
Range("a8").End(xlDown).Select
ultima_riga = ActiveCell.Row
For riga = 8 To ultima_riga
MsgBox ("ciao interceptor!")
Next
End Sub


ovviamente sostituisci la riga della msgbox con la parte di codice che hai già scritto! ;)

interceptor
28-07-2006, 17.02.43
..allora posto la macro perchè non mi funzia la cricchia solution, sembra che faccia un sacco di lavoro, ma scende di una sola riga....
questa è la macro da ripetere
Range("A213").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Preventivo").Select
ActiveWindow.LargeScroll Down:=-1
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
Range("E34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Prezzo").Select
Range("W213").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Preventivo").Select
Range("E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Prezzo").Select
Range("X213").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Preventivo").Select
Range("E51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Prezzo").Select
Range("Y213").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

..le celle indicate in grassetto sono quelle che devono scendere (incrementarsi) di una riga ad ogni elaborazione....
.....genietto ti aspetto....... :inn:
anche gli altri experts sono accetti :devil: