Koda göre veri alma

[HarEndu]

MERHABALAR DEĞERLİ ÜSTADALAR;
aşağıda verdiğim örnekte 208 banka kodu ile başlayanları ve başlamayanları ayrı sayfalara almak istiyorum konu ile yardımcı olabilecek var mıdır?
veri yazan kısmı kodu 208 ile başlayanları 1 sayfaya 208 den farklı olanları ayrı bir sayfaya almak istiyorum. eğer ve düşeyara förmülünü birlikte kullandım ama başaramadım yardımlarınızı beklerim


208 BANKA KODU IBAN
veri 0012 TR430001200984100010260347
veri 0064 TR240006400000113880001614
veri 0062 TR330006200041300006298988
veri 0208 TR100020800126030801210001
veri 0062 TR200006200115500006299586
veri 0064 TR470006400000112560001435

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya eklerseniz, daha anlaşılır olacaktır.

. . .

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%
    For i = 2 To Range("A65536").End(3).Row
        If Cells(i, 1) Like "*208*" Then
            Cells(i, 1).Copy Sayfa3.Range("a65536").End(3)(2, 1)
                Else
            Cells(i, 1).Copy Sayfa2.Range("a65536").End(3)(2, 1)
        End If
    Next i
    i = Empty
    MsgBox "..::.. Tamam ..::..", 64 + 1048576, "|Mesajın var|"
End Sub[/FONT]

Örnek dosyayı da ekliyorum.

 

[HarEndu]

yeni bir dosya

sevgili üstad,
yardımlarınız için çok teşekkür ederim. ekteki dosyayı sisteme yüklüyorum. 1 sayfadaki verileri eft/hvl sayfasına almak istiyorum. 208 banka kodu ile başlayanlar hvl sayfasına diğer banka kodları eft sayfasına almak istiyorum. yapmak istediğim bu birde alıcı ünvanı sistem 50 karakter kabul ediyor. 50 den fazla olan karakterleri 50 kadar düşürmek istiyorum. yardımalarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

50 karakter konusunua gelince, bu tablodan banka sistemine yüklememi yapacaksınız.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/iD6_f_bEL2BD8

Sub kod()
    Application.ScreenUpdating = False
    Dim SE     As Worksheet
    Dim SH     As Worksheet
    Set SE = Sheets("EFT")
    Set SH = Sheets("HVL")
    Esat = 2
    Hsat = 2

    SE.Range("A2:E65536").ClearContents
    SH.Range("A2:E65536").ClearContents

    For i = 2 To [A65536].End(3).Row
        If Not IsError(Cells(i, "A")) Then
            If Cells(i, "A") = "0208" Then
                SH.Cells(Hsat, "A") = Cells(i, "B")
                SH.Cells(Hsat, "B") = ""
                SH.Cells(Hsat, "C") = ""
                SH.Cells(Hsat, "D") = Cells(i, "E")
                SH.Cells(Hsat, "E") = Cells(i, "F")
                Hsat = Hsat + 1
            Else
                SE.Cells(Esat, "A") = Cells(i, "B")
                SE.Cells(Esat, "B") = Cells(i, "C")
                SE.Cells(Esat, "C") = Cells(i, "D")
                SE.Cells(Esat, "D") = Cells(i, "E")
                SE.Cells(Esat, "E") = Cells(i, "F")
                Esat = Esat + 1
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[HarEndu]

evet, aynen öyle aynı banka olunca ıbanda 7 karakterden sonra 208 kodunu arıyorum onları başka bir sayfaya diğerlerini başka bir sayfaya daha sonrada kalanları 50 karaktere indiriyorum. fazla zaman alıyor, 50 karakter konusunda ne yapabilirim...
üstadım tam istediğim gibi harika olmuş bilgine sağlık olsun inş.

 

[Emir Hüseyin Çoban]

. . .

Banka, firma ünvanı ile iban numarasını teyit ediyor.
Yani firma isminin uygun bir şekilde kısaltılması gerekiyor. Örneğin uzunca yazan inşaat için inş. kullanımı gibi.
Kodlarda bu şekilde mantıklı bir kısaltma yapamaz. 50 karaktere düşürmek için sondan veya ortadan bir kısmı sil diye yapılabilir.

. . .