Pazar Günleri ve Resmi Tatillere Veri Girişini Engellemek

[iplikci_80]

Arkadaşlar EK'teki çalışmada B2 hücresindeki oklar ile aylar değiştirildiğinde o aylara ait PAZAR günleri ve var ise RESMİ TATİLLER belirleniyor ve mevcut kod ile PAZAR günlerine fazla mesai girilmesi engelleniyor. Benim yapmak istediğim şey mevcut kodu revize ederek PAZAR günleri ile var ise RESMİ TATİLLER' de fazla mesai girilmesini engellemek.

 

[turist]

Kodunuzu aşağıdaki gibi deeneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("F5:AJ204")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Row Mod 2 = 1 Then
        If Cells(3, Target.Column).Text = "Pazar" Then
            If Target.Value <> "" Then
                Target.ClearContents
            End If
        End If
    End If
    For i = 5 To 94
    If CDate(Cells(3, Target.Column)) = CDate(Cells(i, "BW")) Then
            If Target.Value <> "" Then
                Target.ClearContents
            End If
            End If
    Next i
    
    
Son: Application.EnableEvents = True
End Sub

 

[iplikci_80]

Sayın turist ilginize teşekkür ederim.

 

[turist]

Sağolun.

 

[iplikci_80]

Arkadaşlar EK'teki çalışmada B2 hücresindeki oklar ile aylar değiştirildiğinde o aylara ait PAZAR günleri ve var ise RESMİ TATİLLER belirleniyor ve mevcut kod ile PAZAR günleri ile var ise RESMİ TATİLLER' de fazla mesai girilmesini engellemek istiyorum fakat tüm hücrelere veri girişleri engelleniyor.

 

[iplikci_80]

Arkadaşlar yardımlarınızı rica ediyorum.

 

[turist]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("H7:AL506")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Row Mod 2 = 1 Then
        If Cells(2, Target.Column).Text = "Pazar" Then
            If Target.Value <> "" Then
                Target.ClearContents
            End If
        End If
    End If
    For i = 5 To 94
    If CDate(Cells(2, Target.Column)) = CDate(Cells(i, "BS")) Then
            If Target.Value <> "" Then
                Target.ClearContents
            End If
            End If
    Next i
    
Son: Application.EnableEvents = True
End Sub

şeklinde deneyin.

 

[iplikci_80]

Sayın turist çok teşekkürler.

 

[turist]

Sağolun.

 

[iplikci_80]

Sayın turist verdiğimiz rahatsızlık için özür diliyorum. Fakat verileri temizleyip tekrar girmeye çalıştığımda RESMİ TATİL günlerine (H8 AL8, H10 AL10....) puantaj verisi giremiyorum. Bu hususta yardımlarınızı rica ediyorum.

 

[turist]

Dosyanız eklidir.