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

[xmenx]

Merhaba ekteki dosyada Userform var izin başlangıç tarihine izin başlangıçı yazdım kaç gün textboxunada kaç gün çıkıcaksa izne onu yazdım izin bitiş tarihini kendisi vericek işe başlama tarihine kendisi otomatik yazıcak şekilde.

Diyelim 12.12.2022 izne çıkış tarihi kaç gün textbox14 gün yazdım pazar günleri saymıcak 27.12.2022 bitiş tarihi 28.12.2022 işe başlangıç tarihi yazıcak . Yardımcı olursanız sevinirim

 

[halily]

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

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[xmenx]

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

 

[halily]

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

 

[xmenx]

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

 

[Patron]

Alternatif.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[xmenx]

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

 

[halily]

Trh Mod

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

 

[xmenx]

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