Excel - Macro añadir columna

Macro añadir columna

Publicado por Marta (5 intervenciones) el 14/03/2022 16:34:34

Hola a tod@s.

Tengo un libro excel con varias hojas. Cada hoja tiene como nombre un año.
Quiero añadir en cada hoja una columna con dicho año.
Dejo un excel con lo que tengo y a donde quiero ir, para que entendáis lo que digo.

Supongo que se puede hacer una macro que coja el año del nombre de la hoja y añada la columna, o puede que haya otra forma más fácil de hacerlo.

Es fácil hacerlo a mano pero cansa cuando tienes muchos libros con 20 o 30 años y tienes que ir añadiendo
columna una a una.

Libro1.rar(27,4 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

Macro añadir columna

Publicado por Antoni Masana (2540 intervenciones) el 14/03/2022 18:09:45

Creo que esta macro es lo que necesitas.

Recorre todas las hojas del libro y pone el texto Año en la celda F5 si está vacía y rellena la columna con el número del año que saca de los 4 últimos caracteres del nombre de la hoja.

Sub Poner_Año()

    Dim Hoja, Fila As Long

    For Hoja = 1 To Sheets.Count

        With Sheets(Hoja)

            MsgBox .Name & vbCrLf & .Range("F5")

            If .Range("F5") = Empty Then

               .Range("F5") = "Año"

               Fila = 6

               While .Cells(Fila, "A") <> Empty

                   .Cells(Fila, "F") = Right(.Name, 4)

                   Fila = Fila + 1

               Wend

            End If

        End With

    Next

End Sub

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Macro añadir columna

Publicado por Marta (5 intervenciones) el 15/03/2022 01:02:44

Fantástico!!!
Todo perfecto.

Valora esta respuesta

Comentar

ayuda con inputbox, relacionada con metodo open

Encontrar X cantidad de números dentro de una lista que sumen un importe Y