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

[talip21]

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.

 

[talip21]

Cumartesi günlerine de pazar gibi Hafta Tatili yazılacak.

 

[Özcan ÖZBEK]

Cumartesi günlerine de pazar gibi Hafta Tatili yazılacak.

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("C1545, G15:H45, K15:L45, O1545").Borders.LineStyle = 1
MsgBox "işlem tamam"

 

[talip21]

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("C1545, G15:H45, K15:L45, O1545").Borders.LineStyle = 1
MsgBox "işlem tamam"

Hocam hayırlı akşamlar. İsim olan satırlarda değişmedi.

 

[Özcan ÖZBEK]

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("C1545, G15:H45, K15:L45, O1545").Borders.LineStyle = 1
MsgBox "işlem tamam"

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.

 

[talip21]

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.

Hocam anlamadım ne yapmam gerekiyor.

 

[talip21]

Yanlışlık oldu düzelmedi.

 

[Özcan ÖZBEK]

Hocam anlamadım ne yapmam gerekiyor.

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ı

 

[Özcan ÖZBEK]

Ekli dosyayı görüntüle 27878
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.

Sorunuzda Ad Soyad değişikliği ile ilgili soru olmadığı için ona bakmadım.

 

[talip21]

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.

 

[SNNAY]

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.

Deneyiniz.
Sayfa modülüne;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Modüle ;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[talip21]

Deneyiniz.
Sayfa modülüne;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Modüle ;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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.

 

[Özcan ÖZBEK]

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.

[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

 

[talip21]

[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

Hocam emeğinize sağlık çok teşekkür ederim. Dün akşamdandır yardımcı oluyorsunuz Allah razı olsun.

 

[talip21]

Hocam emeğinize sağlık çok teşekkür ederim. Dün akşamdandır yardımcı oluyorsunuz Allah razı olsun.

Deneyiniz.
Sayfa modülüne;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Modüle ;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam çok teşekkür ederim. Emeğinize sağlık Konu çözüldü iyi ki varsınız.