avrei bisogno di aiuto per creare una macro che cerchi la prima riga vuota.
Spiego la mia situazione:
in un file excel nel foglio "Ins_Dati" nel range A11:K13 inserisco dei dati e vorrei copiarli nel foglio"Registro" nel range A14:K16 .I dati seguenti vorrei fossero copiati nella prima riga libera ovvero nella riga 17. Arrivato alla riga 22 il dato che andrà inserito successivamente dovrebbe saltare 12 righe e quindi essere inserito nella riga 34.poi nella 35 nella 36 e così via fino alla riga 45 quindi saltare ancora 12 righe e riprendere la serie.
Con la macro che segue
- Codice: Seleziona tutto
Sub Pippo()
Range("A11:K13").Select
Selection.Copy
Sheets("Registro").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(7, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Ins_Dati").Select
Range("A11:E13").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F8").Select
Selection.Copy
Range("F11:F13").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Range("G11:H13").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Range("I11:K13").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A11").Select
End Sub
Riesco a copiare la prima serie di dati nella prima riga vuota ma quando vado ad inserire altri dati vengono sovrascritti.
Oltre che copiare i dati da un foglio all'altro, la macro espleta altre funzioni, come potete notare, e lì tutto ok. Per chiarire meglio posto una copia del file a cui sto lavorando.
http://www.filedropper.com/copiafile_1
Certo che come le altre volte saprete trovare la soluzione vi ringrazio fin da ora.
EDIT Flash: Inserito Tag-Code alla macro, Inserito Tag-Url all'indirizzo del download file.
Attenzione! La macro non aveva il nome (lo aggiunti io) e non so se è solo una parte del codice o mancava solo il nome