Hücre değeri kadar sayı yazdırma

[imdatsaral]

Selam Arkadaşlar,


Benim sorum ekte anlatmaya çalıştım hüre değeri kadar sayıyı alt alta yazdırma istiyorum

yardım edecek arkadaşlara şimdiden teşekkür ederim

 

[YUSUF44]

Palyatif bir çözüm olarak bir modüle aşağıdakileri yapıştırıp, düğmeye makro olarak atayın:

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("kayıt").Select
    Range("A9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-1]C="""","""",IF(giriş!R2C1=kayıt!R[-1]C,"""",kayıt!R[-1]C+1))"
    Range("A9").Select
    Selection.AutoFill Destination:=Range("A9:A117")
    Range("A8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    MsgBox "İşlem Tamam"
End Sub

 

[imdatsaral]

yusuf44 teşekkür ederim sağol