UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Pan Duro

avatar
Hola que tal buen día

tengo una bitácora de relación de finiquitos, pero necesito que a determinada fecha cuando el archivo sea abierto se eliminen todas las pestaña, o se elimine el acumulado de los finiquitos

espero me puedan ayudar

Saludos

Igtelo

avatar
Hola Pan duro.

Le sabemos un poco al Excel y VBA, pero como adivinos somos pésimos.
Lee las normas del foro y recomendaciones para hacer preguntas.

Éste codigo borra datos de todas las hojas a partir de la 2a. En la hoja 1 en celda A1 escribe la fecha en la cual se debe borrar. La macro va en Thisworkbook NO en módulo.

Private Sub Workbook_Open()
If Hoja1.[A1].Value = Date Then
For w = Sheets(2).Index To Sheets.Count
Sheets(w).Cells.Clear
Next
End If
End Sub


Saludos
Ignacio Téllez

3RESUELTO Gracias el 23/03/17, 01:59 pm

Pan Duro

avatar
Gracias por el aporte, soy nuevo en el foro

Se podría decir que soy bueno con el Excel pero
aun me falta mucho por descubrir

quisiera aprender a programar y en ests foros
si se aprende una que otra cosa

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.