Jump to content

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Hola @joselica

Set H1 = Sheets("Sheet1")

Investiga sobre Set... y de paso sobre With...End With

Y si, como dices, H1 es para que no escribas Sheets("Sheet1") solo H1 en tu código para que sea más corto, más entendible y más rápido.....

Saludos.

Edited by Leopoldo Blancas

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5