Encontrar un número ingresado desde un ComboBox en una tabla con datos y reemplazar el contenido de la celda adyacente en la tabla

Hola Gente del Foro:

Tengo el siguiente problemita. Tenga un UserForm con un ComboBox. En la
lista del combobox hay números de registro (por ejemplo 25, 564, 875,
etc).
Lo que necesito es que al clickear un CommandButton el código haga lo
siguiente: busque el número elegido en el combobox en una base de datos
con
registros que se encuentra en una hoja llamada "Datos" (el número de
registro se encuentra en la columna H) y luego reemplaze en esa fila en la
columna de al lado (la I) la letra que allí se encuentra por la letra "X".
Por ejemplo: en el combobox se selecciona el número 564 y se clickea el
botón. El resultado deseado es: el registro 564 que se encuentra en la
hoja
"Datos" tenía en el campo "Condición" (columna I) la letra "P" y ahora
cambiará a tener allí la letra "X".
He intentado con varios códigos usando .Find pero en todos me da error ya
que hay algo que seguramente hago mal pero no tengo el conocimiento para
solucionarlo. También probé con .Replace, pero con el agravante que no se
como explicarle al código que la celda que yo quiero reemplazar no es la
que
se encuentra el número de registro (columna H) sino la de al lado (columna
I).
Espero me haya explicado bien.
Desde ya muchas gracias por su atención.

Mariano

CONTADURIA

Prueba este código ysi te sirve adaptalo a tu Formulario:
Sub BuscaNum()
Dim fila As Integer
Dim miNum As String
miNum = InputBox("Número a buscar.", "AnSanVal", 565)
If miNum = "" Then Exit Sub
fila = Worksheets(2).Range("H:H").Find(miNum).Row
Cells(fila, 9).Value = "X"
End Sub

Saludos desde Tenerife (España)
*****************************
"Insumos" escribió en el mensaje
news:
> Hola Gente del Foro:
>
> Tengo el siguiente problemita. Tenga un UserForm con un ComboBox. En la
> lista del combobox hay números de registro (por ejemplo 25, 564, 875,
> etc).
> Lo que necesito es que al clickear un CommandButton el código haga lo
> siguiente: busque el número elegido en el combobox en una base de datos
> con
> registros que se encuentra en una hoja llamada "Datos" (el número de
> registro se encuentra en la columna H) y luego reemplaze en esa fila en

> columna de al lado (la I) la letra que allí se encuentra por la letra

> Por ejemplo: en el combobox se selecciona el número 564 y se clickea el
> botón. El resultado deseado es: el registro 564 que se encuentra en la
> hoja
> "Datos" tenía en el campo "Condición" (columna I) la letra "P" y ahora
> cambiará a tener allí la letra "X".
> He intentado con varios códigos usando .Find pero en todos me da error

> que hay algo que seguramente hago mal pero no tengo el conocimiento para
> solucionarlo. También probé con .Replace, pero con el agravante que no

> como explicarle al código que la celda que yo quiero reemplazar no es la
> que
> se encuentra el número de registro (columna H) sino la de al lado

> I).
> Espero me haya explicado bien.
> Desde ya muchas gracias por su atención.
>
> Mariano
>
> CONTADURIA
>
>

hola,

prueba a usar esta funcion facilitada (+o-) hace tiempo (creo recordar
que) por Hector Miguel (lo que si es seguro es que el me proporciono
otra via mas rapida usando creo que 'evaluate' y 'Match' pero ahora
mismo no lo recuerdo/hayo)

te devuelve la fila en la que se encuentra el valor buscado->

Function FilaNro(ByVal Nro As Long, ByVal Rango As Range) As Long
On Error Resume Next
With Rango
FilaNro = .Find(Nro, .Cells(1, 1), xlFormulas, xlWhole).Row
End With
End Function

puedes usarla mas o menos (y p. ej) asi ->

sub Cambiar
Dim f as long, ulF as long
with tuHoja
ulF = .[h65536].end(xlup).row
f=filaNro( cLong(tuTextBox), .range("h2:h" & ulF))
if f = 0 then msgbox "No se ha encontrado el valor buscado":
exit sub
.range("i" & f)= lo que tu quieras
end with
end sub

solo (creo) ten en cuenta que los valores/datos en la columna a buscar
sean unicos y que si estas buscando en una colummna con valores
numericos, el textbox te devuelve un String, por lo que has de
convertirlo a valor ( con val, cLong, etc)

tambien puedes consultar Find por si quieres ampliar/cambiar los
argumentos que te he puesto

espero te ayude, y si quieres comentas
un saludo y hasta pronto
Ivan