1 değerini ararken 10 değerini buluyor...

[snskutlu]

Merhaba arkadaşlar.

Range("B1:B20").Select 'Bu hücrelerde 1 den başayarak büyüyen sayılar var.
Selection.Find(ComboBox1.Value, ActiveCell).Avtivate
[B1]=ActiveCell.Value

şeklinde arama yaptığımda eğer Combobox da 1 değeri varsa arama sonucunda 10 sayısını buluyor. Bunu makro yazarak nasıl önleyebilirim.

Teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde değiştirin. İlave edilen kısım kırmızı ile gösterilmiştir.

Find yöntemi'nin birçok parametresi var. xlWhole parametresi, hücre içeriğinin tam olarak (birebir) eşleştiği hücreleri bulmasını sağlar. Sizde "1" yazınca, "10"'nun bulunduğu hücrenin bulunmasının sebebi, bu parametreyi kullanmamanızdan kaynaklanmaktadır. VB derleyici, bu parametreyi, default olarak xlPart atamakta, ve bu da arama esnasında, "1" değerini ihtiva eden hücrelerin bulunmasına sebep olmaktadır.

Range("B1:B20").Select [COLOR=green]'Bu hücrelerde 1 den başayarak büyüyen sayılar var.[/COLOR]
Selection.Find(ComboBox1.Value, ActiveCell[COLOR=red][B], , xlWhole[/B][/COLOR]).Avtivate
[B1] = ActiveCell.Value

 

[snskutlu]

istediğim gibi oldu. teşekkürler