Eliminar una hoja excel segun valor celda
Quiero ejecutar una macro o instrucción quew haga quew se elimine una hoja de un workbook de excel dependiendo del valor de una celda. Por ejemplo: que si la celda a1 de la hoja 1 es mayor a 10, la hoja 2 sea eliminada.
Hasta ahora tengo una parte de la instrucción:
Worksheet("Hoja1").Select
If Range(a1) > 10 Then
Worksheet("prueba").Kill
La verdad no se como terminarla.
2 Respuestas
No estás indicando en qué momento o evento querrás realizar esta tarea.
Te dejo las 2 instrucciones que necesitas para esto en una macro de ejemplo ... en lugar de Kill se utiliza Delete para hojas. Kill es para eliminar libros.
Tampoco hace falta seleccionar la hoja para hacer la consulta.
Sub eliminaHoja()
'x Elsamatilde
'impide la aparición del mensaje o aviso al eliminar hojas
Application.DisplayAlerts = False
If Sheets("Hoja1").[A1] > 10 Then Sheets("Hoja2").Delete
End SubSdos y no olvides valorar la respuesta (Excelente o buena) para darla por cerrada.
¡Gracias! La modifiqué y la monte a un command buttom que a su vez abre la aplicación que necesito caducar a los 10 usos.
Gracias!
H o l a
te paso la macro
Sub eliminar_hoja()
'//Por Adriel Ortiz
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set h1 = Sheets("Hoja1")
dato = h1.[A1]
If dato = "" Then
MsgBox "captura un dato"
Exit Sub
End If
'
Select Case dato
Case Is > 10
Sheets("Hoja2").Delete
End Select
Application.ScreenUpdating = True
End SubPara finalizar hay 2 opciones Excelente o buena para finalizar saludos!
¡Gracias!
Ya integre esta macro a un boton que cuenta los usos sde esa hoja. al llegar a 10 la hoja se elimina. MUCHAS GRACIAS.