Merhaba arkadaşlar,
Ben sayfadaki verileri iki kritere göre bulmak istedim bir türlü olmadı.
aşağıda yazacağım makro ile ComboBox1'e >,<,= ,<>,=>,<= işaretlerini koyarak textbox1 'e de rakam yazarak bulmak istiyorum , yani ComboBox1 den > seçip , textbox1 'de 65 yazınca listede 65 den büyüklüri göstersin istiyorum.
Yardımcı olacak arkadaşlara teşekkürlerimi sunarım.
Private Sub CommandButton5_Click()
On Error Resume Next
ListBox1.RowSource = ""
Dim dizi(10000, 16)
ListBox1.ColumnCount = 16
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "0;65;48;150;80;80"
Dim i As Range, ay As String, k As Object
Dim a As Integer, B As Integer, satir As Integer
k = ComboBox1.Value
ay = TextBox1.Value
For Each i In Sheets("veri").Range("e2:e10000") ' & satir
If LCase(i.Value) = LCase(k & ay) Then
satir = i.Row
For B = 0 To 16
dizi(a, B) = Worksheets("veri").Cells(satir, B + 1)
Next
a = a + 1
End If
Next
ListBox1.List = dizi
End Sub
Ben sayfadaki verileri iki kritere göre bulmak istedim bir türlü olmadı.
aşağıda yazacağım makro ile ComboBox1'e >,<,= ,<>,=>,<= işaretlerini koyarak textbox1 'e de rakam yazarak bulmak istiyorum , yani ComboBox1 den > seçip , textbox1 'de 65 yazınca listede 65 den büyüklüri göstersin istiyorum.
Yardımcı olacak arkadaşlara teşekkürlerimi sunarım.
Private Sub CommandButton5_Click()
On Error Resume Next
ListBox1.RowSource = ""
Dim dizi(10000, 16)
ListBox1.ColumnCount = 16
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "0;65;48;150;80;80"
Dim i As Range, ay As String, k As Object
Dim a As Integer, B As Integer, satir As Integer
k = ComboBox1.Value
ay = TextBox1.Value
For Each i In Sheets("veri").Range("e2:e10000") ' & satir
If LCase(i.Value) = LCase(k & ay) Then
satir = i.Row
For B = 0 To 16
dizi(a, B) = Worksheets("veri").Cells(satir, B + 1)
Next
a = a + 1
End If
Next
ListBox1.List = dizi
End Sub