• DİKKAT !

    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 Dosya Yükleme 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

Gold Üye
Katılım
15 Nis 2021
Mesajlar
696
Çözümler
7
Aldığı beğeni
198
Excel V
Office 2019 TR
Gold Bitiş
12 Kasım 2025
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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
Konu Sahibi
Ö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.
 
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

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
 
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;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Modüle ;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
SNNAY' Alıntı:
Deneyiniz.
Sayfa modülüne;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Modüle ;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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
Konu Sahibi
Ö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
Konu Sahibi
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst