Hi to all!
I have an excel workbook in which I have a sheet named "Report Giornaliero" showing some values in some cells, and I created a macro to copy that values (and that values only) to another sheet named "Calendario" in the same workbook.
The problem is that I want the macro (later to be assigned to a command button) to use the first blank row every time it is launched; the macro as I (in my very, very poor skill) compiled it always uses the same row, overwriting it.
I think it must be a real simple goal to achieve, but it is beyond my small knowledge and google could not help me.
Here's the macro:
Code
Sub Calendario()
'
' Calendario Macro
'
'
Sheets("Report Giornaliero").Select
Range("Z3").Select
Selection.Copy
Sheets("Calendario").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Sheets("Report Giornaliero").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Sheets("Report Giornaliero").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Sheets("Report Giornaliero").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Sheets("Report Giornaliero").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
Sheets("Report Giornaliero").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G2").Select
Sheets("Report Giornaliero").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Sheets("Report Giornaliero").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I2").Select
Sheets("Report Giornaliero").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2").Select
Sheets("Report Giornaliero").Select
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
Sheets("Report Giornaliero").Select
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L2").Select
Sheets("Report Giornaliero").Select
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Report Giornaliero").Select
Range("E12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calendario").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
SendKeys "{ESC}"
End Sub
Display More
How should I modify it to achieve my goal?
Thanks to all in advance and excuse me for my english.