Tarih ve Saat

[numan şamil]

Merhaba Arkadaşlar
Ekli dosyada açıkladığım gibi "A2" hücresindeki
'01/12/2018 00:00:00 tarih saate 1 saat eklenerek bir alt hücreye("A3")hücresine
'01/12/2018 01:00:00 yazacak böylece devam edecektir
.
.
.
'01/12/2018 23:00:00 olduğunda
'02/12/2018 00:00:00
'02/12/2018 01:00:00 şeklinde devam edecek
Makroyu nasıl yazabilirim

 

[turist]

A sütununun biçimlendirmesini gg.aa.yyyy ss:dd şeklinde uygulayın ve aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
For i = 3 To 29
Cells(i, 1) = Cells(i - 1, 1) + 1 / 24
Next i
End Sub

For i=3 to 29 daki 29 sayısı döngünün son değeridir.İstediğiniz şekilde değiştirebilirsiniz.

 

[numan şamil]

A sütununun biçimlendirmesini gg.aa.yyyy ss:dd şeklinde uygulayın ve aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
For i = 3 To 29
Cells(i, 1) = Cells(i - 1, 1) + 1 / 24
Next i
End Sub

For i=3 to 29 daki 29 sayısı döngünün son değeridir.İstediğiniz şekilde değiştirebilirsiniz.

Merhaba
Cells(i, 1) = Cells(i - 1, 1) + 1 / 24
Kısmında hata veriyor
Ayrıca Butona atıyarak çalıştırmak istiyorum

 

[numan şamil]

Merhaba
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
For i = 3 To 29
Cells(i, 1) = CDate(Cells(i - 1, 1)) + 1 / 24
Next i
End Sub
Şeklinde düzenleyince çalıştı Teşekkürler

 

[Necdet]

Merhaba,
Başka bir seçenek olarak, seri doldurmayı deneyebilirsiniz.
A2 deki ciddi ciddi tarih ve saat içermelidir.

Sub Makro1()
   
    Range("A2:A29").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=4.16666666666667E-02, Trend:=False
End Sub

 

[numan şamil]

Merhaba,
Başka bir seçenek olarak, seri doldurmayı deneyebilirsiniz.
A2 deki ciddi ciddi tarih ve saat içermelidir.

Sub Makro1()
  
    Range("A2:A29").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=4.16666666666667E-02, Trend:=False
End Sub

Teşekkürler