tarih sütunu oluşturmak

Katılım
29 Haziran 2008
Mesajlar
23
Excel Vers. ve Dili
MS Office 2007 ENG
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Ekteki dosyada Seçili yerin sağ alt köşesindeki noktayı aşağıya doğru çekiştiriniz.
 
Katılım
29 Haziran 2008
Mesajlar
23
Excel Vers. ve Dili
MS Office 2007 ENG
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Tarih Serisi Oluşturmak

Merhaba,

Farklı yöntemlerle de yapılabilir belki.

Kod:
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
 
Katılım
29 Haziran 2008
Mesajlar
23
Excel Vers. ve Dili
MS Office 2007 ENG
yardımınız için teşekkürler
 
Üst