Por este medio quiero solicitar su apoyo para ayudarme a corregir una macro que me guarda unos datos de la hoja FORMULARIO a la hoja BASE.
El objetivo de guardar los datos a la hoja BASE se cumple parcialmente, pero tengo el siguiente problema: La idea es que antes de guardar los datos, la macro verifique si el campo "NUMERO DE SOLICITUD" que se encuentra en la celda B2 de la Hoja FORMULARIO, ya se ha guardado alguna vez en la hoja BASE. Si se comprueba que ya se ha guardado una vez, la macro debería sobreescribir la información en la fila donde ya estaba guardada en la hoja BASE; si en caso se comprueba que aún no se ha guardado, que copie la información en la primera fila vacía que se encuentre de la columna A de la hoja BASE. Y esto último es lo que no logro hacer funcionar, ya que la macro no sobreescribe cuando ya se encuentra el número de solicitud guardado una vez.
La macro que utilizo es la siguiente:
Sub ExportarBase()
Dim Fila As Long
Dim no As Range
Application.ScreenUpdating = False
Set no = Hoja2.Columns("A").Find(Hoja1.Range("a2"), , , xlWhole)
If Not no Is Nothing Then
Fila = no.Row
Else
Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
End If
Hoja2.Range("A" & Fila) = Hoja1.Range("B1")
Hoja2.Range("B" & Fila) = Hoja1.Range("B3")
Hoja2.Range("C" & Fila) = Hoja1.Range("C6")
Hoja2.Range("D" & Fila) = Hoja1.Range("C8")
Hoja2.Range("E" & Fila) = Hoja1.Range("D11")
Application.ScreenUpdating = True
End Sub
Acompaño un archivo de ejemplo que tengo trabajando, para ver si me pueden apoyar.
Desde ya, muchas gracias por su atención y el apoyo que puedan brindarme.
Buen día a todos:
Por este medio quiero solicitar su apoyo para ayudarme a corregir una macro que me guarda unos datos de la hoja FORMULARIO a la hoja BASE.
El objetivo de guardar los datos a la hoja BASE se cumple parcialmente, pero tengo el siguiente problema: La idea es que antes de guardar los datos, la macro verifique si el campo "NUMERO DE SOLICITUD" que se encuentra en la celda B2 de la Hoja FORMULARIO, ya se ha guardado alguna vez en la hoja BASE. Si se comprueba que ya se ha guardado una vez, la macro debería sobreescribir la información en la fila donde ya estaba guardada en la hoja BASE; si en caso se comprueba que aún no se ha guardado, que copie la información en la primera fila vacía que se encuentre de la columna A de la hoja BASE. Y esto último es lo que no logro hacer funcionar, ya que la macro no sobreescribe cuando ya se encuentra el número de solicitud guardado una vez.
La macro que utilizo es la siguiente:
Sub ExportarBase() Dim Fila As Long Dim no As Range Application.ScreenUpdating = False Set no = Hoja2.Columns("A").Find(Hoja1.Range("a2"), , , xlWhole) If Not no Is Nothing Then Fila = no.Row Else Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 End If Hoja2.Range("A" & Fila) = Hoja1.Range("B1") Hoja2.Range("B" & Fila) = Hoja1.Range("B3") Hoja2.Range("C" & Fila) = Hoja1.Range("C6") Hoja2.Range("D" & Fila) = Hoja1.Range("C8") Hoja2.Range("E" & Fila) = Hoja1.Range("D11") Application.ScreenUpdating = True End Sub
Acompaño un archivo de ejemplo que tengo trabajando, para ver si me pueden apoyar.
Desde ya, muchas gracias por su atención y el apoyo que puedan brindarme.
Saludos
Macro Guardar Datos.xlsm