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 evn As Range
If Target.Address(0, 0) = "F2" Then
Columns("G:H").ClearContents
For Each evn In Range("B2:B27")
If Target.Value = evn.Value Then
Range("G65536").End(3)(2, 1) = evn.Offset(0, 1).Value
Range("H65536").End(3)(2, 1) = evn.Offset(0, 2).Value
End If
Next evn
End If
Set evn = Nothing
End Sub
excelle yapılamıyormu ?