Error al linkear datos

hola, Mauricio !

Mostrar la cita

mediante un formulario alimento datos a una hoja de excel...estos datos son codigos de personas...
a medida que voy cargando los codigos en el formulario en otro textbox aparece el nombre y apellidos de estas personas...
sin embargo con 2 codigos (0979 - 0993)me aparece un error..."Run time error '91' Object Variable or With block variable not set"...

podrias exponer (al menos) la fraccion de codigo donde ocurre la falla ? (unas cuantas lineas anteriores vendrian bien)
y comentar si en el rango donde se hace la busqueda tienes datos texto... o numeros con formato personalizado
(p.e. los datos son exactamente del tipo 0979... o solo 979 co formato para mostrar 4 digitos) -?-

saludos,
hector.

Claro...olvide el código...el error se produce al momento de dar enter al
codigo ingresado en el textbox1la fracción de código que aparece en
amarillo en la aplicación al momento del error es a partir de Textbox2=

Private Sub TextBox1_AfterUpdate()
With Worksheets("sheet3")
If Application.CountIf(.Range("a:a"), _
TextBox1.Value) > 0 Then TextBox2 = _
.Range("a:a").Find(TextBox1.Value, .[a1], _
xlValues).Offset(, 9)
End With
End Sub
en la hoja ("sheet3")...tengo columnas con numeros y otras con texto...la
columna 9 a la cual debe hacer referencia el código ingresado ...Offset(,9)
son campos calculados...aqui se une la columna B y C...que son Nombre y
Apellido...ej. B7&" "&C7...esta columna 9 es la que se muestra en el textbox2
.en cuanto al rango la columna A solo tiene numeros y esta con Formato
General
Gracias por la ayuda



"Héctor Miguel" wrote:

Mostrar la cita

hola, Mauricio !

> mediante un formulario alimento datos a una hoja de excel...estos datos son codigos de personas...
> a medida que voy cargando los codigos en el formulario en otro textbox aparece el nombre y apellidos de estas personas...
> sin embargo con 2 codigos (0979 - 0993)me aparece un error..."Run time error '91' Object Variable or With block variable not set"...

podrias exponer (al menos) la fraccion de codigo donde ocurre la falla ? (unas cuantas lineas anteriores vendrian bien)
y comentar si en el rango donde se hace la busqueda tienes datos texto... o numeros con formato personalizado
(p.e. los datos son exactamente del tipo 0979... o solo 979 co formato para mostrar 4 digitos) -?-

saludos,
hector.

algo másal momento de ingresar los datos en el textbox1 del form...esto
lo hago con una lectora laser la cual esta programada con un enter despues
que termina el codigo de barras para ir haciendo la secuencia por cada
personatambien estaba pensando... la columna A tiene texto el
titulose llama codigo personal

"Mauricio" wrote:

Mostrar la cita

Claro...olvide el código...el error se produce al momento de dar enter al
codigo ingresado en el textbox1la fracción de código que aparece en
amarillo en la aplicación al momento del error es a partir de Textbox2=

Private Sub TextBox1_AfterUpdate()
With Worksheets("sheet3")
If Application.CountIf(.Range("a:a"), _
TextBox1.Value) > 0 Then TextBox2 = _
.Range("a:a").Find(TextBox1.Value, .[a1], _
xlValues).Offset(, 9)
End With
End Sub
en la hoja ("sheet3")...tengo columnas con numeros y otras con texto...la
columna 9 a la cual debe hacer referencia el código ingresado ...Offset(,9)
son campos calculados...aqui se une la columna B y C...que son Nombre y
Apellido...ej. B7&" "&C7...esta columna 9 es la que se muestra en el textbox2
.en cuanto al rango la columna A solo tiene numeros y esta con Formato
General
Gracias por la ayuda



"Héctor Miguel" wrote:

> hola, Mauricio !
>
> > mediante un formulario alimento datos a una hoja de excel...estos datos son codigos de personas...
> > a medida que voy cargando los codigos en el formulario en otro textbox aparece el nombre y apellidos de estas personas...
> > sin embargo con 2 codigos (0979 - 0993)me aparece un error..."Run time error '91' Object Variable or With block variable not set"...
>
> podrias exponer (al menos) la fraccion de codigo donde ocurre la falla ? (unas cuantas lineas anteriores vendrian bien)
> y comentar si en el rango donde se hace la busqueda tienes datos texto... o numeros con formato personalizado
> (p.e. los datos son exactamente del tipo 0979... o solo 979 co formato para mostrar 4 digitos) -?-
>
> saludos,
> hector.
>
>
>

hola, Mauricio !

1) no creo que exista (textualmente) "0979" en una columna de numeros con formato general (me explico):
a) en el codigo que expones "buscas" coincidencias de texto (TextBox1.Value) con el Application.CountIf
b) en tu consulta inicial refieres algunos casos especificos donde salta el error (p.e. al buscar 0979 - 0993)
c) en esta ampliacion de detalles comentas que la columna a contiene NUMEROS con formato general

2) no es claro (aun) si el "cero a la izquierda" es real/representativo/supuesto/obligado/... -???-
(probablemente) te serviria modificar en el codigo las referencias al contenido del TextBox1 (p.e.)
de: -> TextBox1.Value
a: -> Val(TextoBox1)

3) (posiblemente) alguna combinacion de lo anterior no esta siendo compatible con los metodos utilizados:
- TextBox1.Value <= (es contenido de texto)
- .Find(TextBox1.Value <= (sigue siendo comparacion de textos)
- Application.CountIf(... <= (es probable que lo este confundiendo)

comentas (si detectas) algun detalle/comportamiento/tipo de dato/... mas significativo ?
saludos,
hector.

__ la consulta original __
Mostrar la cita

...el error se produce al momento de dar enter al codigo ingresado en el textbox1
...la fraccion de codigo que aparece en amarillo en la aplicacion al momento del error es a partir de Textbox2=
Private Sub TextBox1_AfterUpdate()
With Worksheets("sheet3")
If Application.CountIf(.Range("a:a"), _
TextBox1.Value) > 0 Then TextBox2 = _
.Range("a:a").Find(TextBox1.Value, .[a1], _
xlValues).Offset(, 9)
End With
End Sub
en la hoja ("sheet3")...tengo columnas con numeros y otras con texto
... la columna 9 a la cual debe hacer referencia el codigo ingresado ...Offset(,9) son campos calculados
... aqui se une la columna B y C...que son Nombre y Apellido...ej. B7&" "&C7...esta columna 9 es la que se muestra en el textbox2
.en cuanto al rango la columna A solo tiene numeros y esta con Formato General

__ la consulta anterior __
Mostrar la cita

Mostrar la cita

> mediante un formulario alimento datos a una hoja de excel...estos datos son codigos de personas...
> a medida que voy cargando los codigos en el formulario en otro textbox aparece el nombre y apellidos de estas personas...
> sin embargo con 2 codigos (0979 - 0993)me aparece un error..."Run time error '91' Object Variable or With block variable not set"...

podrias exponer (al menos) la fraccion de codigo donde ocurre la falla ? (unas cuantas lineas anteriores vendrian bien)
y comentar si en el rango donde se hace la busqueda tienes datos texto... o numeros con formato personalizado
(p.e. los datos son exactamente del tipo 0979... o solo 979 co formato para mostrar 4 digitos) -?-