Error al cargar datos en un cuadro de texto dependiendo de una lista

Buenos días tengo una pequeña base de datos y requiere cargarlos en un formulario dependiendo de lo que tenga en una lista, este es el código que estoy utilizando pero me aparece error 1004 'error definido por la aplicación o el objeto' en la columna

Sheets("BD").Activate

Range("A1").Select

While Not ActiveCell.Value = txtcodigoplan 'Comparo si diferente al cuadro de texto

ActiveCell.Offset(1, 0).Select 'si la celda es diferente, pasa a la fila siguiente (aca me aparece el error )

Wend
Filaigual = ActiveCell.Row
txtcolaborador = Sheets("BD").Range("B" & Filaigual).Value

end sub

En la BD la columna A contiene los datos del txtcodigoplan y en la columna B esta el dato que quiero que traiga al txtcolaborador dependiendo del txtcodigoplan que encuentre.

De antemano muchas gracias por su ayuda

1 respuesta

Respuesta
1

El código está bien, aunque hay un modo mucho más rápido de buscar un dato que ir recorriendo fila x fila... como ya me cansé de explicar el uso de Set busco =... si te quedan ganas podes buscarlo en el buscador del foro o entre mis respuestas.

Continuando con tu método, seguramente tu bucle no se detiene... es muy probable que no encuentre el dato y como tu bucle no tiene fin al llegar a la fila 65536 o la que sea según tu versión te aparece el error.

Entonces las preguntas son: ¿Seguro qué encuentra el dato? ¿Seguro qué el valor de la col A es un valor texto? Xq si es numérico, debo recordarte que los txt son texto y para comparar con un nro 1º lo tenés que convertir, por ej:

While Not ActiveCell.Value = VAL(txtcodigoplan)

Comentame si esto resuelve tu problema.

PD) Encontrarás todos los bucles explicados y ejemplificados en mis manuales de Programación.

Hola, bueno antes que nada, mil gracias por la ayuda, agregue el VAL y quedo perfecto, lo segundo es felicitarla por compartir su conocimiento y tiempo, siempre de dejos me ha parecido la experta entre los expertos pero nunca el privilegio de una respuesta hasta hoy, nuevamente feliz dia y mil gracias

PD) Buscare entre sus ejemplo para mejorar el código, mil gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas