Inserción de Filas Automática en Base a Criterios Excel

Necesitamos una constante en cada uno de los contactos, es decir, algo que se repita en todos los contactos.

Dime cuál es la constante, y en base a esa, puedo hacer la macro para dejar 6 filas para cada contacto.

Saludos. DAM

Estimado Experto:

Como bien dice usted, si existe una constante en todos los registros. Me he fijado bien en la fila de contactos y no se encuentra en la columna A como le comenté antes, sino en la columna B. En la Columna A, aparece el nombre de cada campo, a continuación le muestro un ejemplo.

Muchísimas Gracias por su ayuda.

COLUMNA A | COLUMNA B

Nombre | Pepe Rodriguez
Dirección | Calle Prueba, Nº 1
Web | http://www.web.es/
Notas | Notas del Contacto
Tlfn | 900000000
Email | [email protected]
Nombre | Jose Rodriguez
Web | http://www.web.com/
Notas | Notas del Contacto
Email | [email protected]
Nombre | Manuel Rodriguez
Web | http://www.net.es/
Email | [email protected]

¿Y cuál es la constante?

Ah disculpe, creía que la constante, es decir los datos que siempre se repiten son los de la Columna A. Que deberían de ser siempre los mismos:

-Nombre

-Dirección

-Web

-Notas

-Tlfn

-Email

Pero como le he comentado, hay campos que no existen, con lo cual, corren hacia arriba los demás campos, y al producirse eso, no podría utilizar la función transponer porque mezclaría datos de diferentes contactos en el mismo registro.

¿Pero la palabra "Nombre" siempre aparece?

Ah vale, ya le entiendo, si efectivamente, es el único campo que siempre se repite, los demás pueden existir o no.

Los datos Deberán cumplir lo siguiente:

1. Que tengan un campo llamado "Nombre",

2. Que los campos que aparezcan deberán estar en este orden, no importa que varios campos no se encuentren, pero los que si se encuentran deberán estar en este orden.

-Nombre
-Dirección
-Web
-Notas
-Tlfn
-Email

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: filas
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub filas()
'Por.DAM
d = Array("", "Email", "Tlfn", "Notas", "Web", "Dirección", "Nombre")
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    For j = 1 To 6
        If Cells(i, "A") = d(j) Then
            i = i - 1
        Else
            Rows(i + 1).Insert
            Cells(i + 1, "A") = d(j)
            Cells(i + 1, "B") = "'-"
        End If
    Next
    i = i + 1
Next
End Sub

Saludos.DAM
Si es lo que necesitas.