Sustitución de una hoja por otra ...
Estimado experto resulta ser que cuando genero por primera vez la hoja con la macro si me lo hace pero al volver a generarla obvio, ya existe y deseo sobrescribir la ya existente con la nueva, envío lo que tengo de código a ver si me puedes auxiliar, gracias de antemano por la atención.
NombreHoja = Range("A11").Value
hoja_existe = False
For i = 1 To Sheets.Count
If Sheets(i).Name = NombreHoja Then
hoja_existe = True
Sheets("MENSUAL").Select
Sheets("MENSUAL").Copy Before:=Sheets(1)
Sheets("MENSUAL (2)").Select
Sheets("MENSUAL (2)").Name = NombreHoja
Application.CutCopyMode = False
ActiveWorkbook.Save
'MsgBox ("Hoja <" + NombreHoja + "> ya existente")
End If
Next
If Not hoja_existe Then
Sheets("MENSUAL").Select
Sheets("MENSUAL").Copy Before:=Sheets(1)
ActiveSheet.Name = "31DM0000BQNV4004"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
End If
NombreHoja = Range("A11").Value
hoja_existe = False
For i = 1 To Sheets.Count
If Sheets(i).Name = NombreHoja Then
hoja_existe = True
Sheets("MENSUAL").Select
Sheets("MENSUAL").Copy Before:=Sheets(1)
Sheets("MENSUAL (2)").Select
Sheets("MENSUAL (2)").Name = NombreHoja
Application.CutCopyMode = False
ActiveWorkbook.Save
'MsgBox ("Hoja <" + NombreHoja + "> ya existente")
End If
Next
If Not hoja_existe Then
Sheets("MENSUAL").Select
Sheets("MENSUAL").Copy Before:=Sheets(1)
ActiveSheet.Name = "31DM0000BQNV4004"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
End If
1 respuesta
Respuesta de santiagomf
1