hello i need a code for CommandButton1_Click That prints visible data from a listbox
so far i have as follow ....
so far i have as follow ....
Code:
Private Sub Cmd_00_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub T_00_Change()
Select Case C_00.Value
Case "FECHA"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 0), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "HAB"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 1), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "CELEBRA"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 3), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "NOMBRE"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 4), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "LUGAR"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 5), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "DECO"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 6), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case "SOLICITANTE"
LB_00.list = [Tabla1].Value
For i = LB_00.ListCount - 1 To 0 Step -1
If InStr(1, LB_00.list(i, 7), T_00, vbTextCompare) = 0 Then LB_00.RemoveItem (i)
Next
Case Else
MsgBox "SELECIONA POR CUAL COLUMNA BUSCAR", vbCritical, "©2018 MMEIER"
End Select
For i = 0 To LB_00.ListCount - 1
LB_00.list(i, 2) = Format(LB_00.list(i, 2), "hh:mm AM/PM")
Next i
If LB_00.ListCount = 0 Then T_00.Value = Left(T_00.Value, Len(T_00.Value) - 1)
End Sub
Private Sub UserForm_Initialize()
HideTitleBar Me
C_00.list = Split("FECHA HAB CELEBRA NOMBRE LUGAR DECO SOLICITANTE")
With LB_00
.ColumnCount = 8
.ColumnWidths = "70;70;70;100;100;100;150;70"
.list = Hoja2.ListObjects(1).DataBodyRange.Value
For i = 0 To .ListCount - 1
.list(i, 2) = Format(.list(i, 2), "hh:mm AM/PM")
Next i
End With
End Sub