Adaptación de macro de transposición celdas hoja1 a hoja2
Me gustaría efectuaras los cambios oportunos a macro realizada por tí de transposición de datos de celdas de la hoja "tickets" a la hoja "savetickets" ya que he realizado cambios en celdas de la hoja "tickets" pero no he sabido realizar los cambios correspondientes en la macro para que siguiese siendo operativa. Ahora mismo cuando la macro efectúa la transposición de datos repite algunas celdas que no debería.
He reducido el nº de filas a transponer. Estuve revisando tu macro para adaptarla pero no conseguí que efectuase la transposición de forma correcta.
Sub tickets()
'x Dante Amor
With Application
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.CutCopyMode = False
Application.ScreenUpdating = False
End With
'defino 1 variable para la hoja
Set hs = Sheets("Savetickets")
'1er fila libre en hoja Savetickets
libre = Sheets("Savetickets").Range("A15000").End(xlUp).Row + 1
'copia filas con datos en rangos A11:G19 y pega como valores ... Sin formatos y sin formulas
'toma la fila 24 como fin de rango xq más abajo hay fórmulas
Range("A11:G" & Range("A19").End(xlUp).Row).Copy
hs.Cells(libre, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'quita el modo de copiado
Application.CutCopyMode = False
'a partir de aquí siguen las celdas individuales... Se repiten desde 'libre' hasta la última ocupada que la vuelvo a calcular
libre2 = Sheets("Savetickets"). Range("A15000").End(xlUp). Row
'nro de ticket se repite en col H
hs.Range("H" & libre & ":H" & libre2) = ActiveSheet.Range("G8")
'así con todas las que deben ser repetidas
'Imp total va en 1er fila del rango
hs.Range("I" & libre) = ActiveSheet.Range("F18")
hs.Range("S" & libre) = ActiveSheet.Range("D19")
'rango fechas de col P a col J
Range("H11:H" & Range("A19").End(xlUp).Row).Copy
hs.Cells(libre, 10).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'arrastra formula para Iva en col K
hs.Range("K" & libre - 1).AutoFill Destination:=hs.Range("K" & libre - 1 & ":K" & libre2), Type:=xlFillDefault
Call Macro1
Te he enviado el libro para que lo revises.
1 Respuesta
Te anexo la macro actualizada
Sub tickets()
'Por.Dante Amor
Set h1 = Sheets("TICKET")
Set h2 = Sheets("SAVETICKETS")
'
With Application
.EnableEvents = False
h1.DisplayPageBreaks = False
.CutCopyMode = False
.ScreenUpdating = False
End With
'
h1.Range("A11:G14").Copy
u1 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u1, "A").PasteSpecial Paste:=xlPasteValues
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("H" & u1 & ":H" & u2) = h1.Range("G8")
h2.Range("I" & u1 & ":I" & u2) = h1.Range("F18")
h2.Range("J" & u1 & ":J" & u2) = h1.Range("H11")
h2.Range("S" & u1 & ":S" & u2) = h1.Range("D19")
'
Call Macro1
'
With Application
.CutCopyMode = False
h1.DisplayPageBreaks = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
