Çözüldü İzin başlangıç tarihi Pazar günleri izinli olarak

aşağıdaki kodu dener misiniz?
TextBox6 çıkıldığında olayı

Çalıştı hocam çok teşekkür ederim

Anlayamadığınız yer olursa sorun açıklamaya çalışırız

Hocam Exit(ByVal Cancel As MSForms.ReturnBoolean) bu olayı change olarak değiştirdim ve boş olup geçince hata veriyordu On error resume next koydum kodun başına şuan sıkıntısız çalışıyor.. Trh Mod olayını ilk defa gördüm hocam normalde WorksheetFunction.WorkDay bu şekilde bulunuyor sanırım iş günleri

Balta hocam sizin kodda çok güzel çalıştı emeklerinize sağlık

xmenx' Alıntı:

Trh Mod

Genişletmek için tıkla...

trh mod 7 işlevi gun sayısını 7ye bölerek çıkan sonucun hangi gün olduğunu gösterir
cumartesi =0
pazar=1
...
cuma=6 sonucunu dönderir
if trh mod<>1 demek eğer gün pazar değilse anlamına gelir
hata kontrollerini eklemedim onları sizin eklemeniz kodları anlamada ve kullanmada size yol gösterir
ama bence change yerine exit kullanmanız daha mantıklı
change'de metin her değiştiğinde kod çalışır oysa 14 gün olacaksa siz 1 yazdığında çalışması pek mantıklı olmaz
ama exit kullanırsanız zaten ilgili metin kutusuyla işiniz bittiğinden ilgili metin kutusundan çıktığınızda çalışması daha uygun olur

Değerli açıklamanız için teşekkür ederim daha iyi anladım hocam dediğiniz exit olarak kullanıcam zaten bu şekilde deneyerek yaparak daha iyi ögreniyorum . ama işte sıkışınca mecbur sizin değerli bilgilerinize ihtiyacımız oluyor