Eliminar Hoja si existe usando VBA


Código para eliminar una Hoja si ya existe. Solamente habría que cambiar "Hoja1" por el nombre de la hoja que se desee eliminar.



NombreHoja = "Hoja1"
For Num = 1 To ActiveWorkbook.Sheets.Count
If Sheets(Num).Name = NombreHoja Then Application.DisplayAlerts = False
Next Num
If Application.DisplayAlerts = False Then Sheets(NombreHoja).Delete
Application.DisplayAlerts = True


Comentarios

Publicar un comentario

Entradas populares de este blog

Convertir un número en letra en español en Excel

Esta macro es una adaptación de la macro "How to convert a numeric value into English words in Excel" que Microsoft tiene colgada aquí https://support.microsoft.com/es-es/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber)     Dim Euros, Cents, Temp     Dim DecimalPlace, Count     ReDim Place(9) As String     Place(2) = " Mil "     Place(3) = " Millones "     Place(4) = " Mil Millones "     Place(5) = " Billones "     ' String representation of amount.     MyNumber = Trim(Str(MyNumber))     ' Position of decimal place 0 if nUn.     DecimalPlace = InStr(MyNumber, ".")     ' Convert cents and set MyNumber to dollar amount.     If DecimalPlace > 0 Then         Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _    ...
Leer más

Renombrar Archivos o Carpetas

Os traigo una macro para Excel que permite renombrar los archivos, las carpetas, e incluso mover los archivos  o las carpetas. Para que funcione en Excel debemos hacer dos columnas contiguas: en la primera pondremos la rutas que queramos cambiar (por ejemplo la Columna A), y  en la siguiente columna (es este caso Columna B) la nueva ruta. La macro va a empezar en la celda que estáis seleccionando (por ejemplo la celda A1) y continuando en las filas siguientes hasta la primera celda que esté en blanco. Este es el código: Sub RenombrarDirectorio() Ruta = "" Set Celda = Selection 'Abrir un While que funcione mientras la variable "celda" no este vacia While Celda <> ""     Name Ruta & Celda.Value As Ruta & Celda.Offset(0, 1).Value     Set Celda = Celda.Offset(1, 0) Wend End Sub Fijaros que la variable  Ruta  está vacía haciendo que se deba poner la ruta entera en la celda (p.e. C:\Prueba\Libro1.xlsx), pero si...
Leer más