eğer say formulü hk. yardım

[hesiodos]

değerli form üyeleri abilerim ve kardeşlerim şöyle bir sorum olacak sayfa birde isimleri olan personele yövmiye yazıldığında sayfa 2 de otomatik o tarihe x işareti ekleyebilirmiyiz varmıdır bunun bir kısa kodu yardımlarınızı bekliyorum saygılar.

 

[Muzaffer Ali]

Merhaba.

Sayfa1'in sayfa adını sağ tıklatın, Kod görüntüle seçin açılan kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Personel As String
    Dim syf2 As Worksheet
    Dim Bul As Range
    
    Set syf2 = Worksheets("Sayfa2")
    
    If Not Intersect(Target, Range("F:F")) Is Nothing Then
        Personel = Cells(Target.Row, "B")
        Set Bul = syf2.Range("A:A").Find(What:=Personel, LookIn:=xlValues, LookAt:=xlWhole)
        If Bul Is Nothing Then
            MsgBox Personel & " adlı personel Sayfa2'de bulunamıyor."
            Exit Sub
        End If
        syf2.Cells(Bul.Row, Day(Range("G1")) + 1) = "x"
    End If
End Sub

 

[hesiodos]

BEN YAPAMADIM SANIRIM EKLEDİMDE OLMADI MUZAFFER HOCAM

 

[hesiodos]

AA ÇOK SAOLUN HALETTİM SAYENİZDE TŞLR

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.