Makro Düğmeleriyle Bir Hücrenin Değeri Artar/Eksilir mi?

[A_day]

Hemen denedim ve gördüğüm kadarıyla sorunsuz çalışıyor. Size ne kadar teşekkür etsem azdır çünkü sizi haddim olmayarak çok uğraştırdım. işinizin arasında vakit ayırdınız, tüm güzellikler sizinle olsun, sağolun...

 

[A_day]

Yardımlarınızla tamamladığım dosyayı paylaşmak istedim.

RC model uçak tasarımı/yapımı ile uğraşan arkadaşlar varsa işlerine yarayabilir...

 

[peleryn]

Elinize sağlık gayet güzel olmuş.Hazır böyle bir çalışma varken RC modellerle biraz ilgilesem mi diye düşündüm valla

 

[sabanozturk]

merhabalar ,

Bİr hücreye yılşecimi yapmak istiyorum. yanına ok koyup hangi yıl sa onu secmek istiyorum nasıl yapabilirim.

Yerdımlarınız için şimdiden teşekkürr ederim.

 

[A_day]

Ucundan kıyısından bir bulaşın, pişman olmayacaksınız...

 

[dbicer83]

Standart olarak hücrenin exceldeki =bugün() fonksiyonun çalışmasını istiyorum. Aslında hep sistem tarihi yazmalı ama ara sırada eksiltip azaltılabilmeli.Nasıl yol izlenebilir.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları boş bir modüle uygulayınız.

Option Explicit
 
Sub AUTO_OPEN()
    Sheets("Sayfa1").Range("A1") = "=TODAY()"
End Sub
 
Sub TARİH_ARTTIR()
    Dim Gün
    Gün = Application.InputBox("Eklemek istediğiniz gün sayısını giriniz !", , 1)
    If Gün = "" Or Gün = False Then Exit Sub
    Sheets("Sayfa1").Range("A1") = "=TODAY()+" & Gün
End Sub
 
Sub TARİH_AZALT()
    Dim Gün
    Gün = Application.InputBox("Eksiltmek istediğiniz gün sayısını giriniz !", , 1)
    If Gün = "" Or Gün = False Then Exit Sub
    Sheets("Sayfa1").Range("A1") = "=TODAY()-" & Gün
End Sub
 
Sub SIFIRLA()
    Sheets("Sayfa1").Range("A1") = "=TODAY()"
End Sub

Ayrıca ekteki örnek dosyayıda inceleyebilirsiniz.

 

[dbicer83]

Teşekkür ederim.
İyi çalışmalar.