birebir eşleşme

[alimutlu2308]

sayın hocalarım merhaba

Çözemediğim bir konuda yardımlarınızı rica ediyorum.
örnek tabloyu ekledim

tabloya user form ile verileri gerekli yerlere girmeye başardım.
fakat benzer isimde koşullar olduğu zaman çakışma yaşanıyor.
örneğin b sütununda aşağı doğru veriler var. aşağıdaki gibi

diğer menkuller
diğer yatırım
diğer

örneğin diğer kısmına veri girmek isteğim zaman kod ilk bulduğu diğerin karşısına veri giriyor. birebir eşleşmesede içinde diğer geçtiği için o hücreyi buluyor. inşallah anlatabilmişimdir.

eklediğim tablodan yatırım cinsini diğer seçip kaydettiğiniz zaman sanırım problemim daha net anlaşılır

yardımlarınız için şimdiden teşekkür ederim

 

[omerceri]

Sn alimutlu2308 kodlarınızı aşağıdaki gibi değiştirirseniz sorun kalmaz sanırım.
Private Sub CommandButton1_Click()
Sheets("ozettablo").Select
Range("B:B").Select
a = Selection.Find(What:=ComboBox2.Value, LookAt:=xlWhole).Row
Rows(2).Select
Selection.Find(What:=ComboBox1.Value, LookAt:=xlWhole).Select
Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(0, 0)).Select
b = Selection.Find(What:=ComboBox3.Value, LookAt:=xlWhole).Column
Cells(a, b) = Val(Cells(a, b)) + Val(TextBox4.Value)

MsgBox "Kayıt İşlemi Tamamlandı"
End Sub

 

[alimutlu2308]

teşekkürler

Sn. Ömer bey ilgi ve alakanız için çok teşekkür ederim. Ben bu işlerde yeniyim öğrenmeye çalışıyorum. Zahmet olmaz ise burada ne yaptığımızı açıklayabilirmisiniz. Tşk.

 

[omerceri]

Find fonksiyonu olan satırlara aşağıdaki kodu ekledim. Tüm hücre içeriği ile aranan kelimenin tam eşleşmesini sağlıyor.
", LookAt:=xlWhole"
Makro kaydet ile buldurma işlemi yaptırıp kodları incelerseniz........