Validar y Crear Libro y Hoja si no existen
Publicado por Luis (1 intervención) el 16/02/2021 15:29:08
Estimados,
Primero que todo muy buenas tardes a todos y les expongo mi duda:
Tengo un libro en el que tengo una macro (libro origen), esta macro debe verificar si existe un libro con un nombre definido en una celda del libro origen en la misma ruta que este, en el caso de que exista, debe verificar si existe una hoja con un nombre definido por una celda del libro origen, En el Caso de no existir el libro, debe crearlo con el nombre de la celda, en el caso de existir el libro y la hoja debe crear una nueva hoja llamada "copia" y dar un mensaje de alerta. El caso es que no logro hacer para que valide la existencia del libro o la hoja con mi código:
Muchas gracias de antemano.
Primero que todo muy buenas tardes a todos y les expongo mi duda:
Tengo un libro en el que tengo una macro (libro origen), esta macro debe verificar si existe un libro con un nombre definido en una celda del libro origen en la misma ruta que este, en el caso de que exista, debe verificar si existe una hoja con un nombre definido por una celda del libro origen, En el Caso de no existir el libro, debe crearlo con el nombre de la celda, en el caso de existir el libro y la hoja debe crear una nueva hoja llamada "copia" y dar un mensaje de alerta. El caso es que no logro hacer para que valide la existencia del libro o la hoja con mi código:
Muchas gracias de antemano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub copiar_hoja()
Dim wbOrigen As Workbook, wbDestino As WorkbookApplication.ScreenUpdating = False
Set wbOrigen = ThisWorkbooklibro = ActiveWorkbook.Path & "\" & "Cuadratura Spot " & wbOrigen.Sheets("CUADRATURA").Range("A2").Value & ".xlsx"
NomHoja = wbOrigen.Sheets("CUADRATURA").Range("A1").Value
If libro <> "" Then
Set wbDestino = Workbooks.Open(libro)
Else
Workbooks.Add.SaveAs Filename:=libro
End If
wbDestino.ActivateIf NomHoja = "" Then
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = NomHoja
Else
MsgBox "Ojo Hoja ya existe"ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Copia"
End If
wbOrigen.Sheets("CUADRATURA.").Range("A1:H48").Copy
wbDestino.ActivateSheets(Sheets.Count).Select
Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("a1").PasteSpecial Paste:=xlPasteFormats
Range("a1").PasteSpecial Paste:=xlPasteColumnWidths
Set wbOrigen = NothingSet wbDestino = NothingApplication.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
- Libro-Origen.zip(20,9 KB)
Valora esta pregunta
0