Macro para Copiar Celdas de una Columna a Celdas de una Fila
Publicado por eric (1 intervención) el 30/11/2016 17:13:52
Buenos Dias,
Integrantes de Todo Excel,
Favor necesito una Macro que me Copie los datos de 3 Celdas de una Columna a otra hoja, en Celdas de una Fila, es decir, copiar datos verticales de una hoja de manera horizontal, pero cuando pase a la otra hoja me copie los datos en la ultima fila vacia, ver archivo adjunto.
Yo hice una macro con el grabador de macros, pero trate de que los datos que pasan a la otra hoja me quedaran debajo de la ultima fila con datos pero no pude hacerlo, ya que soy principiante de macros, miren el codigo a ver si pueden entender lo que les solicito, LO UNICO QUE ME FALTA ES QUE LOS DATOS SE VAYAN INSERTANDO EN LA FILA QUE NO CONTENGA DATOS PARA QUE NO ME DAÑE EL HISTORIAL DEL MAYOR.
Integrantes de Todo Excel,
Favor necesito una Macro que me Copie los datos de 3 Celdas de una Columna a otra hoja, en Celdas de una Fila, es decir, copiar datos verticales de una hoja de manera horizontal, pero cuando pase a la otra hoja me copie los datos en la ultima fila vacia, ver archivo adjunto.
Yo hice una macro con el grabador de macros, pero trate de que los datos que pasan a la otra hoja me quedaran debajo de la ultima fila con datos pero no pude hacerlo, ya que soy principiante de macros, miren el codigo a ver si pueden entender lo que les solicito, LO UNICO QUE ME FALTA ES QUE LOS DATOS SE VAYAN INSERTANDO EN LA FILA QUE NO CONTENGA DATOS PARA QUE NO ME DAÑE EL HISTORIAL DEL MAYOR.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro2()
'COPIAR DATOS DE CELDAS VERTICALES DEL DIARIO HACIA LA HOJA MAYOR EN FORMA HORIZONTAL
Range("B3:B4").Select
Selection.CopySheets("Mayor").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'COPIAR DATOS DE CELDAS HORIZONTALES DEL DIARIO HACIA LA HOJA MAYOR EN FORMA HORIZONTAL TAMBIEN
Sheets("Diario").Select
Range("A7:D8").Select
Application.CutCopyMode = False
Selection.CopySheets("Mayor").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
- Diario-y-Mayor.rar(7,5 KB)
Valora esta pregunta
0