ilk 3 veya 4 harfi yazınca satırı tamamlama

[memo2001]

Herkese merhaba;

Bayağı bir uğraştım ama formüller modüller birbirine girdi. Çorba oldular. En sonunda foruma yazmaya karar verdim. Umarım yardımcı olursunuz. Teşekkürler…
Bir kamu kuruluşunda muhasebe biriminde çalışıyorum. Veznedarımız günlük saat 12 ye kadar firma ödemelerini bankaya havale temek zorunda. Bazen günde 100 evraka kadar gelebiliyor. Bu evrakları ekte gönderdiğim Gönderme Emri ile Merkez Bankası kanalıyla hesaplara aktarıyoruz. Bu gönderme emrini bazen diğer daire başkanlıkları doldurarak bize gönderiyor. Ama birçok zaman biz yazıyoruz. Bu gönderme emrini yazarken de (zamana karşı yarıştığından- saat 12’ye yetişmesi gerektiğinden ) özellikle banka kodlarında birçok hata çıkıyor. Bu hataları minimuma indirebilmek için Merkez Bankasının EFT merkezinden aldığım csv uzantılı bir dosyayı Türkiye’deki tüm banka ve şube kodlarını Excel sayfasında düzenledim.( 860 kb yer tuttuğu için bankaların yarısını silmek zorunda kaldım.) Bizim sorunumuz ise ekli dosyada Gönderme Emri çalışma sayfasında C 6 hücresine bankaların ilk 3 veya 4 harfini yazınca BANKA ŞUBELERİ çalışma sayfasında karşılığını bularak yazsın.
Örneğin " Yap"yazınca "YAPI VE KREDİ BANKASI" yazsın ve E6 hücresine de 67 yazsın.
Aynı şekilde C7 hücresine "kapalıçarşı" yazınca kapalı çarşı şubesinin eft kodunu yani 17 rakamını E7 hücresine otomatikman yazsın.
Yardımcı olursanız çok sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim SB As Worksheet
Dim SUT As Integer
If Intersect(Target, [C6:C53]) Is Nothing Then Exit Sub
Set SB = Sheets("BANKA ŞUBELERİ")
For SUT = 2 To SB.Cells(65536, "D").End(3).Row
If Target = "" Then: Exit Sub
If SB.Cells(SUT, "D") Like Target & "*" Then
Target = SB.Cells(SUT, "D")
Exit Sub
End If
Next
End Sub

 

[memo2001]

Çok teşekkür ederim. Ellerine ve emeklerine sağlık.