Merhabalar, Araç Takip programı yapmaya çalışıyorum sonunada geldim. ancak tarih ile listbox ta süzme yapamadım.
excel sayfa adı =liste
tarih sütunu = "E" sütunu
Textbox1 ile Textbox2 tarih girip CommandButton1 'e tıkladığımda Listboxta sadece seçilen raih aralığının listenme kodu için yardım lütfen.
bir de diğer comboboxlar ile diğer kriterlerle süzdüğümde Listbox ta tarih görünümü değişiyor. yardımlarınız için şimdiden teşekkürler.
Userformdaki mevcut kodlarım;
excel sayfa adı =liste
tarih sütunu = "E" sütunu
Textbox1 ile Textbox2 tarih girip CommandButton1 'e tıkladığımda Listboxta sadece seçilen raih aralığının listenme kodu için yardım lütfen.
bir de diğer comboboxlar ile diğer kriterlerle süzdüğümde Listbox ta tarih görünümü değişiyor. yardımlarınız için şimdiden teşekkürler.
Kod:
Private Sub ComboBox1_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 12, 1 To 1)
With Worksheets("liste")
Me.ListBox1.RowSource = vbNullString
If .FilterMode Then .ShowAllData
Set k = .Range("A1:A65536").Find(ComboBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 12, 1 To a)
For j = 1 To 12
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("A1:A65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
Private Sub ComboBox2_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 12, 1 To 1)
With Worksheets("liste")
Me.ListBox1.RowSource = vbNullString
If .FilterMode Then .ShowAllData
Set k = .Range("B1:B65536").Find(ComboBox2.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 12, 1 To a)
For j = 1 To 12
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("B1:B65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Set aktif_txt = Me.TextBox1
Call takvim_cagir
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Set aktif_txt = Me.TextBox2
Call takvim_cagir
End Sub
Private Sub UserForm_Initialize()
ComboBox1 = 1
ComboBox1 = Empty
ListBox1.RowSource = "liste!A1:L11"
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "100;50;50;50;50;50;50;50;50;50;50,50" 'lisbox'taki sütunların genişliği
ListBox1.ColumnHeads = False
Dim S1 As Worksheet
Set S1 = Sheets("kurum")
ComboBox1.RowSource = "kurum!A1:A" & S1.Range("A" & Rows.Count).End(xlUp).Row
Set S1 = Sheets("araç")
ComboBox2.RowSource = "araç!B1:B" & S1.Range("B" & Rows.Count).End(xlUp).Row
End Sub