Arama yaptırırken bulunacak değerlerin aranan değerle sabit kalınması

[ferhatgurbuz]

Bir sayfada BW sütununda mahkeme adları var. Ben arama yaparken Örnek Vergi yazacağım ve değerler bulunacak. Spin Button ile ileri geri giderken sadece Vergi yazan satırları gezsin tüm değerler bitincede dursun. Yani anlatmak istediğim Ctrl + F Bul işlevindeki gibi sadece istenen kelimeleri gezecek bitincede işlem yapmayacak

mümkün müdür aceba

 

[Mahmut Kök]

Döngü yoluyla olabilir. Örnek dosya eklerseniz bir çalışma yapabiliriz.

 

[ferhatgurbuz]

örnek dosya ektedir.

Kişisel Bordro adlı user form üzerinde arama yaptırıyorum. İDARE ve VERGİ diye arama yaptırdıktan sonra Spin Button ile ileri geri geziyorum. Şuanda tüm satırları geziyor. Benim istediğim sadece VERGİ olan satırları gezsin.

 

[Mahmut Kök]

büyük küçük harf duyarlı

up eyleminin ilk kısımlarını aşağıdaki şekle getirip deneyiniz.

Private Sub SpinButton1_SpinUp()
Sheets("Data").Select
If TextBox65.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If
 
[COLOR=red]sat = ActiveCell.Row[/COLOR]
[COLOR=red]For s = (sat + 1) To Range("A65536").End(3).Row[/COLOR]
[COLOR=red]If Cells(s, "bw") = TextBox65 Then[/COLOR]
[COLOR=red]Cells(s, "a").Select[/COLOR]
[COLOR=red]GoTo 6[/COLOR]
[COLOR=red]End If[/COLOR]
[COLOR=red]Next[/COLOR]
[COLOR=blue]'Cells(ActiveCell.Row +1 1, 1).Select[/COLOR]
[COLOR=red]6[/COLOR]
 
TextBox1.Value = ActiveCell.Value 'Sıra No

DOWN eylemi aşağıdaki gibi ...

Private Sub SpinButton1_SpinDown()
Sheets("Data").Select
If TextBox65.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If
[COLOR=red]sat = ActiveCell.Row[/COLOR]
[COLOR=red]For s = (sat - 1) To 1 Step -1[/COLOR]
[COLOR=red]If Cells(s, "bw") = TextBox65 Then[/COLOR]
[COLOR=red]Cells(s, "a").Select[/COLOR]
[COLOR=red]GoTo 6[/COLOR]
[COLOR=red]End If[/COLOR]
[COLOR=red]Next[/COLOR]
[COLOR=blue]'Cells(ActiveCell.Row - 1, 1).Select[/COLOR]
[COLOR=red]6[/COLOR]
TextBox1.Value = ActiveCell.Value 'Sıra No

 

[ferhatgurbuz]

Harika olmuş sayın mesleki ellerinize sağlık. Birşey daha sormak istiyorum. Arama yaptırırken büyük harf küçük harf farketmesin istiyorum bu mümkün müdür.