VBA Inputbox to find and select a Date Range

[NicoForti]

Hi everyone!
I'm having some difficulties to find the correct code to do this.
The workbook is pretty basic, it has a unique userform to enter data. I need an inputbox to prompt the user to specify a date and export it to a text file.
All the data from the userform goes to one sheet ("CAE") and i just need to export the B column.

For this example: i need to lookup for all the entries "05/09/2019" and export the users of only those dates.

Date (data to find)	User (data to export)
05/01/2019	nforti
05/01/2019	nforti
05/09/2019	mpedrido
05/09/2019​ <strike></strike>	jberisso
05/09/2019​ <strike></strike>	amoreno
05/09/2019​ <strike></strike>	rdragun

<tbody>
</tbody>

Thank you very much in advance for your help!

 

[DanteAmor]

Try this

Sub Macro3()
    Dim dat As Variant, lr As Long, sh As Worksheet
    
    Set sh = Sheets("CAE")
    dat = InputBox("Enter date mm/dd/yyyy : ")
    If dat = "" Then Exit Sub
    lr = sh.Range("A" & Rows.Column).End(xlUp).Row
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
    sh.Range("A1:B" & lr).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, dat)
    Set wb = Workbooks.Add
    sh.AutoFilter.Range.Columns(2).Copy wb.Sheets(1).Range("A1")
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
End Sub

 

[NicoForti]

Dante, muchas gracias!
Lo que necesitaría es que lo que copia de la columna B, lo exporte en TXT.

Try this

Sub Macro3()
    Dim dat As Variant, lr As Long, sh As Worksheet
    
    Set sh = Sheets("CAE")
    dat = InputBox("Enter date mm/dd/yyyy : ")
    If dat = "" Then Exit Sub
    lr = sh.Range("A" & Rows.Column).End(xlUp).Row
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
    sh.Range("A1:B" & lr).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, dat)
    Set wb = Workbooks.Add
    sh.AutoFilter.Range.Columns(2).Copy wb.Sheets(1).Range("A1")
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
End Sub

 

[DanteAmor]

Listo, cambia "Libro6.txt" por el nombre del archivo

Sub Macro3()
    Dim dat As Variant, lr As Long, sh As Worksheet
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sh = Sheets("CAE")
    dat = InputBox("Enter date mm/dd/yyyy : ")
    If dat = "" Then Exit Sub
    lr = sh.Range("A" & Rows.Column).End(xlUp).Row
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
    sh.Range("A1:B" & lr).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, dat)
    Set wb = Workbooks.Add
    sh.AutoFilter.Range.Columns(2).Copy wb.Sheets(1).Range("A1")
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "[COLOR=#ff0000]Libro6.txt[/COLOR]", FileFormat:=xlTextMSDOS, CreateBackup:=False
    ActiveWorkbook.Close False
    If sh.AutoFilterMode Then sh.AutoFilterMode = False
    MsgBox "Archivo txt generado"
End Sub