Actualización de datos
Hola. Tengo una base de datos en la hoja1 de un libro y fórmulas de búsqueda en la hoja2. A partir de las fórmulas de búsqueda de la hoja 2 cambio los datos según mi necesidad, generando, con una macro, un nuevo registro (estoy siempre en la hoja2). Mi consulta es cómo puedo hacer, mediante una macro, que el nuevo registro de la hoja2 reemplace al registro correspondiente en la hoja1 (Actualización de base de datos). Espero que se entienda. Muchas gracias.
Respuesta de Elsa Matilde
1
Creo que esta rutina es lo que necesitas y espero puedas adaptarla a tu hoja:
Se coloca en un módulo y se ejecuta desde la hoja 2. Las explicaciones en cada línea.
Sub buscador()
Dim Donde As String
Dim Que As String
Dim Quepaso As Object
Dim ubicado As String
'la variable Donde guarda el rango donde debe efectuarse la búsqueda de la Hoja1
Donde = "A1:A20"
'la variable Que guarda el dato a buscar que se encuentra en la celda A2 de la hoja2
Que = Range("A2").Value
'busca en la hoja1
Set Quepaso = Sheets("Hoja1").Range(Donde).Find(Que, LookIn:=xlValues, LookAt:=xlWhole)
If Quepaso Is Nothing Then
'si no se encuentra el dato puede mostrar un mensaje de error como el siguiente
MsgBox "No se encontró el dato", vbCritical, "NO ENCONTRADO"
Else
'si encontró el dato puede devolver en las celdas B y C los datos del nuevo registro que supuse estarán en D2 y E2
Quepaso.Offset(0, 1) = Range("D2").Value
Quepaso.Offset(0, 2) = Range("E2").Value
End If
Set Quepaso = Nothing
End Sub
Saludos
Elsa
*** No te pierdas el manual '200 Macros para Excel explicadas en español' en: http://es.geocities.com/lacibelesdepunilla/macros
Se coloca en un módulo y se ejecuta desde la hoja 2. Las explicaciones en cada línea.
Sub buscador()
Dim Donde As String
Dim Que As String
Dim Quepaso As Object
Dim ubicado As String
'la variable Donde guarda el rango donde debe efectuarse la búsqueda de la Hoja1
Donde = "A1:A20"
'la variable Que guarda el dato a buscar que se encuentra en la celda A2 de la hoja2
Que = Range("A2").Value
'busca en la hoja1
Set Quepaso = Sheets("Hoja1").Range(Donde).Find(Que, LookIn:=xlValues, LookAt:=xlWhole)
If Quepaso Is Nothing Then
'si no se encuentra el dato puede mostrar un mensaje de error como el siguiente
MsgBox "No se encontró el dato", vbCritical, "NO ENCONTRADO"
Else
'si encontró el dato puede devolver en las celdas B y C los datos del nuevo registro que supuse estarán en D2 y E2
Quepaso.Offset(0, 1) = Range("D2").Value
Quepaso.Offset(0, 2) = Range("E2").Value
End If
Set Quepaso = Nothing
End Sub
Saludos
Elsa
*** No te pierdas el manual '200 Macros para Excel explicadas en español' en: http://es.geocities.com/lacibelesdepunilla/macros
