Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

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

11/04/2007 - 21:50 por Insumos | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 AnSanVal
11/04/2007 - 23:00 | Informe spam
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 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


Preguntas similares

 

Busqueda sugerida :