Macro en Excel que cree nuevas hojas de nombre relacionado al anterior
Quiero crear una macro a una hoja de excel donde cada pestaña es una semana p.ej: WK1, WK2, ...
Y que cree una nueva hoja copiando la semana anterior y que la llame Cómo la siguiente semana.
Es decir, si la hoja que copiamos es WK1 que la nueva que crea y pega los datos se llame WK2.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Copiar_Hoja_Semana() 'Por Dante Amor prefijo = "wk" ' wmax = 0 For Each h In Sheets largo = Len(prefijo) If LCase(Left(h.Name, largo)) = LCase(prefijo) Then num = Val(Mid(h.Name, largo + 1)) If num > wmax Then wmax = num End If End If Next If wmax = 0 Then MsgBox "No existe ninguna hoja con el prefijo : " & prefijo Else nueva = prefijo & wmax + 1 anter = prefijo & wmax Sheets(anter).Copy after:=Sheets(anter) ActiveSheet.Name = nueva MsgBox "Hoja creada con el nombre : " & nueva End If End Sub
