UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macros grabar y limpiar celdas el 23/12/16, 01:45 am

Titof


Holas amigos,
tengo plantilla factura con información pintado de color verde, lo que deseo es guardar todos los items en la hoja base y al presionar el botón se limpie las celdas, para ingresar la siguiente factura No. 2.
he desarrollado la macros pero algo esta mal.
adjunto archivo saludos.
Gcs
Archivos
PFACT.xlsm
No tienes los permisos para descargar los archivos.
(22 KB)

2RESUELTO Re: Macros grabar y limpiar celdas el 23/12/16, 10:58 am

servando


Buen día para tod@s.

He creado de nuevo el CommandButton "Registrar" y modificado algun offset y parece que todo va.

Un saludo desde Vitoria, Servando.

3RESUELTO Re: Macros grabar y limpiar celdas el 23/12/16, 01:25 pm

servando


Buenos días a tod@s.

Adjunto fichero no enviado en el correo anterior.

Saludos.
Archivos
PFACT-1.xls
No tienes los permisos para descargar los archivos.
(66 KB)

4RESUELTO Macros grabar y limpiar celdas el 24/12/16, 09:14 am

Titof


Hola  Servando,

Al ejecutar botón me sale este mensaje: se ha producido el error 1004 en tiempo de ejecución  por la aplicación del objeto.
en la macros lineas abajo lo pinta de amrillo, que sera?

filalibre = Sheets("BASE").Range("A1048576").End(xlUp).Row + 1

slds,

5RESUELTO Re: Macros grabar y limpiar celdas el 24/12/16, 09:24 am

servando


Buen día para tod@s.

Como estamos en un Excel .xls el número de filas de la hoja es 65536.
Tenemos que cambiar esta línea :
filalibre = Sheets("BASE").Range("A1048576").End(xlUp).Row + 1
y poner:
filalibre = Sheets("BASE").Range("A65536").End(xlUp).Row + 1

Lo he probado y a mi me funciona.

Un saludo desde Vitoria, Servando.

6RESUELTO Macros grabar y limpiar celdas el 25/12/16, 11:08 am

Titof


Hola Servando,
Funciona, mas bien tengo otras inquietudes. pero mas adelante abro nuevo tema.
Feliz Navidad!! y a todo el equipo.
Gcs

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.