Yazılan masraf kodlarının yanında masraf türünü yazma

[inflexible]

tüm hocalarıma saygılar ve selamlar;
Ekte örneği görülen masraf kodlarını sheet üzerinde herhangi bir hücreye yazdığımda yan hücrede masraf türünün otomatik olarak yazdırılması mümkünmüdür?

 

[N.Ziya Hiçdurmaz]

yanıt

=+dÜŞeyara(e4;c5:d18;2;0)

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.

Makro kullanılarak hazırlanmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = "" Then Exit Sub
Set s1 = Sheets("MasrafKodları")
Set s2 = Sheets("Sayfa1")
If Len(Target) = 8 And Left(Target, 1) = 4 Then
Target.Offset(0, 1).Value = Application.WorksheetFunction.VLookup(Target.Value, s1.[c5:d100], 2, False)
Else
Exit Sub
End If
End Sub

 

[inflexible]

Çok teşekkürler

Emeğinize sağlık
iyiki varsınız