Otomatik olarak rakam yazdırma

[sakoz]

Sevgili Excel Üstadları merhaba ,

Benim bir sorum olacak...Ekte gönderdigim dosyayı günlük olarak hazırlıyoruz...Bu dosyada A sütununda (PERON) alt alta 1,1,1,1,1,1,1.....15,15,15,15,15 şeklinde rakamlar yazmamız gerekiyor...Rakamlar sürekli A sütununa yazılıyor ve her rakam arasında mutlaka bir satır boş bırakılıyor...
Mesela ,
1
1
1

2
2
2
2
şeklinde...
Bu satırlar çok uzun olduğu zaman gercekten bizleri zorluyor...Bunun icin makrolu bir çözüm yapabilirmiyiz acaba....İlgilenen herkese simdiden teşekkür ederim...

Saygılarımla,

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub SiraNoVer()
s = 1
son = [c65536].End(3).Row
    For i = 2 To son
        If Cells(i, "c").Value <> Empty Then
            Cells(i, "a").Value = s
        Else
            s = s + 1
            GoTo 10
        End If
10     Next i
MsgBox "Bitti"
End Sub

 

[sakoz]

Ripek Üstadım ,

Hızır gibi cevabınız icin teşekkür ederim...Ellerinize sağlık...Süper oldu..Beni uzun bi ugrastan kurtardınız....

Saolun

 

[Recep İpek]

İşe yaradığına sevindim.

Güle güle kullanın.