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

Insertar valor de celda en código de macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Insertar valor de celda en código de macro

Mensaje por WARCRAFT el Miér Mar 27, 2013 7:58 am

Buenas:
Alguien puede echarme una mano, necesito incorporar a este código de una macro la posibilidad de que la fecha pueda cambiarla en una celda, por ejemplo la celda H1 de la hoja1, donde pone el 15 de abril de 2013. Mi objetivo es conseguir que el código de la macro se actualize según el valor de esa celda y poder ejecutarla sin tener que cambiar cada mes el código de la macro, ni tampoco crear una macro para cada mes.
Muchas gracias

Sub filtro_fecha()
Sheets("Hoja1").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$E$30").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Range("$A$1:$E$30").AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(1, "4/15/2013")
End Sub
Archivos
fecha.xlsm No tienes los permisos para descargar los archivos.(17 KB) Descargado 11 veces


Última edición por WARCRAFT el Miér Mar 27, 2013 7:59 am, editado 1 vez (Razón : adjuntar fichero)
avatar
WARCRAFT

Masculino Cantidad de envíos : 8
Edad : 55
Ciudad - Pais : Madrid - España
Version de Excel : 2007
Fecha de inscripción : 08/04/2008

Volver arriba Ir abajo

Re: Insertar valor de celda en código de macro

Mensaje por Tatayayan el Lun Abr 01, 2013 11:38 pm

Hola, creo haberlo respondido en otro foro, éste código va en el objeto thisworkbook

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim UltFila As Long, FechaString As String
UltFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
FechaString = Month(Range("H1").Value) & "/" & Day(Range("H1").Value) & "/" & Year(Range("H1").Value)
ActiveSheet.Range("$A$1:$E$" & UltFila).AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Range("$A$1:$E$" & UltFila).AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(1, FechaString)
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Insertar valor de celda en código de macro

Mensaje por WARCRAFT el Mar Abr 02, 2013 4:26 am

Buenas ¿Adrian?
Efectivamente tengo la respuesta correcta en el otro foro, aqui acudí por si era necesario el auxilio del maestro Gali, pero tu respuesta fue perfecta. Gracias de nuevo
avatar
WARCRAFT

Masculino Cantidad de envíos : 8
Edad : 55
Ciudad - Pais : Madrid - España
Version de Excel : 2007
Fecha de inscripción : 08/04/2008

Volver arriba Ir abajo

Re: Insertar valor de celda en código de macro

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.