............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

CADUCAR HOJA DE EXCEL

Ver el tema anterior Ver el tema siguiente Ir abajo

CADUCAR HOJA DE EXCEL

Mensaje por ROMAN1976 el Vie Jun 22, 2012 12:26 pm

ESTOY UTILINZADO ESTA FORMULA MACRO EN EXCEL 2003 PARA CADUCAR HOJAS DE EXCEL QUE BAJE DE ESTE FORO, LO QUE QUISIERA SABER ES SI HAY POSIBILIDAD DE SACARLE EL NOMBRE DEL LIBRO (RESALTO EN COLOR) YA QUE PARA CADA UNO TENGO QUE CAMBIAR EL NOMBRE DE LAS PLANILLAS QUIERO ALGO MAS SENCILLO SOLO QUE VALIDE ENTRE FECHAS Y CUANDO LLEGA EL TIEMPO QUE ELIMINE LA HOJA O TODAS LAS HOJAS (LA VALIDACION LAS TOMA DE DOS FECHAS EN B1 (FORMULA +HOY()) Y C1 COMO FECHA FIJA. LO QUE ME SERIA DE MUCHA UTILIDAD SI ME PONDRIAN UN CONTADOR QUE ME AVISE 5 DIAS ANTES QUE VA A CADUCAR PARA QUE EL USUARIO PUEDA PEDIRME LA CLAVE ANTES QUE SE BORRE, ESPERO ME PUEDAN AYUDAR Y DESDE YA MUCHAS GRACIAS.


Private Sub Worksheet_Activate()
Dim nombre As String
If Range("B1") >= Range("C1") Then
For Each sh In Workbooks("SEGUIMIENTO VISITAS-UEN-06").Windows(1).SelectedSheets
valor = sh.Name
Next
For x = 1 To Sheets.Count
If Sheets(x).Name <> valor Then
Sheets(x).Select
Sheets(valor).Delete
Exit For
End If

Next x

End If
End Sub

ROMAN1976

Masculino Cantidad de envíos : 2
Edad : 41
Ciudad - Pais : ROSARIO - SANTA FE
Version de Excel : 2003
Fecha de inscripción : 21/06/2012

Volver arriba Ir abajo

Re: CADUCAR HOJA DE EXCEL

Mensaje por GalileoGali el Dom Jun 24, 2012 8:48 am

Agregando esto ?
Private Sub Worksheet_Activate()
Dim nombre As String

If Range("B1")+5 >= Range("C1") Then msgbox "Faltan " & Range("C1")-Range("B1") & " dìas"
If Range("B1") >= Range("C1") Then
For Each sh In Workbooks("SEGUIMIENTO VISITAS-UEN-06").Windows(1).SelectedSheets
valor = sh.Name
Next

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

RESPUESTA A CADUCAR EXCEL

Mensaje por ROMAN1976 el Dom Jun 24, 2012 10:58 am

Galileo te agradezco funciono de maravillas lo de la leyenda.
El nombre del archivo no se puede sacar para no tener que cambiarlo en todas las hojas de calculo ?
Te pido disculpas pero no manejo nada de macros y no me queda mucho tiempo para ponerme a aprender aunque me encantaría tengo muchas aplicaciones en excel semi complejas o por lo menos para mi y todo los dias aparecen nuevas cosas.
SALUDOS

GalileoGali escribió:Agregando esto ?
Private Sub Worksheet_Activate()
Dim nombre As String

If Range("B1")+5 >= Range("C1") Then msgbox "Faltan " & Range("C1")-Range("B1") & " dìas"
If Range("B1") >= Range("C1") Then
For Each sh In Workbooks("SEGUIMIENTO VISITAS-UEN-06").Windows(1).SelectedSheets
valor = sh.Name
Next

ROMAN1976

Masculino Cantidad de envíos : 2
Edad : 41
Ciudad - Pais : ROSARIO - SANTA FE
Version de Excel : 2003
Fecha de inscripción : 21/06/2012

Volver arriba Ir abajo

Re: CADUCAR HOJA DE EXCEL

Mensaje por ioyama el Lun Jun 25, 2012 6:53 am

Hola Roman 1975

Si te he entendido bien , si usas algo como

Private Sub Worksheet_Activate()
Dim nombre As String
arch = ActiveWorkbook.Name
If Range("B1")+5 >= Range("C1") Then msgbox "Faltan " & Range("C1")-Range("B1") & " dìas"
If Range("B1") >= Range("C1") Then
For Each sh In Workbooks(arch).Windows(1).SelectedSheets
valor = sh.Name
Next

La mcro queda independiente del nombre del libro, ya uqe capturarás el nombre en cada ocasión.

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 53
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: CADUCAR HOJA DE EXCEL

Mensaje por federico ramirez marron el Lun Jun 25, 2012 3:51 pm

, Que bajaste de este foro para venderlos?, digo para venderlos, por que dices mas abajo que el usuario te pida la clave antes de que se le borre!!!! caray no pierdes el tiempo con el negocito

ESTOY UTILINZADO ESTA FORMULA MACRO EN EXCEL 2003 PARA CADUCAR HOJAS DE EXCEL QUE BAJE DE ESTE FORO ME SERIA DE MUCHA UTILIDAD SI ME PONDRIAN UN CONTADOR QUE ME AVISE 5 DIAS ANTES QUE VA A CADUCAR PARA QUE EL USUARIO PUEDA PEDIRME LA CLAVE ANTES QUE SE BORRE, ESPERO ME PUEDAN AYUDAR Y DESDE YA MUCHAS GRACIAS.




Galileo te agradezco funciono de maravillas lo de la leyenda.
El nombre del archivo no se puede sacar para no tener que cambiarlo en todas las hojas de calculo ?
GALI Te pido disculpas pero no manejo nada de macros y no me queda mucho tiempo para ponerme a aprender aunque me encantaría tengo muchas aplicaciones en excel semi complejas o por lo menos para mi y todo los dias aparecen nuevas cosas.
SALUDOS



Peladito y en la boca lo quieres, hasta pides disculpas por no manejar nada de macros, ya que no te queda mucho tiempo para aprender, entonces que los master lo hagan por ti, eso si que es abuso, y como dices tienes muchas aplicaciones semicomplejas, pues tienes un buen numero para sacarle jugo espero les compartas a los master, de tus utilidades.

Bueno al menos por lo menos yo , como he ido adquiriendo un poco mas de conocimientos en vba y excel, ´pues no necesito que me hagan mi chambita, solamente en donde necesito respuestas puntuales, eS donde hago esas preguntas.

Aprovecho para mandar un cordial saludo al master Gali, y demas colaboradores!!!






avatar
federico ramirez marron

Masculino Cantidad de envíos : 95
Edad : 43
Ciudad - Pais : acapulco, gro mexico
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: CADUCAR HOJA DE EXCEL

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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