Kolay çalışma günü işaretleme..

[izomer]

Excell.Web.tr Ailesine selamlar , saygılar..Benim şöyle bir sorum olcak..elimizde çok çalışan olduğunu ve işaretlerken kaydırma ve yanlış kişinin çalışma gününü işaretleme ve dolayısıylada yanlış hakediş hesaplanmasını önlemek için..Çalışanın üzerine çift tıklandığında bugünün NÇ hanesine X işareti koyarak normal mesaini yaptığını tabloda göstermek istiyorum..Ayrıca Bugünkü tarihin sütununun örnektede gösterdiğim üzere turuncuya dönmesi gibi bir renklendirme excell yapabiliyormu ?..

Saygılarımla..

Dosyam ektedir..

 

[Emir Hüseyin Çoban]

. . .

Bugünun tarihini Turuncuya boyamak için, I5:BR50 aralığını seçip
Koşullu biçimlendirme > Yeni Kural > Formül

=I$5=BUGÜN()

Biçimlendirden dolgu seçimini yapıp, kuralı uygulayın.

. . .

 

[izomer]

Sevgili Hocam çalışan isimlerine çift tıklayınca x koyma olayı asıl önemliydi benim için

 

[Emir Hüseyin Çoban]

. . .

Temmuz sayfasının kod bölüme yapıştırın.
Yalnız kodlarınızı yukarıdaki örnek dosyada tarihleri güncelledikten sonra deneyin. Çünkü içinde bulunduğumuz ay Temmuz, örnekteki tarihler Haziran.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    For i = 9 To 70 Step 2
        If Date = Cells(5, i) Then
            Cells(ActiveCell.Row, i) = "X"
        End If
    Next i
    Cancel = True
End Sub

. . .

 

[izomer]

Eyw ya hocam çok işime yaradı valla..peki acaba eğer x mevcut ise tekrar tıklandığında x 'i kaldırma olanağı varmı ?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    For i = 9 To 70 Step 2
        If Date = Cells(5, i) Then
            If Cells(ActiveCell.Row, i) = "X" Then
                Cells(ActiveCell.Row, i) = ""
            Else
                Cells(ActiveCell.Row, i) = "X"
            End If
        End If
    Next i
    Cancel = True
End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    For i = 9 To 70 Step 2
        If Date = Cells(5, i) Then
            If Cells(ActiveCell.Row, i) = "X" Or Cells(ActiveCell.Row, i) = "x" Then
                Cells(ActiveCell.Row, i) = ""
            Else
                Cells(ActiveCell.Row, i) = "X"
            End If
        End If
    Next i
    Cancel = True
End Sub

. . .

 

[izomer]

Hüseyin ve Korhan hocam çok saolun saat gibi çalışıyor..