Tatil Günlerini Nasıl Yapabilirim?

[ercanbayram]

Arkadaşlar, ek dosyada örnektede yazdığım gibi, ilgili yıl ve ay seçildiğinde o ay'ın tatil günlerini otomatik olarak kapatacak kod'u arıyorum. Yardımcı olursanız sevinirim...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aysonu As Date, aylar, ay_sayisi As Byte, i
Dim hucre As Range, k As Range
If Intersect(Target, [AK2]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Range("E5:AI30").ClearContents
Range("E5:AI30").Locked = False
aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
For i = 0 To 11
    If aylar(i) = Range("AK2").Value Then
        ay_sayisi = i + 1
        Exit For
    End If
Next i
aysonu = DateAdd("m", 1, DateSerial(Range("AI3").Value, ay_sayisi, 1)) - 1
For i = DateSerial(Range("AI3").Value, ay_sayisi, 1) To aysonu
    tatil = Application.Weekday(CDate(i), 2)
        If tatil = 7 Or tatil = 6 Then
            For Each hucre In Range("E5:AI30")
                If Day(CDate(i)) = Cells(4, hucre.Column) Then
                    hucre.Value = "X"
                    hucre.Locked = True
                End If
            Next
        End If
Next i
Set k = Range("AO3:AZ3").Find(Range("AK2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    If Cells(65536, k.Column).End(xlUp).Row > 1 Then
        For j = 4 To Cells(65536, k.Column).End(xlUp).Row
            For Each hucre In Range("E5:AI30")
                If Cells(4, hucre.Column).Value = Cells(j, k.Column).Value Then
                    hucre.Value = "X"
                    hucre.Locked = True
                End If
            Next
        Next j
    End If
End If
ActiveSheet.Protect
End Sub

 

[ercanbayram]

üstadım istediğim gibi. çok teşekkür ederim. bir de tatil günlerine denk gelen günlere veri girilmesini nasıl engelleyebilirim. Hücre Korumasını biliyorum da her ay değişeceği için bunu nasıl yapabiliriz?

 

[Orion1]

üstadım istediğim gibi. çok teşekkür ederim. bir de tatil günlerine denk gelen günlere veri girilmesini nasıl engelleyebilirim. Hücre Korumasını biliyorum da her ay değişeceği için bunu nasıl yapabiliriz?

Dosyayı istediğiniz şekilde güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[ercanbayram]

üstadım yaptığın kodlamalar çok işime yaradı. Fakat çalışma üzerinde düzenleme yapmam gerekti. Sütun ve satır ekleme çıkarma yaptığımdan lazım olan kodda doğal olarak çalışmıyor. ALT+F11le kodlara daldım ama inan işin içinden çıkamadım.

Kodları düzenlersen çok sevinirim ya.. Sana da zahmet veriyorum. Hakkını helal et...

 

[Orion1]

üstadım yaptığın kodlamalar çok işime yaradı. Fakat çalışma üzerinde düzenleme yapmam gerekti. Sütun ve satır ekleme çıkarma yaptığımdan lazım olan kodda doğal olarak çalışmıyor. ALT+F11le kodlara daldım ama inan işin içinden çıkamadım.

Kodları düzenlersen çok sevinirim ya.. Sana da zahmet veriyorum. Hakkını helal et...

Ekli dosyayı inceleyiniz.

 

[ercanbayram]

Hocam, çalışmaya sayfa koruması verdiğimde AM2 ve AK3 hücrelerinde ay ve yıl seçimi yapıldığında parolayı istiyor. Biz çözemedik nasıl yapılacağını Yardımcı olursanız sevinirim. Sayfa genelinde koruma olduğunda sadece o hücrelerde sorun çıkıyor... Ektekinin parolası: 8254

Bu sorunu nasıl aşabiliriz?

 

[Orion1]

Hocam, çalışmaya sayfa koruması verdiğimde AM2 ve AK3 hücrelerinde ay ve yıl seçimi yapıldığında parolayı istiyor. Biz çözemedik nasıl yapılacağını Yardımcı olursanız sevinirim. Sayfa genelinde koruma olduğunda sadece o hücrelerde sorun çıkıyor... Ektekinin parolası: 8254

Bu sorunu nasıl aşabiliriz?

Ekli dosyayı inceleyiniz.

 

[ercanbayram]

üstadım harikasın ya... bişeye de bilmiyorum de Allah razı olsun. İşimi çok kolaylaştıracak bu iş...

 

[Orion1]

üstadım harikasın ya... bişeye de bilmiyorum de Allah razı olsun. İşimi çok kolaylaştıracak bu iş...

Rica ederim.
İyi çalışmalar.