Buscar y Reemplazar en gangos y hojas determinadas
Hola a los Expertos...
Quisiera utilizar esta una macro pero tengo unos inconvenientes ... A continuación les paso la macro que tengo...:
Sub buscar()
buscado = Application.InputBox("Indique su busqueda", Type:=2)
If buscado = "" Then Exit Sub
Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
resp.Activate
End If
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
resp.Activate
End If
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
End Sub
¿Cómo verán esta macro busca y reeplaza la celda del costado, osea si busca 45 y se encuentra en A45 borra el contenido de B45... Hasta ahí bien pero cundo pongo un numero a buscar se cierra y tengo que activarla de nuevo para hacer la siguiente búsqueda... Quisiera poder poner todas las búsquedas que desee y luego cerrarla manualmente... Lo segundo seria que me gustaría modificar la macro para que busque en determinada hoja y rango... Se puede...?
Desde ya muy agradecido ...
Ricardo
Quisiera utilizar esta una macro pero tengo unos inconvenientes ... A continuación les paso la macro que tengo...:
Sub buscar()
buscado = Application.InputBox("Indique su busqueda", Type:=2)
If buscado = "" Then Exit Sub
Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
resp.Activate
End If
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
resp.Activate
End If
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
End Sub
¿Cómo verán esta macro busca y reeplaza la celda del costado, osea si busca 45 y se encuentra en A45 borra el contenido de B45... Hasta ahí bien pero cundo pongo un numero a buscar se cierra y tengo que activarla de nuevo para hacer la siguiente búsqueda... Quisiera poder poner todas las búsquedas que desee y luego cerrarla manualmente... Lo segundo seria que me gustaría modificar la macro para que busque en determinada hoja y rango... Se puede...?
Desde ya muy agradecido ...
Ricardo
1 Respuesta
Respuesta de paramisolo
1