NO ENTIENDO LA MACRO

joselica · June 18, 2019

Buenos días,
Intento crear una macro para que me guarde los datos.
En la hoja tengo 2 casos.
El caso1 lleva una macro que trabaja bien, pero en el caso2 no consigo hacer lo mismo que en el caso1.
Adjunto el libro por si hay alguien que me puede hechar una mano.
Gracias.
Jose

GUARDAR DATOS.xlsm

Antoni · June 18, 2019

Deja tus macros así:

Option Explicit

Sub Macro1()
Dim Fila As Long, H1 As Worksheet, H2 As Worksheet
'--
Application.ScreenUpdating = False 'Evita el parpadeo
Set H1 = Sheets("Sheet1")
Set H2 = Sheets("Sheet2")
'--
Fila = H2.Range("A" & Rows.Count).End(xlUp).Row + 1
H2.Range("A" & Fila) = H1.Range("B4")
H2.Range("B" & Fila) = H1.Range("B5")
H2.Range("C" & Fila) = H1.Range("B6")
H2.Range("D" & Fila) = H1.Range("B7")
H2.Range("A4:K" & Fila).Sort Key1:=H2.Columns("A")
H1.Range("B4:B7").ClearContents
H1.Range("B4").Select
End Sub

Sub Macro2()
Dim Fila As Long, H1 As Worksheet, H2 As Worksheet
'--
Application.ScreenUpdating = False 'Evita el parpadeo
Set H1 = Sheets("Sheet1")
Set H2 = Sheets("Sheet2")
'--
Fila = H2.Range("F" & Rows.Count).End(xlUp).Row + 1
H2.Range("F" & Fila) = H1.Range("E4")
H2.Range("G" & Fila) = H1.Range("G4")
H2.Range("H" & Fila) = H1.Range("I4")
H2.Range("I" & Fila) = H1.Range("E5")
H2.Range("J" & Fila) = H1.Range("G5")
H2.Range("K" & Fila) = H1.Range("I5")
H2.Range("F4:K" & Fila).Sort Key1:=H2.Columns("F")
H1.Range("E4:E5,G4:G5,I4:I5").ClearContents
H1.Range("E4").Select
End Sub

joselica · June 18, 2019

Muchas gracias Sr. Antoni.

Me ha servido de mucho su ayuda.

Le deseo un buen día.

Saludos,

Jose

joselica · June 18, 2019

Una pregunta.

Dim Fila As Long, H1 As Worksheet, H2 As Worksheet
'--
Application.ScreenUpdating = False 'Evita el parpadeo
Set H1 = Sheets("Sheet1")
Set H2 = Sheets("Sheet2")

¿Debo de entender que H1 y H2 son las hojas 1 y 2?

Gracias.