Jump to content
joselica

ANSWERED No me guarda los datos

Recommended Posts

Buenos días a todos,

Antes de nada quiero agradecer vuestra ayuda durante todo este tiempo.

Intento molestar cuanto menos pero estoy estancado y necesito ayuda.

Al ejecutar la linia de "ClearContents" no me guarda los datos en la hoja H2 (BD) en las celdas: C; D y E.

Sub Macro2()
Dim Fila As Long, H1 As Worksheet, H2 As Worksheet
'--
Application.ScreenUpdating = False 'Evita el parpadeo
Set H1 = Sheets("FICHA")
Set H2 = Sheets("BD")
'--
Fila = H2.Range("B" & Rows.Count).End(xlUp).Row + 1
'Datos de contacto
H2.Range("B" & Fila) = H1.Range("K9") 'Número reserva
'Range("B4:K4").ClearContents - Elimina TIPO RESERVA - cuando se ejecuta esta linia no me guarta los datos de las en la H2 de las celdas: C;D y F
H2.Range("C" & Fila) = H1.Range("B4") 'Tipo reserva
H2.Range("D" & Fila) = H1.Range("I6") 'Emitido
H2.Range("E" & Fila) = H1.Range("C9") 'Nombre del grupo
H2.Range("F" & Fila) = H1.Range("J5") 'Estado de la reserva

 

H2.Range("B6:K" & Fila).Sort Key1:=H2.Columns("B")

 

H1.Range("B2").Select
End Sub

Tampoco no entiendo de como hacer que los datos a grabar se guarden en la hoja BD y RESUMEN. Quiero decir de que me guarde los datos en 2 hojas distintas a la vez.

Adjunto el documento.

Gracias.

ALGO HAGO MAL.xlsm

Share this post


Link to post
Share on other sites
Sub Macro2()
Dim Fila As Long
Dim H1 As Worksheet
Dim H2 As Worksheet
Dim H3 As Worksheet

'--
Application.ScreenUpdating = False 'Evita el parpadeo
Set H1 = Sheets("FICHA")
Set H2 = Sheets("BD")
Set H3 = Sheets("RESUMEN")

'-- BD
Fila = H2.Range("B" & Rows.Count).End(xlUp).Row + 1
H2.Range("B" & Fila) = H1.Range("K9") 'Número reserva
H2.Range("C" & Fila) = H1.Range("B4") 'Tipo reserva
H2.Range("D" & Fila) = H1.Range("I6") 'Emitido
H2.Range("E" & Fila) = H1.Range("C9") 'Nombre del grupo
H2.Range("F" & Fila) = H1.Range("J5") 'Estado de la reserva
H2.Range("B6:K" & Fila).Sort Key1:=H2.Columns("B")

'-- RESUMEN
Fila = H3.Range("B" & Rows.Count).End(xlUp).Row + 1
H3.Range("B" & Fila) = H1.Range("K9") 'Número reserva
H3.Range("C" & Fila) = H1.Range("B4") 'Tipo reserva
H3.Range("D" & Fila) = H1.Range("I6") 'Emitido
H3.Range("E" & Fila) = H1.Range("C9") 'Nombre del grupo
H3.Range("F" & Fila) = H1.Range("J5") 'Estado de la reserva
H3.Range("B6:K" & Fila).Sort Key1:=H3.Columns("B")

'--
H1.Activate
H1.Range("B4:K4").ClearContents
H1.Range("B2").Select
End Sub

 

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


CTA Templates.png