Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-01-2017, 08:39   #1
sserhat
Altın Üye
 
sserhat kullanıcısının avatarı
 
Giriş: 24/10/2012
Şehir: Erzurum
Mesaj: 65
Excel Vers. ve Dili:
excel 2010 tr
Varsayılan ÖĞRETMEN RAPOR-İZİN TAKİP DOSYASI HK. VBA Yardım

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ı.
Eklenmiş Dosyalar
Dosya Türü: xlsm ÖĞRETMEN İZİN RAPOR TAKİP DOSYASI.xlsm (75.0 KB, 17 Görüntülenme)
__________________
İnsanların En Hayırlısı, İnsanlara Faydası Olandır.
İnşallah,İnsanlar İçin Faydalı Biri Olabiliriz...
sserhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-01-2017, 21:52   #2
sserhat
Altın Üye
 
sserhat kullanıcısının avatarı
 
Giriş: 24/10/2012
Şehir: Erzurum
Mesaj: 65
Excel Vers. ve Dili:
excel 2010 tr
Varsayılan

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")
__________________
İnsanların En Hayırlısı, İnsanlara Faydası Olandır.
İnşallah,İnsanlar İçin Faydalı Biri Olabiliriz...
sserhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2017, 12:49   #3
sserhat
Altın Üye
 
sserhat kullanıcısının avatarı
 
Giriş: 24/10/2012
Şehir: Erzurum
Mesaj: 65
Excel Vers. ve Dili:
excel 2010 tr
Varsayılan

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...
Eklenmiş Dosyalar
Dosya Türü: xlsm ÖĞRETMEN İZİN RAPOR TAKİP DOSYASI.xlsm (73.8 KB, 26 Görüntülenme)
__________________
İnsanların En Hayırlısı, İnsanlara Faydası Olandır.
İnşallah,İnsanlar İçin Faydalı Biri Olabiliriz...

Bu mesaj en son " 22-01-2017 " tarihinde saat 12:58 itibariyle sserhat tarafından düzenlenmiştir....
sserhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2017, 14:51   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,658
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
sserhat tarafından gönderildi Mesajı Görüntüle
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.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-01-2017, 17:16   #5
sserhat
Altın Üye
 
sserhat kullanıcısının avatarı
 
Giriş: 24/10/2012
Şehir: Erzurum
Mesaj: 65
Excel Vers. ve Dili:
excel 2010 tr
Varsayılan

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
Tebrik ederim.
Teşekkür ederim hocam, siteden bir şeyler öğrenmeye çalışıyoruz çok şükür
__________________
İnsanların En Hayırlısı, İnsanlara Faydası Olandır.
İnşallah,İnsanlar İçin Faydalı Biri Olabiliriz...
sserhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 21:31   #6
hcirakoglu
Altın Üye
 
Giriş: 25/09/2007
Şehir: ankara
Mesaj: 2
Excel Vers. ve Dili:
türkçe
Varsayılan

hocam yaptığınız programın bitti ise paylaşabilir misiniz. ben de faydalanmak istiyorum.
hcirakoglu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:38


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden