Çözüldü Excell'de kendi Formulünü Oluşturma

[meTa]

Merhaba,

=pos ile başlayarak banka hesap adını seçip enterladığımda, muhasebe kodunun gelmesini istiyorum nasıl yapabilirim?

Banka Hesap Adı	Muhasebe Kodu
Akbank Pos - Asseco	108.01.01.001
Garanti Yeni Pos	108.01.01.002
HalkBank Pos	108.01.01.003
İş Pos	108.01.01.004
QNB Finans Pos - Yeni	108.01.01.005
Yapı Kredi Pos	108.01.01.006
Ziraat Yeni Pos	108.01.01.007

 

[DoğanD]

Merhaba,

Aşağıdaki fonksiyonu dener misiniz?

Function Pos(HesapAdi As Range)
Dim dizi
dizi = Array("Akbank Pos - Asseco", "Garanti Yeni Pos", "HalkBank Pos", "İş Pos", "QNB Finans Pos - Yeni", "Yapı Kredi Pos", "Ziraat Yeni Pos")
Pos = "108.01.01.00" & WorksheetFunction.Match(HesapAdi, Application.Transpose(dizi), 0)
End Function

 

[meTa]

Merhaba,

Aşağıdaki fonksiyonu dener misiniz?

Function Pos(HesapAdi As Range)
Dim dizi
dizi = Array("Akbank Pos - Asseco", "Garanti Yeni Pos", "HalkBank Pos", "İş Pos", "QNB Finans Pos - Yeni", "Yapı Kredi Pos", "Ziraat Yeni Pos")
Pos = "108.01.01.00" & WorksheetFunction.Match(HesapAdi, Application.Transpose(dizi), 0)
End Function

Üstat Merhaba,

Formül Çalışıyor teşekkür ederim fakat ben eşleştirmeyi yanlış yapmışım

Aşağıdaki gibi revize edebilmemiz mümkün mü?

Banka Hesap Adı	Muhasebe Kodu
Akbank Pos - Asseco	108.01.01.001
Garanti Yeni Pos	108.01.01.004
HalkBank Pos	108.01.01.006
İş Pos	108.01.01.003
QNB Finans Pos - Yeni	108.01.01.007
Yapı Kredi Pos	108.01.01.002
Ziraat Yeni Pos	108.01.01.005

 

[ccuneyt13]

Merhaba,

Sayın DoğanD'nin verdiği koddaki aşağıdaki satırı;

dizi = Array("Akbank Pos - Asseco", "Garanti Yeni Pos", "HalkBank Pos", "İş Pos", "QNB Finans Pos - Yeni", "Yapı Kredi Pos", "Ziraat Yeni Pos")

aşağıdaki şekilde değiştirin.

dizi = Array("Akbank Pos - Asseco", "Yapı Kredi Pos", "İş Pos", "Garanti Yeni Pos", "Ziraat Yeni Pos", "HalkBank Pos", "QNB Finans Pos - Yeni")

Buradaki sıralama muhasebe kodlarınızın en sondaki .001 şeklinde olan sıralamayı belirliyor.
Mesela QNB'den sonra
....."QNB Finans Pos - Yeni" , "VAKIFBANK Pos Yeni") diye bir ifade daha eklerseniz muhasebe kodunuz 108.01.01.008 şeklinde olacaktır.

 

[meTa]

Merhaba,

Sayın DoğanD'nin verdiği koddaki aşağıdaki satırı;

dizi = Array("Akbank Pos - Asseco", "Garanti Yeni Pos", "HalkBank Pos", "İş Pos", "QNB Finans Pos - Yeni", "Yapı Kredi Pos", "Ziraat Yeni Pos")

aşağıdaki şekilde değiştirin.

dizi = Array("Akbank Pos - Asseco", "Yapı Kredi Pos", "İş Pos", "Garanti Yeni Pos", "Ziraat Yeni Pos", "HalkBank Pos", "QNB Finans Pos - Yeni")

Buradaki sıralama muhasebe kodlarınızın en sondaki .001 şeklinde olan sıralamayı belirliyor.
Mesela QNB'den sonra
....."QNB Finans Pos - Yeni" , "VAKIFBANK Pos Yeni") diye bir ifade daha eklerseniz muhasebe kodunuz 108.01.01.008 şeklinde olacaktır.

Merhaba,
Oldu Hocam Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Sadece merak ettiğim için soruyorum.. Böyle basit bir işlem için neden kullanıcı tanımlı fonksiyon kullanmayı tercih ediyorsunuz?

Paylaştığınız eşleştirme tablosunu excelde bir alanda oluşturup DÜŞEYARA ile sonuç alabilirsiniz.

 

[meTa]

Merhaba,

Sadece merak ettiğim için soruyorum.. Böyle basit bir işlem için neden kullanıcı tanımlı fonksiyon kullanmayı tercih ediyorsunuz?

Paylaştığınız eşleştirme tablosunu excelde bir alanda oluşturup DÜŞEYARA ile sonuç alabilirsiniz.

Merhaba,

Düşeyara ile yapabilirdim.

Fakat benim esas sorunum Banka Devir Raporlarında orda buna benzer 35 tane hesap var

Bu örnek üzerinden uğraşarak , kendimi geliştirmek , Banka Devir Raporunu aynı şekilde yapmak için talepte bulundum