Macros
Necesito saber como puedo hacer con macros que me busque una palabra en una hoja de calculo que la compare si existe en otra y si existe rellene los datos que contenga la original me es super urgente de ante mano muchas gracias
Saludos
Saludos
Respuesta de cai_man
1
Prueba este código, primero modifica la macro para decirle en que hojas tiene que realizar la búsqueda, si ese dato no existe saldrá un mensaje avisando, si existe cojera el valor de la celda contigua en la hoja inicial y lo insertara en la celda contigua destino (si existe) de la segunda hoja
Sub Busqueda()
Rum = InputBox("Introduzca Palabra", "Búsqueda")
If Rum = "" Then
End
End If
Set Topo = ThisWorkbook.Sheets("Hoja1") 'Define aqui el nombre de la hoja donde se encuentra el dato de partida
Set Tapa = ThisWorkbook.Sheets("Hoja2") 'Aqui la Hoja destino
With Topo.Cells
Set c = .Find(Rum, LookIn:=xlValues)
If Not c Is Nothing Then
Dato1 = c.Offset(0, 1).Value
With Tapa.Cells
Set d = .Find(Rum, LookIn:=xlValues)
If Not d Is Nothing Then
d.Offset(0, 1).Value = Dato1
End If
End With
Else
MsgBox "Dato no encontrado", vbOKOnly, "Lastima"
End If
End With
End Sub
Si no es esto exactamente amplíame un poco la información.
Sub Busqueda()
Rum = InputBox("Introduzca Palabra", "Búsqueda")
If Rum = "" Then
End
End If
Set Topo = ThisWorkbook.Sheets("Hoja1") 'Define aqui el nombre de la hoja donde se encuentra el dato de partida
Set Tapa = ThisWorkbook.Sheets("Hoja2") 'Aqui la Hoja destino
With Topo.Cells
Set c = .Find(Rum, LookIn:=xlValues)
If Not c Is Nothing Then
Dato1 = c.Offset(0, 1).Value
With Tapa.Cells
Set d = .Find(Rum, LookIn:=xlValues)
If Not d Is Nothing Then
d.Offset(0, 1).Value = Dato1
End If
End With
Else
MsgBox "Dato no encontrado", vbOKOnly, "Lastima"
End If
End With
End Sub
Si no es esto exactamente amplíame un poco la información.
