|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
25-02-2008, 19.45.23 | #1 |
Newbie
Registrato: 25-02-2008
Messaggi: 1
|
[EXCEL]Macro per copiare determinate righe di un foglio in un altro
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 |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Excel - come faccio a confrontare 2 fogli di lavoro e riportare un valore? | Avathar | Office suite | 6 | 08-04-2009 12.33.59 |
Righe fatte dal masterizzatore su un DvdRW | Aquax | Hardware e Overclock | 7 | 19-12-2008 14.03.35 |
Come rimuovere X righe ogni Y righe... in Excel? | melany | Office suite | 1 | 04-11-2008 11.41.38 |
[XP PRo SP2]creare utente e copiare profilo... | cippico | Sicurezza&Privacy | 5 | 08-05-2007 20.45.45 |
[WinXP] Clonare e copiare su un altro pc l'account Windows | gutguy | Windows 7/Vista/XP/ 2003 | 3 | 15-12-2006 13.12.19 |