Hola, cómo están?

estoy intentando encontrar un macro que me permita buscar una palabra en la columna A y reemplazar el valor en la columna B de la misma fila

Cía	codigo
Chile	1
Argentina	2
Uruguay	3

Entonces se me abre el imput pongo argentina, se me abre un imput valor nuevo y pongo 10. Y me quedaría el siguiente resultado (mejor aún si me puedo parar arriba del valor y ya me traiga el imput automatico, es decir me paro sobre la celda A3 y cuando me sale el cartel del imput ya me autoaperece el valor Argetina, doy OK y paso al paso 2)

Cía	codigo
Chile	1
Argentina	10
Uruguay	3

intente con la siguiente Macro pero me cambia varios valores en la misma fila, es como que me toma el texto dentro de la celda, y necesito que solo me busque la palabra exacta y si no está me diga valor no buscado o algo asi.

--------------------------

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

----------------

desde ya muchas gracias! saludos.-

Abre el adjunto, selecciona la Cía por la que quieres empezar y pulsa la flecha azul.

Asignar código.xlsm

Hola el macro funciona bien, Esta perfecto! igualmente no lo pude trasladar a mi planilla por la complejidad de editarlo.

Hice otra macro, uno nuevo pero me da error. La macro me pide el día, el mes y el año lo traigo por defecto. Pero automáticamente me cambia el día por el mes. es decir pongo 2 --> 9 en vez de poner 2/9/2021 me pongo 9/2/2021

Sub CAMBIO_Fechas()

ActiveCell.Copy

Buscardato = InputBox("word to search")

Dim NroFila As Integer
Dim NroColumna As Integer

Sheets("Plan de Embarque").Activate

Sheets("Plan de Embarque").Range("I1").Select
    Cells.Find(What:=Buscardato, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

NroFila = ActiveCell.Row

NroColumna = ActiveCell.Column

Remplazoday = InputBox("Day to replace")
RemplazoMonth = InputBox("Month to replace")
Años = Year(Now())
Remplazo = Remplazoday & "/" & RemplazoMonth & "/" & Años

Range("AA" & NroFila) = Remplazo

Range("AA" & NroFila).NumberFormat = "d/m/yyyy"
      
Sheets("TD").Activate

End Sub

'....
'....
'....
Remplazoday = InputBox("Day to replace")
RemplazoMonth = InputBox("Month to replace")
Años = Year(Now())
Remplazo = Remplazoday & "/" & RemplazoMonth & "/" & Años
Range("AA" & NroFila) = CDate(Remplazo)      
Sheets("TD").Activate

End Sub

 

Hace 2 horas, Antoni dijo:

'....
'....
'....
Remplazoday = InputBox("Day to replace")
RemplazoMonth = InputBox("Month to replace")
Años = Year(Now())
Remplazo = Remplazoday & "/" & RemplazoMonth & "/" & Años
Range("AA" & NroFila) = CDate(Remplazo)      
Sheets("TD").Activate

End Sub

 

Perfecto!!! muchas gracias Antoni!! anda perfecto!