Comprobar si existe una hoja VBA
Hola Expertos,
Tengo un problema en el código. Quiero que me comprueba si no existe una hoja que me ejecute unas cosas sino que me ejecute otras.
El código que he puesto es el siguiente, a ver donde fallo.
Sub ExtraerBaseDeDatos()
If Sheets("Ext Base de Datos") Is Nothing Then
Sheets("Base de Datos").Select
Sheets("Base de Datos").Copy Before:=Sheets(1)
Sheets("Base de Datos (2)").Select
Else
Call BorraHojaExtBaseDeDatos
Sheets("Base de Datos").Select
Sheets("Base de Datos").Copy Before:=Sheets(1)
Sheets("Base de Datos (2)").Select
End If
Sheets("Base de Datos (2)").Name = "Ext Base de Datos"
'Sheets("Base de Datos").Visible = xlVeryHidden 'Ocultar Hoja Base de Datos
End Sub
1 Respuesta
Este sería el procedimiento:
Te limitarás a ejecutar la macro: busca_hoja y ella sola llamará a la macro acto para ejecutar un código si existe la hoja u otro si no existe. (En su lugar he colocado unos msgbox)
Public control Sub busca_hoja() control = 0 For Each hoja In ActiveWorkbook.Sheets If hoja.Name = "ext base de datos" Then control = 1 End If Next accion End Sub Sub acto() If control = 1 Then MsgBox "hacemos cosas por estar la hoja" Else MsgBox "hacemos cosas por NO estar la hoja" End If End Sub
no olvides finalizar la consulta
