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 ?

Mostrar la cita
[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.
#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?
#3 Héctor Miguel
28/06/2006 - 02:42 | Informe spam
hola, jesus ?

Mostrar la cita
1) en el mismo punto de la posibilidad de referencias perdidas en el proyceto de macros... dice...
Mostrar la cita
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.
#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.
#5 Héctor Miguel
29/06/2006 - 00:23 | Informe spam
hola, jesus ?

Mostrar la cita
[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' :))
Ads by Google
Search Busqueda sugerida