oda planlama kodunda yardım

[kemal turan]

merhaba,
Bir kardeşimizin oda planlamada ihtiyacı olan bir kod yazmaya çalıştım.
Kodumuz for döngüsü ile gün sayısı kadar veri sahifesine kayıt yapıyor.
İsteğim kayıt yapılan sahifede tarih bilgisinin değişmesi.Kolay anlaşılması için ek dosyada da açıklama yaptım.
Teşekkür ederim.

 

[Ziynettin]

Merhaba,
Sizin kodu revize etmeye çalıştım.

Sub kayıt()
Dim i As Integer
With Sheets("PLANLAMA KAYIT")
For i = 1 To Range("d2").Value
    sat = .Cells(Rows.Count, 1).End(3).Row + 1
    .Cells(sat, 1) = [b2]
    .Cells(sat, 2) = [c2]
    .Cells(sat, 3) = [d2]
    .Cells(sat, 4) = [e2] - 1 + i
    Next i
    End With
    Sheets("KAYIT").Select
    MsgBox "Veriler kayıt edildi.."
End Sub

 

[kemal turan]

Sn.Tasmed,
Emeğiniz için çok teşekkür ederim.
Selametle kalınız