Soru açıklama içinden ünvan bulma

[NADİR YILDIZ]

arkadaşlar sorunumu örnek dosya içinde açıklama yaptım

 

[NADİR YILDIZ]

arkadaşlar çözüm öneriniz var mı ?

 

[Muzaffer Ali]

Merhaba.
Açıklamalarda bir standart olmadığı için çok mümkün görünmüyor.
Şöyle bir formül yazdım birçoğu doğru geliyor ama açıklama standart olmadığı için yanlışlar da var.

D3'e kopyalayıp aşağı doğru çoğaltın.

=SOLDAN(SAĞDAN(C3;UZUNLUK(C3)-EĞERHATA(BUL("EFT: ";C3)+4;BUL("HAV.";C3)+3));EĞERHATA(BUL("-";SAĞDAN(C3;UZUNLUK(C3)-EĞERHATA(BUL("EFT: ";C3)+4;BUL("HAV.";C3)+3)))-1;UZUNLUK(SAĞDAN(C3;UZUNLUK(C3)-EĞERHATA(BUL("EFT: ";C3)+4;BUL("HAV.";C3)+3)))))

 

[NADİR YILDIZ]

Sayın dalgalıkur öncelikle teşekkür ederim.
dediğiniz gibi çoğunluk geliyor.
sizin çözümünüzü görünce aklıma şöyle bişey geldi
ayrı bir sütunda açıklamaları parçaal ile aldırsak

HAV.
EFT:
7169296-
7169295-
şeklinde daha sonra bunları düşeyara ile sizin formülünüze ekleyerek çözüm üretilebilir mi ?

 

[Korhan Ayhan]

Verileriniz düzenli gibi gözükse de bir kuralı yok. Bu durumda formülle çözüm üretmek çok sağlıklı olmayacaktır.

Makro ile şöyle bir yapı olabilir.

Bir sütuna açıklamalardan silinecek kelimeleri alt alta yazarsınız.
Sonra makro ile yazdığınız sıraya göre açıklama kısmından bu silinecek kelimeler boşlukla değiştirilip boş bir sütuna yeni temizlenmiş veri yazdırılır.

Bu sistemde bile sıkıntılar çıkabilir. Ama %100 olmasa bile %90 işinize yarayacak bir sonuç elde edebilirsiniz.

 

[NADİR YILDIZ]

Teşekkürler üstad

 

[Korhan Ayhan]

Sonuç nedir?

 

[NADİR YILDIZ]

Sayın korhan bey
formül yerine aşağıdaki linkte sizin daha önce yardımcı olduğunuz makrolu çözümü dosyama uyguladım

Soru - Cümle içindeki açıklamaya göre muhasebe kodu getirme

Arkadaşlar günaydın C sütunundaki banka açıklamalarında bilgilere göre G sütunundaki firma ünvanının karşısındaki muh.kodunu d sütununa yazdırmak istiyorum.ancak açıklamada nadir/nadir yıldız büyük küçük harf ortada sonda başta yada bir kısmı olabiliyor.makrolu bir çözümü varsa iyi olur.

www.excel.web.tr

ancak yine bazı yerlerde hata veriyor.
yeşil alanlardaki toplamlara baktığınızda arada fark veriyor.nereden kaynaklı bulamadım onu araştırırken siz yazdınız
ayrıca sağ taraftaki muh.kodu olmayanları üstteki mavi alana yazdığım 800.01 kodu atmasını istiyorum.
bu çalışmamla ilgili başka sorularımda olacak ancak öncelikle muhasebe kodlarını doğru bir şekilde getirmesini istiyorum.

sorun nerede ve nasıl çözeriz yardımcı olurmusunuz

 

[NADİR YILDIZ]

Korhan bey sorumla ilgili çözüm öneriniz varmı acaba ?

 

[Korhan Ayhan]

Sorun D379 ve D380 hücrelerinde...

Bu hücrelerde muhasebe kodları yok.

 

[NADİR YILDIZ]

Teşekkür ederim üstad gözümde kaçmış

ek olarak komisyon sayfasında A dan D ye ve F den I ya kadar olan sütunları ayrı ayrı son extre sayfasındaki en son dolu hücreden başlamak üzere nasıl aktarabilirim

 

[Korhan Ayhan]

Aradaki C ve H sütunları boş, bunlar sanırım aktarılmayacak.

 

[NADİR YILDIZ]

hayır aktarılmayacak

 

[Korhan Ayhan]

Deneyiniz.

Sub Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Satir As Long
   
    Set S1 = Sheets("SON EXTRE")
    Set S2 = Sheets("KOMİSYON")
   
    Son = S2.Cells(S2.Rows.Count, "K").End(3).Row
   
    Satir = S1.Cells(S1.Rows.Count, "A").End(3).Row + 1
   
    S1.Range("A" & Satir & ":B" & Satir).Resize(Son - 2).Value = S2.Range("A3:B" & Son).Value
    S1.Range("D" & Satir & ":D" & Satir).Resize(Son - 2).Value = S2.Range("D3:D" & Son).Value

    Satir = S1.Cells(S1.Rows.Count, "A").End(3).Row + 1
   
    S1.Range("A" & Satir & ":B" & Satir).Resize(Son - 2).Value = S2.Range("F3:G" & Son).Value
    S1.Range("D" & Satir & ":D" & Satir).Resize(Son - 2).Value = S2.Range("I3:I" & Son).Value

    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[NADİR YILDIZ]

Üstat aktarımda hata var ama makroda bir sıkıntı var galiba
sadece komisyon sayfasını aktardığımda satır 2 den itibaren aktarıyor
satır 3 ten itibaren aktarması gerekiyor.

komisyon sayfası +- lerin toplam 17.778,60 TL

son extre sayfası 17.779 70 TL

1,10 TL fark var

 

[Korhan Ayhan]

Son önerdiğim kodu revize ettim. Tekrar deneyiniz.

 

[NADİR YILDIZ]

Sayın korhan bey teşekkürler

sizi uğraştırdım.hakkınızı helal edin
İyi geceler.
iyi bayramlar