Döngü kuramadım

[Usyk]

İki satır döngü kurmaya çalıştım başım döndü. Acemiliğimden tabi.

Bir yerlerden birşeyler topladım birleştirdim. Ekteki gibi oldu. Ama istediğimi yine yapamadım.

Örn:
İlk Değer= 5
Son Değer=15
Kelime=Ahmet

Sonuç (A1 den başlayarak)
A...........B
5_______6
Ahmet___Ahmet
7_______8
Ahmet___Ahmet
9_______10
Ahmet___Ahmet
11______12
Ahmet___Ahmet
13_______14
Ahmet___Ahmet
15
Ahmet

şeklinde. Yardım üstadlar.

http://s3.dosya.tc/server10/mw0av3/Atlayarak_yazdirma.rar.html

 

[Orion1]

Buyurun.

Sub dongu59()
Dim i As Long
Range("A:B").ClearContents
For i = Range("D1").Value To Range("E1").Value Step 2
    If i < Range("E1").Value Then
        Cells(i, "A").Value = i
        Cells(i + 1, "A").Value = "Ahmet"
        Cells(i, "B").Value = i + 1
        Cells(i + 1, "B").Value = "Ahmet"
    End If
    If i <= Range("E1").Value Then
        Cells(i, "A").Value = i
        Cells(i + 1, "A").Value = "Ahmet"
    End If
Next i
MsgBox "Bitti" & "evrengizlen@hotmail.com"
End Sub

 

[Usyk]

Buyurun.

Sub dongu59()
Dim i As Long
Range("A:B").ClearContents
For i = Range("D1").Value To Range("E1").Value Step 2
    If i < Range("E1").Value Then
        Cells(i, "A").Value = i
        Cells(i + 1, "A").Value = "Ahmet"
        Cells(i, "B").Value = i + 1
        Cells(i + 1, "B").Value = "Ahmet"
    End If
    If i <= Range("E1").Value Then
        Cells(i, "A").Value = i
        Cells(i + 1, "A").Value = "Ahmet"
    End If
Next i
MsgBox "Bitti" & "evrengizlen@hotmail.com"
End Sub

Evren Hocam Sonuç doğru ama, her zaman 1. satırdan başlayarak yazdıramazmıyız?
Burada ilk değerimiz 5 ise 5.satırdan başlayarak yazıyor. Daima 1. satırdan başlaması gerekiyor.

 

[Orion1]

Evren Hocam Sonuç doğru ama, her zaman 1. satırdan başlayarak yazdıramazmıyız?
Burada ilk değerimiz 5 ise 5.satırdan başlayarak yazıyor. Daima 1. satırdan başlaması gerekiyor.

Buyurun.

Sub dongu59()
Dim i As Long, sat As Long
Range("A:B").ClearContents
sat = 1
For i = Range("D1").Value To Range("E1").Value Step 2
    If i < Range("E1").Value Then
        Cells(sat, "A").Value = i
        Cells(sat + 1, "A").Value = "Ahmet"
        Cells(sat, "B").Value = i + 1
        Cells(sat + 1, "B").Value = "Ahmet"
    End If
    If i <= Range("E1").Value Then
        Cells(sat, "A").Value = i
        Cells(sat + 1, "A").Value = "Ahmet"
    End If
    sat = sat + 2
Next i
MsgBox "Bitti" & "evrengizlen@hotmail.com"
End Sub

 

[Usyk]

Evren Hocam saygılarımı arz ederim.