santiagomf

Puedes usar las propiedades del rango 'Columns. Count' y 'Rows. Count'. El resto, ya lo sabrás: Option Explicit Sub generarFicheroTexto(ByRef rangoDatos As Range) Dim nFil As Integer Dim nCol As Integer ' ... ' ... ' ... For nFil = 1 To...

Por lo que veo has mandado la consulta tanto por Excel como por Access. Te indico la solución con Excel y si necesitases en Access ya lo veríamos (ahora descartaré la pregunta de Access). Lo que tienes que hacer es definirte unas funciones para sumar...

¿A qué te refieres con eso de un formulario dividido? ¿Hablas de Excel o de Access? Por lo que comentas me da la impresión que te refieres un formulario con subformulario/s en Access, pero confírmamelo tu. Por lo que dices, si filtras por una fecha y...

Puedes poner en la propiedad filtro del formulario lo siguiente: Fecha in (select max(fecha) from comentarios) Y después activar los filtros del formulario.

Si tienes el nombre en A1 puedes coger las dos primeras palabras (los apellidos) con: =SI(ESERROR(ENCONTRAR(" ";A1));A1;SI(ESERROR(ENCONTRAR(" ";A1;ENCONTRAR(" ";A1)+1));A1;IZQUIERDA(A1;ENCONTRAR(" ";A1;ENCONTRAR(" ";A1)+1)-1))) El resto del texto de...

Si no te he entendido mal, este podría ser el código que necesitas. Cópialo a un módulo de tu hoja de cálculo y lo puedes ejecutar como una macro. Un saludo Option Explicit Sub copiarLineasDeBaseEnEntrega() Dim nLinIni As Long Dim nLinFin As Long Dim...

Por lo que comentas, los datos que tienes grabados en tu hoja de cálculo no están muy bien organizados para guardarlos en una base de datos. Si quieres, envíame una muestra (con 10 o 20 discos) en un fichero comprimido a [email protected]. Si es...

Es casi seguro que tu ¿botón? Ya no se llama 'Button 1'. Seguramente será 'Picture 1'. Lo mejor, para que no haya fallos si cambias el tipo del objeto es que pongas: ActiveSheet. Shapes(1). Delete

(Me ha costado leer tu mensaje) Entiendo que los nombres están ordenados. Que si 'luis' está en la fila 1,2,3 y 16, los 3 primeros llevan el valor 1 y el de la fila 16 tendrá el número que corresponda (del 3 en adelante). Siendo así, en la celda C1...

Con este procedimiento haces lo que quieres. Un saludo Option Explicit Sub eliminaLineasDuplicadasColumnaA() ReDim matValoresA(1 To 65536) As Variant Dim nValoresA As Long Dim aux As Variant Dim i As Integer Dim nLin As Long nLin = 1 nValoresA = 0 '...