Değişkene select işlemi.

[Carpintero]

Merhaba arkadaşlar
Aşağıda B2 değerini A2:A10 da aratıp bulduğu hücreyi seçmek istiyorum
ama hata alıyorum. Nasıl düzeltmem lazım acaba ?
Not: Aranan değerin olmama durumu yok.

bul = WorksheetFunction.CountIf(Range("A2:A10"), Cells(2, "B"))
bul.Select

 

[Murat OSMA]

cells(bul,"A").select şeklinde deneyin.

 

[Carpintero]

maalesef çalışmadı
A B
1 7
2
3
4
5
6
7
8
9
verilerim olduğu halde A1 i select yapıyor.

 

[Korhan Ayhan]

Find komutunu araştırınız.

 

[Orion1]

Niye seçmek istiyorsunuz.
Excelde bir çok işlemi seçmedende yapabilirsiniz.

 

[Carpintero]

Merhaba Orion Hocam.
Aslında amacım eşleşmenin sağlandığı satırın yanına
"xxx" gibi bir değer yazdırmak.

Yardımcı olabilir misiniz acaba ?

 

[Murat OSMA]

Deneyin.
bul = WorksheetFunction.Match(Cells(2, "B").value, Range("A2:A10"), 0)
cells(bul, "B").Select

 

[Orion1]

Alternatif.

Dim k As Range
Set k = Range("A2:A10").Find(Cells(2, "B").Value, , xlValues, xlWhole)
k.Offset(0, 1).Value = "XX"

 

[Carpintero]

Murat Bey B2 değerinin satır numarasını buluyor ilgili kod.

 

[Carpintero]

Sayın Hocam kod tamamdır.
Çok çok teşekkür ederim sağolun.