BUL Butonu çalışmıyor.

[ünal karadavut]

page1 deki ve page2 deki bul butonları çalışıyor. ama page3 deki bul butonunu malesef çalıştıramadım. EVRAKIN TARİHİ , KONUSU VEYA EVRAKIN DAĞITIMI ndan buldurmak istiyorum. mümkünse yardımcı olursanız sevinirim.

 

[ünal karadavut]

ek gönderemedim.

 

[Mahmut Kök]

Sıra no ve tarih alanlarına da yıldız ( * ) koyunuz veya bu alanları kodlardan çıkarınız.

 

[Skorpiyon]

Sayın ünal karadavut,

Programınızdaki page3 'te BUL butonu altındaki kodları aşağıdaki şekilde değiştirin.

Private Sub CommandButton28_Click() ' BUL
If ComboBox15 = "" Then MsgBox "GİTTİĞİ YER için kriter seçilmedi!", vbCritical, "Hata": Exit Sub
If ComboBox11 = "" Then MsgBox "KONUSU için kriter seçilmedi!", vbCritical, "Hata": Exit Sub
ListBox3.Clear
Dim a, b
a = 0
For Each b In Worksheets("3").Range("C2:C2000")
If b = "" Then Exit For
If b Like ComboBox11 And _
b.Offset(0, 1) Like ComboBox12 And _
b.Offset(0, 2) Like ComboBox13 Then

ListBox3.AddItem
ListBox3.List(a, 0) = b.Offset(0, -2)
ListBox3.List(a, 1) = b.Offset(0, -1)
ListBox3.List(a, 2) = b
ListBox3.List(a, 3) = b.Offset(0, 1)
ListBox3.List(a, 4) = b.Offset(0, 2)
ListBox3.List(a, 5) = b.Offset(0, 3)
ListBox3.List(a, 6) = b.Offset(0, 4)
ListBox3.List(a, 7) = b.Offset(0, 5)
ListBox3.List(a, 8) = b.Offset(0, 6)
a = a + 1
End If
Next b
End Sub

Saygılarımla...

 

[ünal karadavut]

eline ve emeğine sağlık.
sadece evrakın konusunda bul makrosu çalışıyor, oysaki ; evrakın tarihi, evrakın konusu ve evrakın dağıtımında da yani
üçünde de bulmasını istiyorum.
saygılarımla...

 

[ünal karadavut]

lütfen yardımınızı bekliyorum.

 

[Mahmut Kök]

Dediğiniz 3 kıstasa göre örnek.

Private Sub CommandButton28_Click() ' BUL
If ComboBox15 = "" Then MsgBox "GİTTİĞİ YER için kriter seçilmedi!", vbCritical, "Hata": Exit Sub
If ComboBox11 = "" Then MsgBox "KONUSU için kriter seçilmedi!", vbCritical, "Hata": Exit Sub
ListBox3.Clear
Dim a, b
a = 0
For Each b In Worksheets("3").Range("c2:c2000")
If b = "" Then Exit For
If b Like ComboBox11 And _
b.Offset(0, 0) Like ComboBox11 And _
b.Offset(0, -1) Like ComboBox10 And _
b.Offset(0, 4) Like ComboBox15 Then

ListBox3.AddItem
ListBox3.List(a, 0) = b.Offset(0, -2)
ListBox3.List(a, 1) = b.Offset(0, -1)
ListBox3.List(a, 2) = b
ListBox3.List(a, 3) = b.Offset(0, 1)
ListBox3.List(a, 4) = b.Offset(0, 2)
ListBox3.List(a, 5) = b.Offset(0, 3)
ListBox3.List(a, 6) = b.Offset(0, 4)
ListBox3.List(a, 7) = b.Offset(0, 5)
ListBox3.List(a, 8) = b.Offset(0, 6)
a = a + 1
End If
Next b
End Sub

 

[ünal karadavut]

Sn: mesleki
tam istediğim gibi.
Allah İlmini Artırsın.