Otomatik Saat Yazdırma

[hakki83]

Merhaba

Ekteki kodu, Korhan hocamın bir kodunun bir satırından, tahmin yürüterek almıştım.

Bu kodun yaptığına benzer
B1:AC1 hücrelerine, 15'er dakika aralıklarla saatleri otomatik olarak nasıl yazdırabilirim?

(Başlangıç saati, saat aralıkları ve bitiş saati değişkendir)



Teşekkürler

 

[Necdet]

Merhaba,
Doldur - Seri ile rahatlıkla yapabilirsiniz.

Makro kodu da :

Sub Makro1()
    
    Range("B1") = "08:00:00"
    
    Range("B1:AC1").DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _
        :=1.04166666666667E-02, Trend:=False
        
End Sub

 

[hakki83]

Necdet hocam teşekkürler tam istediğim gibi, emeğinize sağlık,
Fakat ben 15 sayısını nereye yazacağım,
Ya da aralıklar, 10 dk, 20 dk gibi değiştiğinde ne yazmam gerekiyor?

 

[Necdet]

Merhaba,
Bu seri olayı baya işi kolaylaştırıyor, inceleyiniz.
Adım değerine 00:15:00 yazınca makro onu sayısal değere dönüştürüyor, onu dikkate almayın.

 

[hakki83]

Necdet hocam merhaba

Saat olayı makro kaydet yöntemiyle çözüldü. Deneme yapılabilecek örnek dosyayı tekrar ekledim.
(Bomboş sayfaya saatler otomatik geliyor, güzel)

Fakat tarih olayı ise tamamen aynı makro kaydet yöntemiyle yapmama rağmen olmuyor.

Hatamız nerede olabilir hocam.

(Bu arada ilk örnek dosyaya eklediğim tarihle ilgili kod satırı eksikmiş)

 

[Necdet]

Merhaba,
Kodlarınız çalışıyor ama SelectionChange kodu da herşeyi silip atıyor, onu neden kullanıyorsunuz?
Silin o kodları. Diğerleri sağlıklı çalışıyor.

 

[hakki83]

Merhaba,
Kodlarınız çalışıyor ama SelectionChange kodu da herşeyi silip atıyor, onu neden kullanıyorsunuz?
Silin o kodları. Diğerleri sağlıklı çalışıyor.

Merhaba Necdet hocam
Selection Change’i kullanmıyorum hocam.
Bu örnek dosya olduğu için çabucak silinsin ve tarihlerin oluşmadığı hemen görülsün diye eklemiştim.

Sorum şuydu hocam, tarihler oluşmuyor, hatam ya da eksiğim nedir acaba?

 

[Necdet]

Tarihi text olarak aldığı için kodların çalışmadığını düşünüyorsunuz.
Aşağıdaki gibi kullanın.
Eğer dosyayı AnaSayfa da iken kapatırsanız, açıldığında da ana sayfa olacağı için kod çalışmayacaktır.
Bunun için diğer sayfaya gidip tekrar ana sayfayı çağırmanız gerekecek.

Private Sub Worksheet_Activate()

Range("A2") = CDate("01.01.2022")
Range("A2:A10000").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1, Trend:=False

Range("B1") = "08:00:00"
Range("B1:AC1").DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step:=1.04166666666667E-02, Trend:=False

End Sub

 

[hakki83]

Sağ olunuz hocam. Hemen deneyeyim.