Luis Mondelo

Modifica la propiedad COLUMNHEADS cambiándola a true dentro de las propiedades del objeto

Esta es tu solución: donde tienes escrito Range("b3").Select quítalo y pon esto: Range("b10000").end(xlup).offset(1,0).select No olvides cerrar la consulta y puntuar.

Creo que dejando las columnas como las tienes deberías hacer una tabla dinámica de esas columnas poniendo todos los campos de forma escalonada en el campo fila de la tabla dinámica. De esa manera tendrás un informe claro y agrupado a tu antojo. En...

Escribe la siguiente macro en el libro 1 y llámala Auto_open(), de la misma manera que yo la he escrito: (lo único que tienes que poner es el nombre del otro libro con su extensión) Importante: Los archivos debieran estar en el directorio...

Aquí tienes: Esta macro copia las filas de la hoja 1 en la hoja 2 examinando la fecha que contiene la primera celda de cada fila de la columna A. Si la fecha es de hoy copiará la fila a la hoja 2. Sub fecha_de_hoy() Sheets(1).Range("a1").Select Do...

Este sería el código necesario para que se lo adjudiques a un botón de formulario o un botón Activex sub ir_a_hoja() sheets("poner nombre de hoja").select end sub

Sencillo, hay que hacer el siguiente cambio: ?For i = 7 To lngHojas Arrrancamos en la hojra 7 conservando las 6 primeras

Pues aquí lo tienes. El ejemplo está creado empezando a construir la tabla desde la celda A1 y como lo indicas: [nº]---[nombre]----[puesto]--- [entrada]----[salida]-----entrada----salida....... y esta es la macro: Sub empleados() n =...

Aquí tienes la macro. Es un ejemplo para que la ejecutes en la celda activa. En mi ejemplo he estipulado un máximo de 10 caracteres y a partir del 11 los pondrá en negrita. Escribe una frase larga en una celda cualquiera, posiciónate encima de ella y...

Pues aquí tienes. Con esta macro se te abre un browser para que elijas el archivo donde están los datos que quieres copiar y seguidamente te lo copia en el tuyo a continuación del último dado que había. He contemplado que los datos se encuentran en...