Ateş Ölçer

Merhabalar Sn. zompcu_80
Ekteki dosyayı dener misiniz?

Sayın AhmetRasim ilginize teşekkür ederim. Sizden EK'teki kodu nereye ekleyebilirim hususunda da yardım rica etsem.

Sub Gun_Ekle()
Dim Yil As Variant
Dim Ay As Byte
Dim Gun As Byte
ActiveSheet.Range("B4:B34").ClearContents
Yil = Year(Range("B1"))
Ay = Month(Range("B1"))
For g = 1 To Day(DateSerial(Yil, Ay + 1, 0))
Cells(g + 3, 2) = Format(DateSerial(Yil, Ay, g), "dddd")
Next g
End Sub

Merhaba Sn @yasarpiskin

@AhmetRasim üstadımın yüksek müsaadeleriyle.

Yapmanız gerekenler;
- Kodu seçerek kopyala
- Sayfa ismi üzerinde sağ klik / Kod Görüntüle
- Kodu yapıştır. Sayfayı kapat.

Kodu Tetiklemesi için;
İlgili sayfada
- Geliştiri seçeneği aktif ise Geliştirici/ Ekle / Form Denetimlerinden Düğme Ekle veya herhangi bir şekilde çizebilirsin.
- Düğme veya şekil üzerinde sağ klik / Makro Ata / Listede Gun_Ekle ' makrosunu göreceksin seç ve Tamam

İyi çalışmalar.

Sayın ycicek ilginize teşekkür ederim. Bunu düğme eklemeden aylar değiştikçe günler gelsin şeklinde yapmak istiyorum.

Merhabalar;
Ekteki dosyayı dener misiniz?
Gun_Ekle kodu bazı ay isimlerinde hata veriyordu, bu nedenle küçük bir ekleme yaptım.

Sayın AhmetRasim, ycicek ilginize teşekkür ederim. Sorun çözüldü.

Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.