Macro en excel
Perdona por el dilema en que te pongo.
Tengo dos libros de excel LIBRO1(con una hoja(A)) y LIBRO2(con una hoja(Hoja1)).
En el LIBRO1 esta esta MACRO, y la persona que la diseño no esta localizable.
Me podrías indicar que hace linea por linea.
Al ejecutar la MACRO, tendría que tener un solo LIBRO con las dos HOJAS, o se puede ejecutar estando en libros diferentes.
Gracias anticipadas, y te pido disculpas de nuevo por hacerte esta pedición.
Sub Macro6()
Do While Range("T1") > 0
Range("T1").Select
Selection.End(xlDown).Select
Selection.ClearContents
ActiveCell.Offset(0, -1).Range("A1").Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Application.Goto Reference:="R4C6"
Range("C4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C4").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R1C20"
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Goto Reference:="R1C27"
Loop
End Sub
Tengo dos libros de excel LIBRO1(con una hoja(A)) y LIBRO2(con una hoja(Hoja1)).
En el LIBRO1 esta esta MACRO, y la persona que la diseño no esta localizable.
Me podrías indicar que hace linea por linea.
Al ejecutar la MACRO, tendría que tener un solo LIBRO con las dos HOJAS, o se puede ejecutar estando en libros diferentes.
Gracias anticipadas, y te pido disculpas de nuevo por hacerte esta pedición.
Sub Macro6()
Do While Range("T1") > 0
Range("T1").Select
Selection.End(xlDown).Select
Selection.ClearContents
ActiveCell.Offset(0, -1).Range("A1").Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Application.Goto Reference:="R4C6"
Range("C4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C4").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R1C20"
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Goto Reference:="R1C27"
Loop
End Sub
1 respuesta
Respuesta de frishmar
1