Hücrelere Otomatik F2 Enter Yapmak

[_CoNqU3RoR_]

Merhaba arkadaşlar aşağıda paylaştığım dosyada hazırlamış olduğumuz bir ürün fiyat listesi mevcut ürün kodunu yazınca bana otomatik maliyet ve perakende fiyatlarını getiriyor. Ancak kopyala yapıştır yaptığımda 5000 kadar kodu sadece en üstteki satırda bulunan ürünün fiyatı geliyor diğerlerine f2+Enter yapmadan sonuçları alamıyorum. Buraya kopyaladıktan sonra nasıl bir koda ihtiyacım var ki bu A hücresinde ki alt alta duran 5000 ürün kodunun yanına fiyatlar yazdırılsın. Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Son = Cells(Rows.Count, 1).End(3).Row
    With Range("B2:B" & Son)
        .Formula = "=VLOOKUP(A2,DATA!A$1:C$20000,2)"
        .Value = .Value
    End With
    With Range("C2:C" & Son)
        .Formula = "=VLOOKUP(A2,DATA!A$1:C$20000,3)"
        .Value = .Value
    End With
End Sub