Şube Kodları

[kubekir]

Arkadaşlar elimde bankanın şube kodları var yan satırdada hangi şube olduğu yazıyor ben oş bir hücreye bu kodu girdiğimde bana otomatik şubenin adını versin istiyorum ilgiiz için şimdiden teşekkürler

 

[ekvator]

Arkadaşlar elimde bankanın şube kodları var yan satırdada hangi şube olduğu yazıyor ben oş bir hücreye bu kodu girdiğimde bana otomatik şubenin adını versin istiyorum ilgiiz için şimdiden teşekkürler

Merhaba,
Örnek bir dosya eklerseniz yardımcı olabilirim

 

[kubekir]

Eklenti

eklenti ekte bu şube kodları yazan dosya bir hücreye herhangi bir kod girdiğimde burdan tarama yapacak ve otomatik olarak şubenin ismini yazması lazım teşekkürler

 

[kubekir]

Yardım

eklenti ektedir arkadaşlar

 

[unur]

Dosyanızı açma imkanım yok ama aradığınız cevap aşağıdaki linkte mevcut anladığım kadarıyla
düşeyara formulünü kullanabilirsiniz

http://www.excel.web.tr/f14/subeye-formulle-kod-atama-t101190.html

 

[mancubus]

ekteki dosyayı deneyin.


Sheet1'deki "event" kodları:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim bulunan As Variant, bakilan As Variant
Dim tbl_dizisi As Range
Dim sutun As Integer
Dim aralik_bak As Boolean

Set tbl_dizisi = Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row)

If Not Intersect(Target, tbl_dizisi) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

bakilan = Target.Value
sutun = 2
aralik_bak = 0

On Error Resume Next
bulunan = WorksheetFunction.VLookup(bakilan, tbl_dizisi, sutun, aralik_bak)

If Not IsEmpty(bulunan) Then
    Target.Value = bulunan
End If

End Sub