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.
Sub copiar_hoja()
Dim wbOrigen As Workbook, wbDestino As Workbook
Application.ScreenUpdating = False
Set wbOrigen = ThisWorkbook
libro = 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.Activate
If 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.Activate
Sheets(Sheets.Count).Select
Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("a1").PasteSpecial Paste:=xlPasteFormats
Range("a1").PasteSpecial Paste:=xlPasteColumnWidths
Set wbOrigen = Nothing
Set wbDestino = Nothing
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
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.
Sub copiar_hoja() Dim wbOrigen As Workbook, wbDestino As Workbook Application.ScreenUpdating = False Set wbOrigen = ThisWorkbook libro = 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.Activate If 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.Activate Sheets(Sheets.Count).Select Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("a1").PasteSpecial Paste:=xlPasteFormats Range("a1").PasteSpecial Paste:=xlPasteColumnWidths Set wbOrigen = Nothing Set wbDestino = Nothing Application.ScreenUpdating = True Application.CutCopyMode = False End SubLibro Origen.xlsm