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 se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

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

1RESUELTO filtrar datos por fecha en texto el 15/09/15, 06:04 pm

josedd


saludos Comunida, tengo un problema con el frito porque lo tengo en la fecha en texto porque me piden q filtre esa fecha así por q los datos q binen de una base de datos vienen asi, solo seria eso para poder filtrar los datos para luego mandarlo a otro libro, gracias por su tiempo espero su pronta ayuda o solución o respuesta hay les dejo el archivo adjunto
 

Código:
Dim lFecha1 As Long, lFecha2 As Long
    
    lFecha1 = CDate(TextBox1.Text) 'Range("celFechaDe")
    lFecha2 = CDate(TextBox2.Text) 'Range("celFechaHasta")
    
    With ActiveSheet
        If .AutoFilterMode = True Then .AutoFilterMode = False
    End With
    
    Range("E1").AutoFilter Field:=5, Criteria1:=">=" & lFecha1, Operator:=xlAnd, Criteria2:="<=" & lFecha2
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim msg As String
    
    If Not IsDate(TextBox1.Text) Then
        msg = MsgBox("No ha insertado una fecha correcta, vuelva a insertarla", vbCritical + vbOKOnly, "Error en la Fecha")
        TextBox1.Text = ""
        Cancel = True
    Else
        TextBox1 = CDate(TextBox1)
    End If
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim msg As String
    
    If Not IsDate(TextBox2.Text) Then
        msg = MsgBox("No ha insertado una fecha correcta, vuelva a insertarla", vbCritical + vbOKOnly, "Error en la Fecha")
        TextBox2.Text = ""
        Cancel = True
    Else
        TextBox2 = CDate(TextBox2)
    End If
End Sub

2RESUELTO Re: filtrar datos por fecha en texto el 15/09/15, 07:34 pm

adolfo castro


Hola buenas noches, como bien dices tienes no uno sino dos problemas, pues en el momento que subas el formulario con lo que precisas no tengo problema alguno en hecharte una mano, pues sube un ejemplo preciso de lo que necesitas, pero algo asi como que no estoy dispuesto a realizar desarrollo algunos, revisa las normas del foro, y te lo explica muyyyyy clarito, y lo dicho, no hay problema en ayudarte pero cuando subas el archivo correctamente.

saludos Adolfo castro

3RESUELTO Re: filtrar datos por fecha en texto el 15/09/15, 07:49 pm

josedd


ok ok eso estaba tratando pero al momento de subir el archivo no subia el archivo

, intenta subirlo en zip, a ver si no te coge el formato, o por volumen

4RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 09:48 am

josedd


no se xq pero no me quiere adjuntar el archivo le doy enviar y no sube el archivo Sad Sad

5RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 10:56 am

josedd


pero lo q quiero yo es q los texbox me acepten texto como se haria sin dañar ese código, o si hay otro código así q me lo pases.

6RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 12:09 pm

adolfo castro


Prueba a ver si te función, si no pues habrá que adivinar donde esta el fallo


Option Explicit

Dim lFecha1 As Long, lFecha2 As Long

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim msg As String
   
    If Not IsDate(TextBox1.Text) Then
        msg = MsgBox("No ha insertado una fecha correcta, vuelva a insertarla", vbCritical + vbOKOnly, "Error en la Fecha")
        TextBox1.Text = ""
        Cancel = True
    Else
        TextBox1 = CDate(TextBox1)
    End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim msg As String
   
    If Not IsDate(TextBox2.Text) Then
        msg = MsgBox("No ha insertado una fecha correcta, vuelva a insertarla", vbCritical + vbOKOnly, "Error en la Fecha")
        TextBox2.Text = ""
        Cancel = True
    Else
        TextBox2 = CDate(TextBox2)
    End If
End Sub
Private Sub CommandButton1_Click()
   
    lFecha1 = CDate(TextBox1) 'Range("celFechaDe")
    lFecha2 = CDate(TextBox2) 'Range("celFechaHasta")
   
    With ActiveSheet
        If .AutoFilterMode = True Then .AutoFilterMode = False
    End With
    ActiveSheet.Range("e:e").AutoFilter Field:=1, Criteria1:= _
        ">=" & lFecha1, Operator:=xlAnd, Criteria2:="<=" & lFecha2
   
End Sub


saludos Adolfo castro

7RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 01:52 pm

josedd


ya lo solucione era así gracias por tu tiempo amigo buen día.

Código:
Private Sub CommandButton1_Click()
 Dim lFecha1 As String, lFecha2 As String
    
    lFecha1 = TextBox1.Text 'Range("celFechaDe")
    lFecha2 = TextBox2.Text 'Range("celFechaHasta")
    
    With ActiveSheet
        If .AutoFilterMode = True Then .AutoFilterMode = False
    End With
    
    Range("E1").AutoFilter Field:=5, Criteria1:=">=" & lFecha1, Operator:=xlAnd, Criteria2:="<=" & lFecha2
End Sub

8RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 02:57 pm

adolfo castro


Hola buenas tardes, yo tendría cuidado a la hora de denominar las variables, creo , que la variable es date, no string, no obstante, yo revisaría,pues si no me equivoco, puede ser que te vaya bien, pero si trabajas con fechas la variable as date, puede ser que lo envíes como texto a la hoja y te de fallos en formulación y demás,


saludos Adolfo castro

9RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 03:08 pm

josedd


saludos, lo tendre encuenta, pero si me piden o me dicen q las fechas vienen de la base de datos de foxpro q son tablas libres a l pasarla a excel viene en formato string

10RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 04:04 pm

adolfo castro


Me alegro, por ello siempre, indico, que seamos claros en las preguntas,pues en Excel la variable es date, sin embargo, estamos acostumbrados a,
no expecificar versión de Excel, varian muchas funciones
no expesificar sistema operativo,,

y no expecificar claramente la pregunta, pues si en un momento te lo hago con la variable date , te hubiera dado un fallo, por lo tanto, me hago una pregunta,
no es mas fácil decir, estoy importando una tabla de...... y preciso hacer esto, creo que hubiera sido una pregunta, bastante mas clara y explicita, pues pensad que tiempo que dedicamos a contestar a una pregunta, lo robamos a nuestro tiempo libre.


saludos Adolfo castro

pd. no pienses que te digo esto por nada, tan solo lo reitero a todos porque es siempre igual.

11RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 06:45 pm

josedd


Tranquilo amigo es bueno corregir.

Después con el tiempo ya haré mis pregunta mas clara, de algo sirve tu comentario.  Smile

12RESUELTO Re: filtrar datos por fecha en texto el 16/09/15, 07:43 pm

Igtelo


Hola Jose.

Aunque lo hayas resuelto tú, debes marcarlo como resuelto.

Saludos
Ignacio Téllez

13RESUELTO Re: filtrar datos por fecha en texto el 17/09/15, 11:33 am

josedd


ok ok amigo

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.