Bul Komutu yerine tavsiyeniz?

[sbayyigit]

arkadaşlar ekteki tabloda benzer isimler var fakat aynı değil. bu yüzden bul komutunu kullandığım zaman istdiğim sonuca varamıyorum. form içindeki kodlar yerine ne tavsiye edilebilir veya ne gibi eklemeler yapılabilir.

 

[Mahmut Kök]

arkadaşlar ekteki tabloda benzer isimler var fakat aynı değil. bu yüzden bul komutunu kullandığım zaman istdiğim sonuca varamıyorum. form içindeki kodlar yerine ne tavsiye edilebilir veya ne gibi eklemeler yapılabilir.

Bul komutuyla istediğiniz sonucu hangi yönden alamıyorsunuz? Kodlarla, tam olarak ne yapmak istiyorsunuz? Biraz daha açıklama yapabilir misiniz?

 

[sbayyigit]

form açıldıktan sonra ödeme türü bölümünden "banka" ve yardım türü bölümünden de "bağış" seçeneğini tıkladığımızda listbox1 işersine mehmet y ve mehmet gelecek. Private Sub ListBox1_Click() olayında hangi isim üzerine tıklarsam aynı olay içersinde tıkladığım isime ait bilgilerin gelmesi gerekiyor bul komutu ile işlem yaptığımda sadece "mehmet" tıkladığım halde mehmet y içersinde de mehmet kelimesi geçtiğinde sürekli olarak ilk kaydı baz alıyor.

 

[Mahmut Kök]

find detayına lookat:=xlwhole eklemeyi deneyin.

 

[Seyit Tiken]

Aşağıdaki kodu çalışmanıza uyarlayınız.

Private Sub CommandButton1_Click()
On Error GoTo hata
[a1:g100].Find(Me.TextBox1).Select
hata:
End Sub

 

[Levent Menteşoğlu]

worksheetfunction.match(.....) fonksiyonunu kullanabilirsiniz.

 

[sbayyigit]

ilginiz için teşekkürler. kodları şu şekilde düzenledim. sanırım sorun halloldu.

Private Sub ListBox1_Click()
ComboBox3.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""

On Error Resume Next
Sheets("bos").Select
Dim x As Integer
x = Sheets("bos").Range("B:B").Cells.Find(What:=ListBox1, lookat:=xlWhole, LookIn:=xlValues).Row
ComboBox1 = Sheets("bos").Cells(x, 2)
ListBox2.Clear
Sheets("bos").Select
Columns("a:I").Select
Selection.ClearContents
t = ComboBox5.Value
Sheets(t).Select
Range("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
Selection.CurrentRegion.Select
Selection.Copy
Sheets("bos").Select
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets(t).Select
Selection.AutoFilter


Sheets("bos").Select
b = WorksheetFunction.CountA(Sheets("bos").Range("b:b"))
For i = 1 To b
If Cells(i, 2).Value = ComboBox1.Value * 1 Then
Cells(i, 2).Select
C = C + 1
For y = 1 To 9
ListBox2.AddItem
ListBox2.List(C - 2, y - 1) = Cells(i, y).Value
Next
End If
Next
End Sub

worksheetfunction.match(.....) fonksiyonunu kullanabilirsiniz.

sayın ustam her seferinde yardımıma koşuyorsun. bunun için ayrıca teşekkür ederim. ama bu bahsettiğin fonksiyonu nasıl kullanacağımı bilmiyorum. saygılarımla

 

[Levent Menteşoğlu]

.....sayın ustam her seferinde yardımıma koşuyorsun. bunun için ayrıca teşekkür ederim. ama bu bahsettiğin fonksiyonu nasıl kullanacağımı bilmiyorum. saygılarımla

Arama motoruna "match" kelimesini yazarak arama yapmanızı öneririm. Fonksiyonun kullanımına ilişkin çok sayıda örneğe ulaşabilirsiniz.