- Katılım
- 1 Nisan 2022
- Mesajlar
- 19
- Excel Vers. ve Dili
- vba
- Altın Üyelik Bitiş Tarihi
- 01-04-2023
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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