Banka hesap Ekstresi düzenleme

[muzaffer.sm]

Arkadaşlar Merhaba,

Başlıkta yer olan konu hakkında yardımlarınızı rica edeceğim. Çalışma biraz detaylı durumdadır.Excel çalışma kitabında ayrıntıları belirttim.

Konu içeriği şöyle , Bankadan gelen ekstrenin içindeki açıklamada geçen kelimelerin,etiketlerin diğer sayfada bir datası olup bunların hangi hesap kodu ile ilişkili olduğunun aranıp bulunması. Bulunan hesabın banka ekstresi içinde bir sütuna yazılması.

Bakma fırsatınızı bulduğunuzda incelemenizi rica ediyorum.

Şimdiden teşekkürler.

http://www.dosyaupload.com/D7l

 

[vardar07]

Aşağıdaki kod ile yapabilirsiniz.

Sub getir()
Dim sh As Worksheet
Set sh = Sheets("hesaphareketleri")
With Sheets("etiketler")
For Each bak In .Range("A2:A" & .Range("A65536").End(3).Row)
For Each bul In sh.Range("b16:b" & sh.Range("b65536").End(3).Row)
If sh.Cells(bul.Row, "B") Like ("*" & .Cells(bak.Row, "a") & "*") Then
sh.Cells(bul.Row, "G") = .Cells(bak.Row, "b")
 End If
Next bul
Next bak
End With
End Sub

 

[muzaffer.sm]

Sayın Vardar07


Benim için büyük problem olanı çözdünüz.Çok teşekkür ediyorum.
iyi çalışmalar. Allah razı olsun.