Veri karşılıklarına numara verdirmek

[EKREM1661]

Saygıdeğer Arkadaşlar..!

"B" sütununda belli bir aralığa göre bulunmayan ve aralarda boş satırlarında bulunduğu veriler mevcut..
Boş hücreleri yok sayacak ve sadece var olan verilerin karşılığındaki "A" sütununa sıra numarası verdirecek.. Buton ile çalışacak böyle bir kodu nasıl yazabiliriz..

 

[Huseyinkis]

Ekteki kodları denermisin.

Sub Sıra()

Srn=1
For i = 2 To Range("B65536").End(3).Row

if range("B"&i).value="" then
else
Range("A"&i).value=srn
srn=srn+1
end if
next
end sub

 

[EKREM1661]

Teşekkür Ediyorum..Elinize sağlık..

 

[Mahir64]

Merhaba

Altarnatif olarak formül isterseniz

=EĞER(B2="";"";ALTTOPLAM(103;$B$2:B2))

 

[EKREM1661]

Mahir bey teşekkür ederim.. Arkadaşlar..! konu açılmışken aynı mantık üzerinden şu şekilde farklı bir sıralama daha yapabilirmiyiz..(makro koduyla)
A1 den itibaren 10'ar satır atlayarak, b sütununa göre veri karşılıklarına numara verecek..(b sütununda veri olan son satıra kadar)
Yani;A1'e=1, A11'e=2, A21'e=3.....gibi