Excel Forum

Code: Select all

"Data_All_Sale!B6:K,"M" & say

Code: Select all

"Data_All_Sale!B6:K,"Data_All_Sale!M6" & say

Code: Select all

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim say As Integer
    say = WorksheetFunction.CountA(Worksheets("Data").Range("B:B"))
      ListBox2.RowSource = "Data_All_Sale!B6:K" & say
      ListBox2.ColumnCount = 11
      ListBox2.ColumnWidths = "69;60;65;70;66;115;73;70;70;70;70"
End Sub

Private Sub UserForm_Initialize()
Dim say As Integer
Application.ScreenUpdating = False
    say = WorksheetFunction.CountA(Worksheets("Data_All_Sale").Range("B:B"))
      ListBox2.RowSource = "Data_All_Sale!B6:K" & say
      ListBox2.ColumnCount = 11
      ListBox2.ColumnWidths = "69;60;65;70;66;110;73;66;70;70;70"
      ListBox2.MultiSelect = fmMultiSelectMulti
Application.ScreenUpdating = True
End Sub

Code: Select all

Private Sub cmdbul1_Click()
Application.ScreenUpdating = False
ListBox2.RowSource = Empty
ListBox2.Clear
ListBox2.ColumnCount = 11

For Each isim In Range("B6:B" & Range("B65536").End(xlUp).Row)
    If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
        liste = ListBox2.ListCount
            ListBox2.AddItem
            ListBox2.List(liste, 0) = isim
            ListBox2.List(liste, 1) = isim.Offset(0, 1)
            ListBox2.List(liste, 2) = isim.Offset(0, 2)
            ListBox2.List(liste, 3) = isim.Offset(0, 3)
            ListBox2.List(liste, 4) = isim.Offset(0, 4)
            ListBox2.List(liste, 5) = isim.Offset(0, 5)
            ListBox2.List(liste, 6) = isim.Offset(0, 6)
            ListBox2.List(liste, 7) = Format(isim.Offset(0, 7), "dd.mm.yyyy")
            ListBox2.List(liste, 8) = Format(isim.Offset(0, 8), "dd.mm.yyyy")
            ListBox2.List(liste, 9) = isim.Offset(0, 9)
            
            

                  
     End If
Next
Application.ScreenUpdating = True
End Sub

Code: Select all

ListBox2.List(liste, 10) = isim.Offset(0, 11)

Code: Select all

 Private Sub UserForm_Initialize()
Dim say As Integer
Application.ScreenUpdating = False
    say = WorksheetFunction.CountA(Worksheets("Data_All_Sale").Range("B:B"))
      ListBox2.RowSource = "Data_All_Sale!B6:M" & say
      ListBox2.ColumnCount = 12
      ListBox2.ColumnWidths = "69;60;65;70;66;115;73;70;70;20;0;40"
      ListBox2.MultiSelect = fmMultiSelectMulti
Application.ScreenUpdating = True
End Sub

Code: Select all

Private Sub cmdbul1_Click()
Application.ScreenUpdating = False
ListBox2.RowSource = Empty
ListBox2.Clear
ListBox2.ColumnCount = 11
n = 0
For Each isim In Range("B6:B" & Range("B65536").End(xlUp).Row)
    If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
        liste = ListBox2.ListCount
            ListBox2.AddItem
            ListBox2.List(liste, 0) = isim
            ListBox2.List(liste, 1) = isim.Offset(0, 1)
            ListBox2.List(liste, 2) = isim.Offset(0, 2)
            ListBox2.List(liste, 3) = isim.Offset(0, 3)
            ListBox2.List(liste, 4) = isim.Offset(0, 4)
            ListBox2.List(liste, 5) = isim.Offset(0, 5)
            ListBox2.List(liste, 6) = isim.Offset(0, 6)
            ListBox2.List(liste, 7) = Format(isim.Offset(0, 7), "dd.mm.yyyy")
            ListBox2.List(liste, 8) = Format(isim.Offset(0, 8), "dd.mm.yyyy")
            ListBox2.List(liste, 9) = isim.Offset(0, 9)
            n = n + 1
     End If
Next
Application.ScreenUpdating = True
MsgBox n
End Sub