tarih sütunu oluşturmak

[clayman]

merhaba arkadaşlar bir sorum olucak

şimdi çalıştığım bi excel sayfasına tarih stünu oluşturmak istiyorum tarihler 02.10.2005 ile 01.06.2006 aralığında bir stün oluşturmam gerekio fakat her günden 24 adet yani saat aralıklarına göre tarihler olması gerekio

Örnek :

02.10.2005-----00:00-----01:00
02.10.2005-----01:00-----02:00
. . .
. . .
02.10.2005-----23:00-----00:00
03.10.2005-----00:00-----01:00
. . .
. . .

gibi bir tablo oluşturmam gerekio. yardımcı olursanız çok sevinirim.

 

[Necdet]

Merhaba,

Ekteki dosyada Seçili yerin sağ alt köşesindeki noktayı aşağıya doğru çekiştiriniz.

 

[clayman]

yardımınız için çok teşekkürler fakat tam olarak benim istediğim bu deil ben istediğim şekli ekte gönderdim bi bakarsanız çok sevinirim

 

[Necdet]

Tarih Serisi Oluşturmak

Merhaba,

Farklı yöntemlerle de yapılabilir belki.

Public Sub Doldur()
Application.ScreenUpdating = False
Dim BasT, BitT As Date
Dim Sat As Integer
Sat = 1
BasT = [G1]
BitT = [H1]
Saat = "00:00"
Sheets(1).Select
[A2:C65536].ClearContents
Do While BasT <= BitT
    For i = 1 To 24
        Sat = Sat + 1
        Cells(Sat, "A") = BasT
        Cells(Sat, "B") = Saat
        Saat = DateAdd("h", 1, Saat)
        Cells(Sat, "C") = Saat
    Next i
    BasT = DateAdd("d", 1, BasT)
Loop
End Sub

 

[clayman]

yardımınız için teşekkürler