Sorgu çalıştır kodunda hata!

[ferhatgurbuz]

MAAŞ BİLGİLERİ bölümünde bulunan Kişisel Bordro adlı userform üzerinde sorgu çalıştır yaptığımda aynı türden verileri Spin Button ile gezmiyor. Yani diyelim ki Soyadı aynı olan kişilerden sadece birtanesini gösteriyor. Diğerlerini Spin Button ile gezmiyor.

Ama aynı belgede BW sütununda bulunan Mahkeme adlarını elle yazdığım zaman değilde belgeden kopyalayıp arattığım zaman Spin Button ile tek tek gösteriyor.

 

[Orion1]

küçük bir örnek dosya ekleyiniz.ol:

 

[ferhatgurbuz]

Dosyayı ekledim arkadaşlar.

 

[ferhatgurbuz]

Arkadşlar bir el atsak şu konuya.

 

[Mahmut Kök]

Değiştirici (Spinbuton) ile arama yaparken hangi bilgilere bakmak istiyorsunuz? Şu anda sadece mahkeme isimlerine bakıyor ve değiştirici(spinbuton)'ye atanmış arama seçeneğinde büyük-küçük harf duyarlı.

Hangi bilgilere göre arama yapmak istediğinizi belirtirseniz, küçük-büyük harf duyarlılığını geri plana alarak ve birden çok sütunda arama yaptıracak bir kod hazırlamanıza yardımcı olabiliriz.

 

[ferhatgurbuz]

Spin Button ile arama yaparken de Tüm Bilgilere baksın Eğer bu mümkün değilse En azından Adı ve Soyadının olduğu bölümlerde arama yapsın

 

[Mahmut Kök]

İleri/yukarı (up) olayına aşağıdaki kodu

sat = ActiveCell.Row
For s = (sat + 1) To Range("A65536").End(3).Row

Set bak = Range("b" & s & ":bw" & s).Find(TextBox65.Value, , xlValues, xlWhole)
If bak Is Nothing Then GoTo 5
Cells(s, "a").Select
GoTo 6
5
Next
6

Geri/Aşağı (down) olayına aşağıdaki kodları ayarlayıp deneyiniz.

sat = ActiveCell.Row
For s = (sat - 1) To 1 Step -1
Set bak = Range("b" & s & ":bw" & s).Find(TextBox65.Value, , xlValues, xlWhole)
If bak Is Nothing Then GoTo 5
Cells(s, "a").Select
GoTo 6
5
Next
6

 

[ferhatgurbuz]

Arkadaşlar bu akşam bu konuyu halledebilir miyiz mümkünse

 

[Mahmut Kök]

İnşallah

 

[ferhatgurbuz]

Teşekkür ederim sayın Mesleki. İnanın çok makbule geçti. Ellerinize sağlık. Şuan çalışıyor. Daha sonra iyice incelerim. Kolay gelsin

Merak ettiğim bir konu şuan sizi aktif olarak göremiyorum. Benden kaynaklanan birşeymi aceba. Mesajınızı da sonradan aldım