- Katılım
- 19 Haziran 2007
- Mesajlar
- 418
- Excel Vers. ve Dili
- excel 2007
Merhaba arkadaşlar.
Ekteki dosyamda U:U aralığındaki tarihleri combobox ile süzmek istiyorum.
Örnek bir dosyadan aldığım kodları uyarlama konusunda başarısız oluyorum.
Alttaki Combobox için düzenlemeye çalıştığım kodlarım. Birde Initialize oalyında kodlar vadı. Onları değiştirmeden ekliyorum. Acaba Listbox1 de U:U araığını nasıl süzebilirim?
Initialize kodları ise;
Ekteki dosyamda U:U aralığındaki tarihleri combobox ile süzmek istiyorum.
Örnek bir dosyadan aldığım kodları uyarlama konusunda başarısız oluyorum.
Alttaki Combobox için düzenlemeye çalıştığım kodlarım. Birde Initialize oalyında kodlar vadı. Onları değiştirmeden ekliyorum. Acaba Listbox1 de U:U araığını nasıl süzebilirim?
Kod:
Private Sub ComboBox12_Change()
ListBox1.Clear
Dim say As Integer
Dim i As Integer
say = WorksheetFunction.CountA(satış.Range("U:U"))
s = 0
For i = 1 To say
If Range("U" & i) = ComboBox1.Value Then
ListBox1.AddItem Sayfa1.Range("U" & i) & " " & satış.Range("A:V" & i)
s = s + satış.Range("A:V" & i)
End If
Next i
End SubInitialize kodları ise;
Kod:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A1").Select
Dim say As Integer
Dim i As Integer
say = WorksheetFunction.CountA(Sayfa1.Range("A:A"))
For i = 1 To say
If Sayfa1.Range("A" & i).Value = Sayfa1.Range("A" & i).Offset(1, 0).Value Then
Sayfa1.Range("C" & i).Value = "E"
Else
Sayfa1.Range("C" & i).Value = "H"
End If
Next i
For i = 1 To say
If Sayfa1.Range("C" & i).Value = "H" Then
ComboBox1.AddItem Sayfa1.Range("A" & i)
End If
Next i
Sayfa1.Range("C:C").ClearContents
Range("A1").Select
Application.ScreenUpdating = True
End Sub
