VBA mı formül mü

[sinnernekolens]

ÖRNEK sabit belli bir kaç isim hanem olsun K sütünundaki gibi, B1 hücresine eğer bunlardan birini yazdığım zaman A5 hücresine L Sutununda karşılık gelen değer yazsın. Fakat yazdığım değer K sütünunda yok ise A2 hücresine değeri manuel girebileyim. Bu durumda A5 Hücresine sanırım formül yazamayız. Yardımlarınızı rica ederim.

 

[Asri]

Sayfa1 in kod bölümüne aşağıdaki kodu yapıştırın.
B2 ye her isim girdiğinizde A5 e düşeyara formülü ekleyecek.

Siz isterseniz A5 i el ile değiştirebileceksiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Intersect(Target, Range("B2:B2")) Is Nothing Then Exit Sub
    Range("A5").FormulaR1C1 = "=VLOOKUP(R[-3]C[1],C[10]:C[11],2,0)"
End Sub

 

[sinnernekolens]

Teşekkür ederim istediğim buydu.