Buton yardımıyla hücredeki sayı değeri kadar artırarak doldurma

[demgüzar]

Öncelikle ilgilenen herkes şimdiden teşekkürler. İstediğim şey basit ama bilmeyince zor oluyor işte. İsteğimi aşağıda anlatmaya çalıştım ama örnek dosya biraz daha kolay anlaşılır

Bu sayfaya bir buton ekleyerek : Butona basıldığında A sütunu temizlenecek, ardından A1 hücresinde 1 den başlayıp B4 hücresindeki (sarı renkli hücredeki sayı) sayı değerine eşit oluncaya kadar A sütununda artarak devam edecek. Ardından bu işlemi C4 (kırmızı renkli) hücrenin değeri kadar tekrar edecek.

 

[Taruz]

Merhaba..

Düğmede bu döngüyü kullanabilirsiniz..:

Range("A1:A6000").Clear
For j = 1 To Range("C4").Value
    For i = 1 To Range("B4").Value
        trz = trz + 1
        Range("A" & trz) = i
    Next
Next

 

[Orion1]

Dosyanız ektedir.

Sub tekrarlar59()
Dim sat As Long, i As Long, j As Long
Application.ScreenUpdating = false
Range("A:A").ClearContents
sat = 1
For i = 1 To range("C4").value
    For j = 1 To Range("B4").Value
        Cells(sat, 1).Value = j
        sat = sat + 1
    Next j
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Mustafa MUTLU]

Cevap Almışınız..
Buda Alternatif Olsun..

Dosyanız Ektedir.

 

[baydeniro]

Sayın Arkadaşlar demgüzar arkadaşımıza yardımcı olan herkese çok teşekkürler. Sayenizde yeni bir çözüm öğrendik. Sağlıcakla kalın.

 

[dogunay]

Bunun farklı bir konu olacağını düşündüğümden yeni konu açtım. Lütfen buradan devam ediniz.

Merhabalar, bende bunun benzeri birşey yapmaya çalışıyorum ama tıkandım.
Yapmaya çalıştığım şey; iki kaynaktan gelen değerleri baz alarak, next ile bunları alt alta saydırmaya çalışmak.
Detaylı anlatımı ekte yaptım. Şimdiden teşekkürlerimi sunuyorum.