Visual Basic para Aplicaciones - COMO RECONTAR EN UN LIBRO DE EXCEL UNA VEZ ELIMINADO UN REGISTRO

Buenas tardes Programadores.
1- Realice una rutina de eliminación en el Userform fmr_VerReg y al eliminar un registro no recuenta. Ejemplo: tengo 15 registros en la hoja de excel, elimino el registro Nº 13 y lo hace bien, pero no recuenta y modifica la cantidad de registros restantes en la hoja de excel ni el Listbox, siempre siguen estando 15 registro pero si se eliminó la posición 13.
2- Estoy tratando de realizar una rutina de Impresión. Quiero imprimir todos los registros de la hoja de calculo desde el Userform frm_Imprimir y también imprimir un rango de fechas. y imprimir un registro en particular y no tengo ni idea como hacerlo.
3- Como hago para que en el Userform frm_Menu al expandirlo para que ocupe toda la pantalla al abrir, los iconos del menú que coloque en el lado derecho se queden al extremo derecho y no a la mitad del Userform.

Por favor si pueden ayudarme, Gracias
Andrés Álvarez

Para entrar:
Usuario: paez
Pasword: paez45

Una vez en el menú principal hay un icono pequeño con una imagen de un hombre de traje click allí y colocar el mismo usuario y pasword, click en la X del Userform y entras al libro para programar.

• SOFTWARE-Ver.1.3-AA.rar(1,5 MB)

Punto - 1

La opción de eliminar parece que funciona bien pero no entiendo que es lo que quieres decir con que "no recuenta" .

Si tenias: 10, 11, 12, 13, 14 y 15 y borras el 13 tendrás: 10, 11, 12, 14 y 15 que es lo normal en estos casos y sia antes tenias 15 registros ahora tendrás 14.

Punto - 2

La hoja BDBIBLIOT es demasiado ancha para imprimirla tal cual, Es mejor crear un formato de impresión en otra hoja e ir copiando los datos.
E este formato cara registro puede ocupar varias lineas.

Punto - 3

No lo se

Saludos.
\\//_

Gracias. Por favor ve al userform de eliminar registros. Date cuenta el numero ultimo de registro en el listbox. ahora elimina un registro. y vuelve a ver el ultimo numero del listbox. veras que aun es el numero 15, a eso me refiero no remunera los registros restantes una vez eliminado uno.

Buenas

Punto 1
Para Recontar no hace falta mas que crear un for next que recuente los registros, esto si el numero de registro no es importante para despues culpar a alguien jajaja,

punto 2
Jugando con el diseño de la pagina se puede meter todo en una sola hoja pero tendrias que checar si la impresion es legible, de lo contrario tendras que hacer una hoja extra para el formato de impresion como te comenta Antoni Masana, te dejo un ejemplo para que veas como se imprime todo o el registro seleccionado, de lo del rango de fechas no vi donde le das oportunidad de elegir el rango de estas, si quieres diseñalo y ya te ayudo a programarlo

Punto 3
Para hacer que se muevan los botones o lo que sea que quieras mover es con la propiedad left, en mi lap quedo asi como vez se lo aplique al boton ingresar registro, otra cosa es que mi resolucion de pantalla es 1366 x 768, la verdad no se si se aplique bien a otra resolucion, vas a tener que hacer pruebas para varias resoluciones que se ocupen en tu trabajo y si no se adapta bien de esta forma no te quedara otra que hacer un estandar que se adapte a todas la resoluciones posibles.

Espero te ayude

Saludos

• SOFTWARE-Ver.1.3-AAA.zip(1,5 MB)