vba a code to print data from listbox

[BLUEPOMME]

hello i need a code for CommandButton1_Click That prints visible data from a listbox

so far i have as follow ....

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

 

[Joe4]

Cross-posted here: https://www.excelforum.com/excel-programming-vba-macros/1253182-printing-data-from-listbox.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[BLUEPOMME]

truly sorry ....you are very right ...thank you for your advise i don´t want having people working twice and loosing time in the same think ..in the future i will share links ...