Hücrenin içinden posta kodu

[meral77]

İyi günler,

Adres bilgisinin içindeki posta kodunu ayrı bir hücreye almak istiyorum.Belli bir standard yok sadece 5 rakamdan oluşan posta kodu var ne yapabilirim.
:hey:

 

[Merhum İdris SERDAR]

Bir örnek verirseniz. Belki bir çözüm bulunur.

 

[meral77]

Bir hücrede "adem sokak no 12 kat 3 56777 kayseri" yazsın bunun yanına 56777 sayısını çıkarmak istiyorum ama adresler fix değil birinde posta kodu sonundaysa birinde başında olabilir yada başka yerinde sadece 5 rakamdan oluşan posta kodunun varlığı adreste biliniyor..
tşk.

 

[Kemal Demir]

:? :mrgreen:

 

[modalı]

Sayın meral77,

Bir metin içinden ardarda 5 rakkamı bulupçıkaran özel bir fonksiyon yazdım. umarım işinizi görür.

Function PostaKodu(strAdres As String) As String
Dim a, x, y, j As Long
Dim sayaç As Byte
Dim str As String
ReDim Dizi(4) As String

On Error GoTo SafeExit

strAdres = Trim(strAdres)
a = Len(strAdres)

    For x = 1 To a
    sayaç = 0
        str = Mid(strAdres, x, 5)
            For y = 0 To 4
                Dizi(y) = Mid(str, y + 1, 1)
            Next y
            
            For j = 0 To 4
                If Asc(Dizi(j)) < 58 And Asc(Dizi(j)) >= 48 Then
                    sayaç = sayaç + 1
                End If
            Next j
            
            If sayaç = 5 Then
                
                PostaKodu = Dizi(0) & Dizi(1) & Dizi(2) & Dizi(3) & Dizi(4)
                
                Exit Function
            End If
    Next x
    
SafeExit:
    Exit Function

End Function

İyi çalışmalar :hey:

Not: Bir de örnek ekliyorum

 

[meral77]

çok teşekkür ederim denedim oldu.örneği göremedim ama çalıştı.
saolun