- Katılım
- 20 Şubat 2012
- Mesajlar
- 150
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 08-08-2020
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 k As Range, sh As Worksheet
If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
Set sh = Sheets("VERİ")
Set k = sh.Range("A2:A" & Rows.Count).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("C" & Target.Row & ":F" & Target.Row).Value = sh.Range("B" & k.Row & ":E" & k.Row).Value
End If
End Sub