Userform ile çoklu koşula göre veri kaydetme

[Believing]

Sayın Uzman arkadaşlar,

Eketeki çalışmada hergün görev yerleri değişen çalışanlar ile ilgili kayıtlarını tutmak istediğim bir çalışma bulunmaktadır.
Çalışmada detayları verilen senaryoları gerçekleştirmek için nasıl bir kod kullanmalıyım?
Benim için çok değerli olan yardımlarınızı rica ediyorum.
Kadir gecenizi kutlar, hayırlara ve bağışlanmamıza vesile olmasını dilerim.

Saygılarımla,

 

[YUSUF44]

Sizin istediğiniz gibi değil ama kendimce daha iyi olduğunu düşündüğüm bir userform hazırladım. İnceleyiniz.

 

[Believing]

Sayın Haluk bey,

Ellerinize ve emeğinize sağlık. Amaca uygun mükemmel bir çalışma olmuş.
Hızlı veri girişi için Listbox3 için "Tümünü Seç" ve "Seçimi Kaldır" Checkbox'lar eklenirse çok makbule geçecektir.
Kadir gecenizi kutlar, sizlerin, sevdiklerinizin ve cümlemizin kurtuluşuna ve hayırlara vesile olmasını dilerim.

Saygılarımla,

 

[YUSUF44]

Haluk Bey yok galiba, ben yardımcı olayım:

#2 nolu mesajın ekini yeniledim, inceleyiniz.

 

[Believing]

Haluk Bey yok galiba, ben yardımcı olayım:

#2 nolu mesajın ekini yeniledim, inceleyiniz.

Sayın Yusuf bey,

Çok özür dilerim. İsimleri ve konuları karıştırmışım.
Ellerinize ve emeğine sağlık. Çalışma amacına sayenizde fazlasıyla ulaşmıştır.
ALLAH sizden ve sevdiklerinizden razı olsun.
Kadir gecenizi kutlar, hayırlara vesile olmasını temenni ederim.
Hakkınız helal ediniz lütfen.

Saygılarımla,

 

[YUSUF44]

Estağfurullah, olur öyle

Bilmukabele, helal olsun. Sağlıklı günler dilerim.

Bu sayede ben de bir çok yeni konu öğrenmiş oldum.

 

[Believing]

Sayın Yusuf bey,

Listbox'ların herhangi birinden seçin yapılmayınca mesaj almak mümkün müdür?
Çünkü kayıt yapıp yapmadığı belli olmuyor. Her defasında satırlara gidip kontrol etmek gerekiyor.

Saygılarımla,

 

[ÖmerFaruk]

Kendi kodlarınıza uygun yere yerkeltirebilirsiniz.
Bana göre KAYDET butonundaki kodların başı uygundur.

If ListBox1.ListIndex < 0 Or ListBox2.ListIndex < 0 Or ListBox3.ListIndex < 0 Then
    MsgBox " Eksik seçim"
    Exit Sub
End if

 

[YUSUF44]

Ekli dosyayı inceleyiniz.

 

[Believing]

Sayın Yusuf bey,

Ellerinize emeğinize sağlık.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınız helal ediniz lütfen.

Saygılarımla,

 

[Believing]

Merhaba Yusuf bey,

Ay değerini değiştirmek isteyince aşağıdaki hatayı alıyorum.

Saygılarımla,

 

[YUSUF44]

For satırını aşağıdakiyle değiştirip deneyin. +3'leri ilave ettim :

For i = FirstDayInMonth + 3 To (LastDayInMonth + FirstDayInMonth - 1 + 3)

 

[Believing]

Merhaba Yusuf bey,

Ellerinize emeğinize sağlık.
Hayırlı akşamlar,

Saygılarımla,