ÖĞRETMEN RAPOR-İZİN TAKİP DOSYASI HK. VBA Yardım

[sserhat]

Merhaba,

Bir dosya yapmaya çalışıyorum ama formülle yaptığımda epey uzun bir formül olacak gibi, bunu vba ile yapmak istiyorum. Konu hakkında bilgi vereyim.

Userform açılıyor, öğretmen adı soyadı izin türü vs seçip kaydediyoruz. Dosyanın 2. sayfasında öğretmenin günlük ders saatleri kurs saatleri ve egzersiz saatleri var....Öğretmenin raporlu olduğu gün Pazartesi ise o güne ait ders saati kurs saati de yazılsın.(buraya kadar formülle yaptım).....Asıl yapmak istediğim öğretmen 3-4 veya 10 gün rapor alabilir. Bu durumda raporların hafta içine gelen günlerdeki toplam ders-kurs saatini hesaplamasını istiyorum.

Öğretmen Salı günü 3 günlük rapor aldı. Salı Çarşamba ve Perşembe günü toplam ders saatini hesaplasın.

Ya da Öğretmen Cuma günü 5 günlük rapor aldı. Cuma, Pazartesi, Salı günlerinin toplam ders saatini hesaplamalı.

 

[sserhat]

Eğer Textbox 1 ise f sütununa D sütunundaki tarihin gününü yazsın istiyorum. Cumartesi yazıyo

Eğer Textbox 2 ise f sütununa Cumartesi-Pazar yazsın istiyorum hata veriyo owerflow hatası....Acaba +1 i mi yanlış yere yazıyorum....

Textbox 3 ise Cumartesi-Pazar-Pazartesi şeklinde devam edecek.

If TextBox1.Text = 1 Then
Sheets("ALINANLAR").Range("F" & Bos_Satir).Value = Format(Sheets("ALINANLAR").Range("D" & Bos_Satir).Value, "dddd")
ElseIf TextBox1.Text = 2 Then
Sheets("ALINANLAR").Range("F" & Bos_Satir).Value = Format(Sheets("ALINANLAR").Range("D" & Bos_Satir).Value, "dddd") & "-" & Format(Sheets("ALINANLAR").Range("D" & Bos_Satir)+1, "dddd")

 

[sserhat]

Sorunu deneme yanılma yoluyla çözdüm arkadaşlar.


Direkt tarih olan D hücresini güne çevirmeyip HAFTANINGÜNÜ ile yaptım sorun düzeldi.

Format(Weekday(Range("D" & Bos_Satir), 1), "dddd") & "-" & Format(Weekday(Range("D" & Bos_Satir), 1) + 1, "dddd")

Yapınca Pazartesi-Salı şeklinde yazıyor.

Kolay gelsin herkese...

 

[Orion1]

Sorunu deneme yanılma yoluyla çözdüm arkadaşlar.


Direkt tarih olan D hücresini güne çevirmeyip HAFTANINGÜNÜ ile yaptım sorun düzeldi.

Format(Weekday(Range("D" & Bos_Satir), 1), "dddd") & "-" & Format(Weekday(Range("D" & Bos_Satir), 1) + 1, "dddd")

Yapınca Pazartesi-Salı şeklinde yazıyor.

Kolay gelsin herkese...

Tebrik ederim.

 

[sserhat]

Tebrik ederim.

Teşekkür ederim hocam, siteden bir şeyler öğrenmeye çalışıyoruz çok şükür:idea:

 

[hcirakoglu]

hocam yaptığınız programın bitti ise paylaşabilir misiniz. ben de faydalanmak istiyorum.