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