Macro de búsqueda y reemplazo en excel
Tengo una base de datos muy grande (Hoja2) que en su primer columna tiene un número de folio. En la Hoja 1, al teclear el número de folio en la celda "E4", por funciones de búsqueda, me despliega toda la información de ese folio; Quisiera una macro que cuando yo edite la información que me desplegó (por ejemplo, cambiar algún importe), todos los datos se reescriban o se actualicen en la base de datos (Hoja2)
Te sugiero que realices la captura de los nuevos datos en la hoja1, cuando termines de capturas presiones un botón para actualizar la hoja2.
Pon la siguiente macro en un botón:
Sub Actulizar_Base_Datos()
'Por Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
folio = h1.Range("E4").Value
If folio = "" Then
MsgBox "Captura un folio", vbCritical
Exit Sub
End If
'
Set b = h2.Columns("A").Find(folio, lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "B").Value = h1.Range("A7").Value
h2.Cells(b.Row, "C").Value = h1.Range("B7").Value
h2.Cells(b.Row, "D").Value = h1.Range("C7").Value
MsgBox "Información actulizada", vbInformation
Else
MsgBox "El folio no existe", vbExclamation
End If
End SubEn estas líneas te puse un ejemplo:
h2.Cells(b.Row, "B").Value = h1.Range("A7").Value
h2.Cells(b.Row, "C").Value = h1.Range("B7").Value
h2.Cells(b.Row, "D").Value = h1.Range("C7").ValueTe explico mi ejemplo, la celda A7 de la hoja1 actualiza la hoja2 en la fila del folio capturado en la columna "B".
La celda B7 de la hoja1 actualiza la hoja2 en la fila del folio capturado en la columna "C".
Cambia las columnas B, C, D y agrega más columnas que quieras actualizar de la hoja 2.
Y cambia las celdas "A7", "B7", "C7" por la celda correspondiente de la hoja1.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
¡Gracias! Muchas gracias por tu apoyo, leyendo la macro, estoy seguro que me va a funcionar, una vez que la ponga a funcionar te comento, muchas gracias nuevamente
