Que hacer para que la macro escriba en la siguiente linea vacia
publicado
Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais.
Gracias y un saludo a todos. Pablo
Sub MacroIberdrola()
'
' MacroIberdrola Macro
'
'
Sheets("Hoja3").Select
Range("E23").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-25
Sheets("Iberdrola").Select
Range("D4945").Select
ActiveSheet.Paste
Range("E4944").Select
Application.CutCopyMode = False
Selection.Copy
Range("E4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("F23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-23
Sheets("Iberdrola").Select
Range("F4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-27
Sheets("Iberdrola").Select
Range("G4945").Select
ActiveSheet.Paste
Selection.Font.Bold = True
Range("H4944:L4944").Select
Selection.Copy
Range("H4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("G23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Iberdrola").Select
Range("M4945").Select
ActiveSheet.Paste
Range("N4944").Select
Application.CutCopyMode = False
Selection.Copy
Range("N4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("H23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-28
Sheets("Iberdrola").Select
Range("B4945").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("B:B").Select
Range("B2").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Range("C4948").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais.
Gracias y un saludo a todos. Pablo
Sub MacroIberdrola()
'
' MacroIberdrola Macro
'
'
Sheets("Hoja3").Select
Range("E23").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-25
Sheets("Iberdrola").Select
Range("D4945").Select
ActiveSheet.Paste
Range("E4944").Select
Application.CutCopyMode = False
Selection.Copy
Range("E4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("F23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-23
Sheets("Iberdrola").Select
Range("F4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("B23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-27
Sheets("Iberdrola").Select
Range("G4945").Select
ActiveSheet.Paste
Selection.Font.Bold = True
Range("H4944:L4944").Select
Selection.Copy
Range("H4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("G23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Iberdrola").Select
Range("M4945").Select
ActiveSheet.Paste
Range("N4944").Select
Application.CutCopyMode = False
Selection.Copy
Range("N4945").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
Range("H23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-28
Sheets("Iberdrola").Select
Range("B4945").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("B:B").Select
Range("B2").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Range("C4948").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Hoja3").Select
End Sub