boşluk harici rakam sıralama

[TrMn1]

merhabalar elimde bir liste var farklı adetlerde oluşan oda isim listesi gibi düşünebiliriz. ÖRN.

( aşağıdaki listenin B2 den başladığını ve aşağıya doğru ilerlediğini düşünelim )

	ALİ VELİ
	MAHMUT MAHMUT
	MANSUR KÜRŞAD
	GAMZE
	YÜCEL
	KUBİLAY
	HAYATİ
	BEDRİYE MÜGE
	SERDAL
	BÜNYAMİN
	ÖZGÜR
	FERDİ
	REYHAN
	İLHAN
	NALAN

SORU : A2 VE A3 HÜCRESİNE 1 VE 2 RAKAMLARINI YAZIP AŞAĞI ÇEKTİĞİM ZAMAN 3 4 .... ŞEKLİDE SIRALAYIP GİDİYOR. BENİM İSTEDİĞİM BOŞLUKLARDAN SONRA YENİDEN 1 2 ŞEKLİNDE BAŞLAYIP KENDİ GRUBUNDA SONLANDIRMASI BOŞLUĞUN ALTINDAKİ DOLU SATIRDAN BAŞTAN BAŞLAMASI. BUNU TEK SEFERDE NASIL YAPABİLİRİZ. TEŞEKKÜR EDERİM.

 

[tugkan]

Merhaba,
Aşağıdaki makro ile yapabilirsiniz.

Sub SiraliNumaraDoldur()
    Dim i As Long, num As Long
    Dim sonSatir As Long
    sonSatir = Cells(Rows.Count, 2).End(xlUp).Row ' B sütunundaki son dolu satırı bul

    num = 1 ' İlk rakam olarak 1 ile başla

    For i = 2 To sonSatir ' B2 hücresinden başlayarak son satıra kadar işle
        If Cells(i, 2).Value <> "" Then ' Eğer hücre doluysa
            Cells(i, 1).Value = num ' A sütununa numarayı yaz
            num = num + 1 ' Numarayı bir artır

        Else ' Eğer hücre boşsa
            num = 1 ' Numarayı tekrar 1 yap ve bir sonraki dolu hücreden başla
        End If
    Next i
End Sub

 

[tugkan]

Bu da formüllü çözüm.
A2 ye formülü yazıp aşağıya çekin

=EĞER(B2="";"";EĞER(B1="";1;A1+1))