Macro que valide títulos y arrastre con cantidades

H o l a:

Tengo algunas dudas:

1. ¿En cuál fila empiezan los datos?
2. ¿En cuál columna empiezan los datos?
3. Cómo saber que el dato se refiere a un nombre o a un número, ¿hay algo que indique en la fila hay puros nombre o números?
4. ¿El orden de las columnas importa?, es decir, acomodaste el el orden según lo que tienes en la última fila con nombres:

Hugo, armando, cris, brian, brenda.

Pero no necesariamente la fila con más nombres contiene todos los nombre, podrías tener en una 1:

Hugo, pepe

Y una fila 2:

Hugo, armando, cris, brian, brenda.

Entonces, ¿cómo acomodarías a pepe? Podría ser así, por orden de aparición

Hugo, pepe, armando, cris, brian, brenda.

E spero tus comentarios en ese orden.

sal u dos

¡Gracias! 

A             B         C                     D           E               F

HUGO               ARMANDO    CRIS      BRIAN    BRENDA

    45                          64               15           10            25

HUGO               ARMANDO     CRIS      BRIAN    BRENDA

   17                           23               25            62             18

HUGO  PEPE    ARMANDO    CRIS      BRIAN     BRENDA

   16         10            12                15           16                26

la letras arriba son las columnas pero también quiero que acomode las cantidades no se si viste el archivo de excel que te mande.

Gracias

Podrías responderme las dudas en este orden:

1. ¿En cuál fila empiezan los datos?
2. ¿En cuál columna empiezan los datos?
3. Cómo saber que el dato se refiere a un nombre o a un número, ¿hay algo que indique en la fila hay puros nombre o números?
4. ¿El orden de las columnas importa?, es decir, acomodaste el el orden según lo que tienes en la última fila con nombres:

Hugo, armando, cris, brian, brenda.

Pero no necesariamente la fila con más nombres contiene todos los nombre, podrías tener en una 1:

Hugo, pepe

Y una fila 2:

Hugo, armando, cris, brian, brenda.

Entonces, ¿cómo acomodarías a pepe? Podría ser así, por orden de aparición

Hugo, pepe, armando, cris, brian, brenda.

No tengo tu archivo.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Hugo Mandujano Alcala” y el título de esta pregunta.

¡Gracias! 

Ya te mande el correo que mencionas con el archivo.

Muchas Gracias por tu atención

Hola Dante.

Perdón la existencia se que estas muy ocupado, a la mejor estas trabajando en ello, se pudo hacer algo con el macro

H o l a:

Te envié un correo con unas dudas. Estoy esperando que respondas mi correo.

H o l a:

Te anexo la macro

Sub ElDespues()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    h2.Cells.Clear
    k = 2
    '
    For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
        If Not IsNumeric(h1.Cells(i, "A")) Then
            For j = 1 To h1.Cells(i, Columns.Count).End(xlToLeft).Column
                Set b = h2.Rows(1).Find(h1.Cells(i, j), lookat:=xlWhole)
                If Not b Is Nothing Then
                    col = b.Column
                Else
                    col = h2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
                    h2.Cells(1, col) = h1.Cells(i, j)
                End If
                h2.Cells(k, col) = h1.Cells(i, j)
            Next
            fila = i
        Else
            For j = 1 To h1.Cells(i, Columns.Count).End(xlToLeft).Column
                nom = h1.Cells(fila, j)
                Set b = h2.Rows(1).Find(h1.Cells(fila, j), lookat:=xlWhole)
                If Not b Is Nothing Then
                    col = b.Column
                    h2.Cells(k, col) = h1.Cells(i, j)
                End If
            Next
        End If
        k = k + 1
    Next
    h2.Columns(1).Delete
    h2.Rows(1).Delete
    h2.Select
    MsgBox "fin"
End Sub

sal u dos