• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü İşkur Devam Çizelgesi Düzenleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
talip21

talip21

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
15 Nis 2021
Mesajlar
678
Çözümler
7
Aldığı beğeni
184
Excel V
Office 2019 TR
Konuyu Başlatan
Hayırlı akşamlar sayın hocalarım.
Ekli dosyamda pazar günleri hafta tatili Resmi tatiller Remi Tatil olarak geliyor . Cumartesi günlerinin de Cumartesi olarak düzenlememiz gerekiyor. Yardımlarınızı bekliyorum.
 

Ekli dosyalar

  • Cumartesi.xlsm
    77.6 KB · Gösterim: 8
Tarihe göre sırala Oylara göre sırala
Cumartesi günlerine de pazar gibi Hafta Tatili yazılacak.
 
Olumlu oy 0 Negatif oyla
talip21' Alıntı:
Cumartesi günlerine de pazar gibi Hafta Tatili yazılacak.
Genişletmek için tıkla...
makroyu bu satırından itibaren değiştirin.

For g = 1 To 31
If Month([A1] + g - 1) <> aY Then Exit For
For u = 0 To 3
Cells(saT, suT(u)) = g: trH = [A1] + g - 1

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 6 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 5 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If


If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Then Cells(saT, suT(u) + 1) = "Resmi Tatil"
Next: saT = saT + 1: Next: [A1].ClearContents: Range("C15:D45, G15:H45, K15:L45, O15:p45").Borders.LineStyle = 1
MsgBox "işlem tamam"
 
Olumlu oy 0 Negatif oyla
Özcan ÖZBEK' Alıntı:
makroyu bu satırından itibaren değiştirin.

For g = 1 To 31
If Month([A1] + g - 1) <> aY Then Exit For
For u = 0 To 3
Cells(saT, suT(u)) = g: trH = [A1] + g - 1

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 6 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 5 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If


If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Then Cells(saT, suT(u) + 1) = "Resmi Tatil"
Next: saT = saT + 1: Next: [A1].ClearContents: Range("C15:D45, G15:H45, K15:L45, O15:p45").Borders.LineStyle = 1
MsgBox "işlem tamam"
Genişletmek için tıkla...
Hocam hayırlı akşamlar. İsim olan satırlarda değişmedi.
 

Ekli dosyalar

  • Ekran Alıntısı.JPG
    Ekran Alıntısı.JPG
    58 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
Özcan ÖZBEK' Alıntı:
makroyu bu satırından itibaren değiştirin.

For g = 1 To 31
If Month([A1] + g - 1) <> aY Then Exit For
For u = 0 To 3
Cells(saT, suT(u)) = g: trH = [A1] + g - 1

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 6 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If

If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Or _
Weekday([A1] + g - 1, vbMonday) > 5 Then
Cells(saT, suT(u) + 1) = "Hafta Tatili"
Range(Cells(saT, suT(u) + 1), Cells(saT, suT(u) + 2)).Merge
Cells(saT, suT(u) + 1).Interior.ColorIndex = 6
End If


If IsNumeric(Application.Match(trH, tatil.[B:B], 0)) Then Cells(saT, suT(u) + 1) = "Resmi Tatil"
Next: saT = saT + 1: Next: [A1].ClearContents: Range("C15:D45, G15:H45, K15:L45, O15:p45").Borders.LineStyle = 1
MsgBox "işlem tamam"
Genişletmek için tıkla...
Next: saT = saT + 1: Next: [A1].ClearContents: Range("C15 : D45, G15:H45, K15:L45, O15 : P45").Borders.LineStyle = 1
bu satır bu şekilde : D VE : P aralarında boşluk yok.
 
Olumlu oy 0 Negatif oyla
Yanlışlık oldu düzelmedi.
 
Olumlu oy 0 Negatif oyla
talip21' Alıntı:
Hocam anlamadım ne yapmam gerekiyor.
Genişletmek için tıkla...
1724269083178.png
bu ifadeler için yazmıştım
Next: saT = saT + 1: Next: [A1].ClearContents: Range("C15 : D45, G15:H45, K15:L45, O15 : P45").Borders.LineStyle = 1
bu satır bu şekilde : D VE : P aralarında boşluk yok.

bu satırı
 
Olumlu oy 0 Negatif oyla

Ekli dosyalar

  • Cumartesi.xlsm
    72.2 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
Hocam sorunun çıktığı yer; Liste sayfasında işe giriş tarihi yazıldığında hangi tarihte işe giriş yapılmışsa işe giriş tarihinden önceki tarihle X ile işaretleniyor ve karalanıyor.
Örneğin Eylülde Liste sayfasındaki 4. Kişi 27 eylülde iş başı yaptı ondan önceki tarihlerde X ve karalama var. Ve sizin düzenlediğiniz Hafta tatili boş olan isimlerde devreye giriyor dolu olan isimlerde sadece eskisi gibi pazar ve resmi tatillere Hafta tatili geliyor.
 

Ekli dosyalar

  • Ekran Alıntısı.JPG
    Ekran Alıntısı.JPG
    86.6 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
talip21' Alıntı:
Hayırlı akşamlar sayın hocalarım.
Ekli dosyamda pazar günleri hafta tatili Resmi tatiller Remi Tatil olarak geliyor . Cumartesi günlerinin de Cumartesi olarak düzenlememiz gerekiyor. Yardımlarınızı bekliyorum.
Genişletmek için tıkla...
Deneyiniz.
Sayfa modülüne;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Modüle ;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • DÜZENLENDİ-Cumartesi.xlsm
    79.8 KB · Gösterim: 10
  • RNKLNDR.gif
    RNKLNDR.gif
    3.1 MB · Gösterim: 4
Olumlu oy 1 Negatif oyla
Çözüm
SNNAY' Alıntı:
Deneyiniz.
Sayfa modülüne;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Modüle ;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Hocam hayırlı günler.
Hocam denemeler yaptım çok iyi çalışıyor ve bir sorun yok.
Hocam 28, 29 ve 30 çeken aylarda en son boş olan satır da gizlenseydi çok iyi olurdu.
 
Olumlu oy 0 Negatif oyla
talip21' Alıntı:
Hocam hayırlı günler.
Hocam denemeler yaptım çok iyi çalışıyor ve bir sorun yok.
Hocam 28, 29 ve 30 çeken aylarda en son boş olan satır da gizlenseydi çok iyi olurdu.
Genişletmek için tıkla...
[A1].ClearContents satırından önce aşağıdaki satırları ekle.
[B12:d45].EntireRow.Hidden = False
If Range("b43") = Empty Then Range("B43").EntireRow.Hidden = True
If Range("b44") = Empty Then Range("B44").EntireRow.Hidden = True
If Range("b45") = Empty Then Range("B45").EntireRow.Hidden = True
 
Olumlu oy 0 Negatif oyla
Özcan ÖZBEK' Alıntı:
[A1].ClearContents satırından önce aşağıdaki satırları ekle.
[B12:d45].EntireRow.Hidden = False
If Range("b43") = Empty Then Range("B43").EntireRow.Hidden = True
If Range("b44") = Empty Then Range("B44").EntireRow.Hidden = True
If Range("b45") = Empty Then Range("B45").EntireRow.Hidden = True
Genişletmek için tıkla...
Hocam emeğinize sağlık çok teşekkür ederim. Dün akşamdandır yardımcı oluyorsunuz Allah razı olsun.
 
Olumlu oy 0 Negatif oyla
talip21' Alıntı:
Hocam emeğinize sağlık çok teşekkür ederim. Dün akşamdandır yardımcı oluyorsunuz Allah razı olsun.
Genişletmek için tıkla...
SNNAY' Alıntı:
Deneyiniz.
Sayfa modülüne;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Modüle ;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Hocam çok teşekkür ederim. Emeğinize sağlık Konu çözüldü iyi ki varsınız.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst