Bul Komutu yerine tavsiyeniz?

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
419
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
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

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
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

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
419
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
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

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
find detayına lookat:=xlwhole eklemeyi deneyin.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Aşağıdaki kodu çalışmanıza uyarlayınız.
Kod:
Private Sub CommandButton1_Click()
On Error GoTo hata
[a1:g100].Find(Me.TextBox1).Select
hata:
End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
worksheetfunction.match(.....) fonksiyonunu kullanabilirsiniz.
 

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
419
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
.....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.
 
Üst