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
 

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.

Preguntas similares