DA-Cómo copio hojas en vba poniéndoles nombres diferentes? Tengo una lista de 41 nombres
Necesito un botón que copie una hoja y la vaya guardando con diferentes nombres (41 nombres de una lista), por lo tanto necesito que haga 41 copias
1 respuesta
Respuesta de Dante Amor
En el mismo libro quiero copiar la hoja 2 44 veces y la lista está desde el rango A2 hasta la celda 45 y necesito un botón que copie la hoja 2 y le cambie los nombres a los de la lista. Lo intenté solucionar con 2 botones uno que copia y uno que cambia nombres pero preferiría solo uno que haga el trabajo.gracias !
H o l a:
¿La lista de nombres de hojas está en la misma hoja2 que se va a copiar?
Si es así, te anexo la macro:
Sub copiarHoja()
'Por.Dante Amor
Set h = Sheets("Hoja2")
For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row
existe = False
If h.Cells(i, "A") <> "" Then
nombre = Left(h.Cells(i, "A"), 30)
For Each hoja In Sheets
If UCase(hoja.Name) = UCase(nombre) Then
existe = True
Exit For
End If
Next
If existe = False Then
h.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nombre
End If
End If
Next
MsgBox "hojas copiadas"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
