[Yardım]  Günlük Görev Listesi hk.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Günlük Görev Listesi hk.

İleti#1)  kozcat » 10 Şub 2020 11:53

deneme exceli2.rar
MERHABA ARKADAŞLAR,

BİR KONUDA YARDIMINIZA İHTİYACIM VAR. NE YAPTIMSA YAPMAYI BECEREMEDİM.
ÇALIŞTIĞIM YERDE VARDİYALI ÇALIŞMA SİSTEMİ VAR VE GÜNLÜK KAYIT YAPIYORUZ.
EXCELDE TARİHE BAĞLI OLARAK HÜCRENİN DEĞİŞMESİNİ İSTİYORUM. ŞU ŞEKİLDE ANLATAYIM BUGÜN GÜNDÜZ ÇALIŞAN YARIN GECE ÇALIŞIYOR. BUNU OTOMATİK OLARAK NASIL YAPABİLİRİM. PAZARTESİ GÜNÜ GÜNDÜZ ÇALIŞAN SALI GECE YAZACAK. PERŞEMBE GÜNÜ TEKRAR GÜNDÜZ YAZACAK, CUMA GÜNÜ GECE YAZACAK, PAZAR GÜNÜ GÜNDÜZ YAZACAK BU ŞEKİLDE SÜREKLİ DEVAM EDECEK. GÜN DEĞİŞTİKÇE BUNU OTOMATİK YAPACAK. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#2)  Miraç CAN » 10 Şub 2020 13:41

Kod: Tümünü seç
Private Sub Workbook_Open()
If Application.IsOdd(Weekday(Date, vbMonday)) Then
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Else
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End If
End Sub
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Günlük Görev Listesi hk.

İleti#3)  mstfkrmbktcnr » 10 Şub 2020 15:14

Merhaba, istediğiniz çalışma bu şekilde olabilir mi? Sanrım Çarşamba günü mesai yok, A2 hücresinden ay seçebilirsiniz, resmi tatil günlerini gri renk'e boyamasını istiyorsanız 2. satırdaki kısma "x" işareti ile belirtin. Formüller açık, Gece, Gündüz mantığını kendinize göre uyarlayabilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mstfkrmbktcnr
Siteye Alışmış
 
Kayıt: 10 Şub 2018 10:17
Meslek: finans
Yaş: 48
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#4)  kozcat » 10 Şub 2020 15:27

Miraç CAN yazdı:
Kod: Tümünü seç
Private Sub Workbook_Open()
If Application.IsOdd(Weekday(Date, vbMonday)) Then
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Else
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End If
End Sub


öncelikle cevabınız için teşekkür ederim. Ama bu şekilde olunca çarşamba günüde gündüz gece şeklinde yazıyor. benim sistemde pazartesi gündüz salı gece çarşamba boş, sonra perşembe gündüz cuma gece cumartesi boş olması lazım bunu nasıl ayarlayacağız bilemedim
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#5)  kozcat » 10 Şub 2020 15:29

mstfkrmbktcnr yazdı:Merhaba, istediğiniz çalışma bu şekilde olabilir mi? Sanrım Çarşamba günü mesai yok, A2 hücresinden ay seçebilirsiniz, resmi tatil günlerini gri renk'e boyamasını istiyorsanız 2. satırdaki kısma "x" işareti ile belirtin. Formüller açık, Gece, Gündüz mantığını kendinize göre uyarlayabilirsiniz.



öncelikle cevabınız için teşekkür ederim. Ama ben bunu makro ile otomatik yapmak istiyorum. sizin gönderdiğiniz örnekte makro yok sanırım
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#6)  Miraç CAN » 10 Şub 2020 15:32

Pazar?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Günlük Görev Listesi hk.

İleti#7)  mstfkrmbktcnr » 10 Şub 2020 15:35

Evet Makro yok, personel bazında ve güne göre değişen bir senaryoda nasıl makro yapılır ben bilmiyorum. Gönderdiğim Excelde Personelleri alt alta yazıp ilk o ayın ilk gününe Gece mi Gündüz mü olarak belirtirseniz ay sonunda kadar günleri otomatik dolduruyor. Sadece ay ve personel başlangıç mesaisini seçeceksiniz.
Kullanıcı avatarı
mstfkrmbktcnr
Siteye Alışmış
 
Kayıt: 10 Şub 2018 10:17
Meslek: finans
Yaş: 48
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Günlük Görev Listesi hk.

İleti#8)  Miraç CAN » 10 Şub 2020 15:43

Pazar gününü de siz ekleyebilirsiniz sanırım.
Kod: Tümünü seç
Private Sub Workbook_Open()
Select Case Weekday(Date, vbMonday)
Case 1, 4
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Case 2, 5
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End Select
End Sub
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Günlük Görev Listesi hk.

İleti#9)  Miraç CAN » 10 Şub 2020 15:53

kozcat yazdı:
deneme exceli2.rar
MERHABA ARKADAŞLAR,

BİR KONUDA YARDIMINIZA İHTİYACIM VAR. NE YAPTIMSA YAPMAYI BECEREMEDİM.
ÇALIŞTIĞIM YERDE VARDİYALI ÇALIŞMA SİSTEMİ VAR VE GÜNLÜK KAYIT YAPIYORUZ.
EXCELDE TARİHE BAĞLI OLARAK HÜCRENİN DEĞİŞMESİNİ İSTİYORUM. ŞU ŞEKİLDE ANLATAYIM BUGÜN GÜNDÜZ ÇALIŞAN YARIN GECE ÇALIŞIYOR. BUNU OTOMATİK OLARAK NASIL YAPABİLİRİM. PAZARTESİ GÜNÜ GÜNDÜZ ÇALIŞAN SALI GECE YAZACAK. PERŞEMBE GÜNÜ TEKRAR GÜNDÜZ YAZACAK, CUMA GÜNÜ GECE YAZACAK, PAZAR GÜNÜ GÜNDÜZ YAZACAK BU ŞEKİLDE SÜREKLİ DEVAM EDECEK. GÜN DEĞİŞTİKÇE BUNU OTOMATİK YAPACAK. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM.


Ertesi hafta P.tesi gece mi olacak? 3 günde bir tekrarlayacak yani?
1. gün gündüz, 2. gün gece, 3. gün boş mu olacak?

Eğer öyleyse:
Kod: Tümünü seç
Private Sub Workbook_Open()
Select Case CLng(Date) Mod 3
Case 2
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Case 0
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End Select
End Sub
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#10)  kozcat » 10 Şub 2020 16:21

Miraç CAN yazdı:
kozcat yazdı:
deneme exceli2.rar
MERHABA ARKADAŞLAR,

BİR KONUDA YARDIMINIZA İHTİYACIM VAR. NE YAPTIMSA YAPMAYI BECEREMEDİM.
ÇALIŞTIĞIM YERDE VARDİYALI ÇALIŞMA SİSTEMİ VAR VE GÜNLÜK KAYIT YAPIYORUZ.
EXCELDE TARİHE BAĞLI OLARAK HÜCRENİN DEĞİŞMESİNİ İSTİYORUM. ŞU ŞEKİLDE ANLATAYIM BUGÜN GÜNDÜZ ÇALIŞAN YARIN GECE ÇALIŞIYOR. BUNU OTOMATİK OLARAK NASIL YAPABİLİRİM. PAZARTESİ GÜNÜ GÜNDÜZ ÇALIŞAN SALI GECE YAZACAK. PERŞEMBE GÜNÜ TEKRAR GÜNDÜZ YAZACAK, CUMA GÜNÜ GECE YAZACAK, PAZAR GÜNÜ GÜNDÜZ YAZACAK BU ŞEKİLDE SÜREKLİ DEVAM EDECEK. GÜN DEĞİŞTİKÇE BUNU OTOMATİK YAPACAK. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM.


Ertesi hafta P.tesi gece mi olacak? 3 günde bir tekrarlayacak yani?
1. gün gündüz, 2. gün gece, 3. gün boş mu olacak?

Eğer öyleyse:
Kod: Tümünü seç
Private Sub Workbook_Open()
Select Case CLng(Date) Mod 3
Case 2
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Case 0
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End Select
End Sub


3 günde 1 tekrarlayacak bu böyle gidecek
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#11)  Miraç CAN » 10 Şub 2020 17:05

Son yazdığım kodu kullanın.
Değişim gerekecek olursa Case 2 Case 0 kısımlarını değiştirin,
Günün tarihine göre deneyerek yapabilirsiniz.
1900 yılından bugüne kadar olan gün sayısını CLng(Date) verir .
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#12)  kozcat » 10 Şub 2020 18:52

Miraç CAN yazdı:Son yazdığım kodu kullanın.
Değişim gerekecek olursa Case 2 Case 0 kısımlarını değiştirin,
Günün tarihine göre deneyerek yapabilirsiniz.
1900 yılından bugüne kadar olan gün sayısını CLng(Date) verir .


Cevabınız için çok teşekkür ederim. Bişey daha isteyebilirmiyim 5 gün gündüz sonra 1 gün gece ve sonra 1 gün boş olacak şekilde nasıl yapabiliriz bu son sorum olacak
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#13)  Miraç CAN » 11 Şub 2020 07:52

Kod: Tümünü seç
Select Case CLng(Date) Mod 7
Case 1 To 5
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Case 6
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End Select
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#14)  kozcat » 11 Şub 2020 13:52

Miraç CAN yazdı:
Kod: Tümünü seç
Select Case CLng(Date) Mod 7
Case 1 To 5
    [B2:B3] = Application.Transpose(Array("GÜNDÜZ", "GECE"))
Case 6
    [B2:B3] = Application.Transpose(Array("GECE", "GÜNDÜZ"))
End Select


miraç hocam en son gönderdiğiniz kod 15.02.2020 tarihine gelince çalışmıyor duruyor. Ben sürekli devam etmesini istiyorum. günlük olarak devamlı nasıl çalıştırabiliriz
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#15)  Miraç CAN » 11 Şub 2020 14:25

Nasıl kullandınız bilemiyorum ama uygulama da hata yapıyorsunuz sanki.
Tarihin gün sayısını esas alarak çalışır, 7 günde bir tekrar eder.
Ama bu bir döngü değil. Workbook_Open olayına ekleyin, sistem tarihi değişince çalışır.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#16)  kozcat » 11 Şub 2020 16:40

Miraç CAN yazdı:Nasıl kullandınız bilemiyorum ama uygulama da hata yapıyorsunuz sanki.
Tarihin gün sayısını esas alarak çalışır, 7 günde bir tekrar eder.
Ama bu bir döngü değil. Workbook_Open olayına ekleyin, sistem tarihi değişince çalışır.


Workbook_Open olayına ekliyorum sistem tarihinide manuel olarak değiştirerek yaptım. ayın 15 ine kadar kod çalışıyor daha sonra duruyor kontrol etme imkanınız varmı acaba
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Cevap: Cevap: Günlük Görev Listesi hk.

İleti#17)  Miraç CAN » 12 Şub 2020 08:05

kozcat yazdı:
Miraç CAN yazdı:Nasıl kullandınız bilemiyorum ama uygulama da hata yapıyorsunuz sanki.
Tarihin gün sayısını esas alarak çalışır, 7 günde bir tekrar eder.
Ama bu bir döngü değil. Workbook_Open olayına ekleyin, sistem tarihi değişince çalışır.


Workbook_Open olayına ekliyorum sistem tarihinide manuel olarak değiştirerek yaptım. ayın 15 ine kadar kod çalışıyor daha sonra duruyor kontrol etme imkanınız varmı acaba

15'i boş güne denk geliyor.
Önceki cevaplarımda yazmıştım; ihtiyacınıza göre düzenleyin.

Son yazdığım kodu kullanın.
Değişim gerekecek olursa Case 2 Case 0 kısımlarını değiştirin,
Günün tarihine göre deneyerek yapabilirsiniz.
1900 yılından bugüne kadar olan gün sayısını CLng(Date) verir .


Ya da olayın mantığını yanlış aktardınız bana. 7 günlük döngü içerisinde, 5 gün "Gündüz" 1 gün "Gece" 1 gün boş dediniz.
Bu kodda aynı istediğinizi yapar, fakat başlangıç gününü belirtmediniz.
Mesela bu, P.tesi'den Cuma'ya gibi çalışmaz. Uyarlamayla yapılabilir fakat, onun da daha basit başka komutu var.
Umarım açıklayabildim.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cevap: Cevap: Günlük Görev Listesi hk.

İleti#18)  kozcat » 12 Şub 2020 08:14

Miraç CAN yazdı:
kozcat yazdı:
Miraç CAN yazdı:Nasıl kullandınız bilemiyorum ama uygulama da hata yapıyorsunuz sanki.
Tarihin gün sayısını esas alarak çalışır, 7 günde bir tekrar eder.
Ama bu bir döngü değil. Workbook_Open olayına ekleyin, sistem tarihi değişince çalışır.


Workbook_Open olayına ekliyorum sistem tarihinide manuel olarak değiştirerek yaptım. ayın 15 ine kadar kod çalışıyor daha sonra duruyor kontrol etme imkanınız varmı acaba

15'i boş güne denk geliyor.
Önceki cevaplarımda yazmıştım; ihtiyacınıza göre düzenleyin.

Son yazdığım kodu kullanın.
Değişim gerekecek olursa Case 2 Case 0 kısımlarını değiştirin,
Günün tarihine göre deneyerek yapabilirsiniz.
1900 yılından bugüne kadar olan gün sayısını CLng(Date) verir .


Ya da olayın mantığını yanlış aktardınız bana. 7 günlük döngü içerisinde, 5 gün "Gündüz" 1 gün "Gece" 1 gün boş dediniz.
Bu kodda aynı istediğinizi yapar, fakat başlangıç gününü belirtmediniz.
Mesela bu, P.tesi'den Cuma'ya gibi çalışmaz. Uyarlamayla yapılabilir fakat, onun da daha basit başka komutu var.
Umarım açıklayabildim.


Belkide ben orada hata yaptım başlangıç tarihi bugünden itibaren nasıl ayarlarız basit bir kodu var dediniz ama bilmediğim için bulamadım. Bu konudada yardımcı olursanız çok sevinirim. Verdiğiniz cevaplar ve sabrınız içinde ayrıca teşekkür ederim.
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Günlük Görev Listesi hk.

İleti#19)  Miraç CAN » 12 Şub 2020 09:22

Hocam isteğinizi net olarak ifade edebilir misiniz?
Bugünden itibaren 5 gündüz, 1 gece, 1 boş mu?
P.tesi'den Cuma'ya gündüz, C.tesi gece, Pazar boş mu?
Ve bu döngü nasıl tekrar ediyor, ardışık günlük, haftalık, aylık?

İlk yazdığınızdan hatırladığım;
Önce 3 günde bir dediniz, sonra çarşamba boş dediniz, sonra bunlar peşi sıra tekrar edecek dediniz.
Yapmak istediğinizi açıkça ifade edin, net olun. Gerekirse uzun uzun yazın. İki satır kod için bunca zaman harcamaya lüzum yok, size de bana da [evet]
Zahmet çekmek değil bu, asla. Gereksiz yorgunluk ve boş kalabalık. Yardım severlik adına buradayız, aksi takdir de vakit geçirmek istemem bunlarla zaten. ;;_)
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Günlük Görev Listesi hk.

İleti#20)  kozcat » 12 Şub 2020 12:51

Miraç CAN yazdı:Hocam isteğinizi net olarak ifade edebilir misiniz?
Bugünden itibaren 5 gündüz, 1 gece, 1 boş mu?
P.tesi'den Cuma'ya gündüz, C.tesi gece, Pazar boş mu?
Ve bu döngü nasıl tekrar ediyor, ardışık günlük, haftalık, aylık?

İlk yazdığınızdan hatırladığım;
Önce 3 günde bir dediniz, sonra çarşamba boş dediniz, sonra bunlar peşi sıra tekrar edecek dediniz.
Yapmak istediğinizi açıkça ifade edin, net olun. Gerekirse uzun uzun yazın. İki satır kod için bunca zaman harcamaya lüzum yok, size de bana da [evet]
Zahmet çekmek değil bu, asla. Gereksiz yorgunluk ve boş kalabalık. Yardım severlik adına buradayız, aksi takdir de vakit geçirmek istemem bunlarla zaten. ;;_)


Miraç hocam istediğim şeyi anlatamadım herhalde kusura bakmayın. şu şekilde açıklayım pazartesinden cuma ya kadar bu haftadan başlamak üzere A2 hücresine gündüz yazsın, c.martesi gün gece yazsın, pazar günü ise istirahatli yazsın bu benim için yeterli ve bunu herhafta otomatik yapsın yani 10.02.2020-16.02.2020 gününe kadar bunu yaptı daha sonra 17.02.2020 de tekrar bu şekilde dönsün ve bunu bundan sonraki bütün haftalarda bu şekilde dönsün
Kullanıcı avatarı
kozcat
 
Kayıt: 27 Arl 2019 22:24
Meslek: Memur
Yaş: 32
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe