DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
çalışmamdaki iki sayfayı birbiri ile karşılaştırmak çalışan ve boşta olan personeli görmek istiyorum gerekli bilgiler ecxel dosyasında yazılıdır şimdiden teşekkürler
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet
Application.EnableEvents = False
Set S1 = Sheets("PERSONEL TAKİP")
If Intersect(Target, Range("C3:C" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
With WorksheetFunction
If .CountIf(S1.Range("B:B"), Target) > 0 Then
Cells(Target.Row, "A") = .VLookup(Target, S1.Range("B:D"), 2, 0)
Cells(Target.Row, "B") = .VLookup(Target, S1.Range("B:D"), 3, 0)
Else
MsgBox Target & " Bu veri Yok", vbCritical
End If: End With
Application.EnableEvents = True
End Sub
Kullanıma Hazır dosya ektedir.
(Bende 2010 excel den dolayı açılır listelerin kaydını kabul etmiyor.)
Yapılan İşlem;
ilk sayfada şöför kısmını değiştirerek araç plakası ve çalışma yeri sorgulama
saygılarımla.
Yaşar