Kayıt sıra no bulma

[omeryılmaz]

Arkadaşlar Bulaşcı Hastalıkların kayıt ve kontrolü için yaptığım çalışmada kaydedilen Hastalığın, üzerine mausla çift tıklandığında "o hastalığa ait kaçıncı kayıt" olduğunu "Ah6" hücrelerine yazdırmam gerekli.
Örnekte olduğu gibi "Hepatit" "5" . kayıt olarak yazmalı
Yardımlarınız için şükranlarımı sunuyorum..

 

[Ömer]

Merhaba,

Range("AH6").Value = Range("A" & sat).Value

Bu satırı ekleyin.

.

 

[omeryılmaz]

Merhaba,

Range("AH6").Value = Range("A" & sat).Value

Bu satırı ekleyin.

.

Yanlış anlatttım galiba
Kaçıncı Hepatit kaydı ..... Örnekteki hepatitin üzerine çift tıklandığında 5. kayıt yazmalı

 

[Ömer]

Bu satırı ekleyin.

Range("AH6") = WorksheetFunction.CountIf(Range("B8:B" & sat), Range("B" & sat).Value)

.

 

[omeryılmaz]

Bu satırı ekleyin.

Range("AH6") = WorksheetFunction.CountIf(Range("B8:B" & sat), Range("B" & sat).Value)

.

Elinize ve yüreğinize sağlık Teşekkürler.......