Funciona en excel 2003 y no funciona en excel xp

27/06/2006 - 22:56 por Quber | Informe spam
El siguiente procedimiento me funciona en excel 2003 y no en el excel xp,
concretamente en la funcion "Mid", me dice que no se encuenta en
procedimiento en la biblioteca. ¿que es lo que me falta?, no veo que use
ningún complemento especial del 2003.

Private Sub buscarfactura()
'Sheets("Libro Base Datos").Select
ActiveWorkbook.Sheets(3).Activate 'selecciona la Hoja 1
Range("C2").Select
'el control se hará sobre la columna c, a partir de la fila
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
'si la celda contiene datos, pasa a la fila siguiente
Wend
ActiveCell.Offset(-1, 0).Select
'guarda en la variable filalibre el número de la primer fila sin datos.
'muestra el valor en celda "B2"
'Range("B2") = filalibre
numero = Mid(ActiveCell.Value, 3, 3)
'MsgBox ActiveCell.Value
t_numeroFactura.Value = Val(numero) + 1
End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
28/06/2006 - 02:12 | Informe spam
hola, jesus ?

El siguiente procedimiento me funciona en excel 2003 y no en el excel xp, concretamente en la funcion "Mid"
me dice que no se encuenta en procedimiento en la biblioteca. que es lo que me falta?
no veo que use ningun complemento especial del 2003...



[hasta donde se]... cuando un codigo 'se#ala' como 'causa de error' a las funciones 'basicas' de vba [como right, mid, etc.]...
[generalmente] se debe a referencias 'perdidas' que vba no puede 'resolver' :((
-> [en 'ese' pc o proyecto de macros] busca en las referencias de vba [herramientas / referencias]...
alguna/s que 'diga/n' que su referencia esta 'perdida' => missing: -o- falta: < si se trata de alguna de las 'normales', pudiera ser necesario 're-registrar' excel [en el registro de windows]
-> desde el boton inicio -> ejecutar -> excel /regserver
-> otra [posible] causa del error seria si [p.e.] al 'simplemente' iniciar excel NO 'aparece' el [normal] libro en blanco
[en ese caso] pudiera tratarse de algun virus que se 'auto-carga' desde algun directorio de inicio [xlstart???]

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Quber
28/06/2006 - 02:33 | Informe spam
Gracias por la respuesta, mañana lo probare en en trabajo.

Descarto el virus, porque es una instalacion nueva del win 98 se y excel xp
standard, además le instalé los servipack 1 y 2.

Me decanto por la referencia perdida, pero, ¿como se añade esa referencia
perdida?, ¿de donde la saco?
Respuesta Responder a este mensaje
#3 Héctor Miguel
28/06/2006 - 02:42 | Informe spam
hola, jesus ?

Me decanto por la referencia perdida, pero, como se a#ade esa referencia perdida?, de donde la saco?



1) en el mismo punto de la posibilidad de referencias perdidas en el proyceto de macros... dice...
si se trata de alguna de las 'normales', pudiera ser necesario 're-registrar' excel [en el registro de windows]
-> desde el boton inicio -> ejecutar -> excel /regserver



2) otra alternativa pudiera ser ejecutar desde el menu de ayuda, la opcion de 'detectar y reparar...'

comentas si lo anterior no te llegara a solucionar 'el problema' ?
saludos,
hector.
Respuesta Responder a este mensaje
#4 Quber
28/06/2006 - 21:51 | Informe spam
Gracias por la respuestas, ya lo solucione.

Efectivamente fui a referencias y vi que faltaba "microsoft windows Common
controls 26-0", y gracias al google consegui bajarme un archivo con
extension ".cab". lo descomprimi, y salieron dos archivos, uno de ellos con
extension .inf, sobre ése con el boton derecho del raton le di a instalar, y
tema solucionado.

Me costó mucho encontrar la solución, creo que la ayuda de windows debería
mejorar un poco más, llevaba tres días dandole vueltas al asunto y no
entendia porque no funcionaba.
Respuesta Responder a este mensaje
#5 Héctor Miguel
29/06/2006 - 00:23 | Informe spam
hola, jesus ?

... fui a referencias y vi que faltaba "microsoft windows Common controls 26-0"
... gracias al google consegui bajarme un archivo con extension ".cab". lo descomprimi, y salieron dos archivos
... uno de ellos con extension .inf, sobre ese con el boton derecho del raton le di a instalar, y tema solucionado.
... costo mucho encontrar la solucion, creo que la ayuda de windows deberia mejorar un poco mas
... llevaba tres dias dandole vueltas al asunto y no entendia porque no funcionaba.



[creo que]... seria conveniente que NO 'te quedes' con ese 'mal sabor' [a mi juicio]... 'equivocado' [me explico]...
te paso algunos comentarios y 'observaciones' que [espero] no tomaras 'a mal' :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) la biblioteca de objetos 'Common Controls'... NADA tiene que ver con las funciones 'basicas' de vba [mid, left, instr, etc.]
2) en el codigo que expusiste en tu consulta original... NO se 'aprecia' el uso de algun objeto de dicha libreria -?-
[solo hay una linea al final que 'dice' : -> t_numeroFactura.Value = Val(numero) + 1 que pudiera ser... ??? ]
3) 'dejarle' a windows [o a cualquiera otra aplicacion]... 'la carga' [o la responsabilidad] de 'averiguar E informar' [p.e.]
-> el porque no funciona... algun componente... -> que no esta instalado... -?-
4) te recuerdo que todas las aplicaciones 'te brindan' la oportunidad de DECIDIR cuales de sus componentes instalas [o no] ;)
por lo que si hay cambio de equipos... es probable que lo que TU necesitas [y programaste]... no se hubiera instalado -?-
5) esa expresion de: '...windows deberia...' [mas bien me sono a] como si hubieras comentado...
'yo conducia perfectamente en mi automovil automatico... pero... ahora que tengo un 'estandar'... no encuentro la reversa' :))
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida