PDA

Visualizza versione completa : [EXCEL]Macro per copiare determinate righe di un foglio in un altro


ajalro
25-02-2008, 18.45.23
Vi spiego meglio:

ho un foglioA, un foglioB e un foglioC.
Ho bisogno di scrivere una macro che lanciata da un terzo foglio dia istruzioni di andare a vedere se nella cella R5 del foglioA c'è scritto "pluto" (ad es), nel caso ci sia scritto, di copiare da A5 a P5 nella prima riga vuota disponibile a partire dalla 5 nel foglioB e che ripeta l'operazione per almeno 100 righe del foglioA.
Ciò che voglio ottenere è una copia esatta sul foglioB (senza righe vuote)delle sole righe del foglioA in cui nella colonna R compare la scritta "pluto".

Io ho provato così, ma non funziona... mi date una mano?

Sub Macro2()

Sheets("FoglioA").Select
ic = 16
ir = 5
For x = 1 To 100
If Cells(ir, ic) = "pluto" Then
Range(ic - 15, ic - 2).Select
Selection.Copy
Sheets("FoglioB").Select
Range(ic - 15, ic - 2).Select
ActiveSheet.Paste
End If
ir = ir + 1
x = x + 1
Next

End Sub