• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru açıklama içinden ünvan bulma

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.
Kod: 
=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)))))
 
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 ?
 
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.
 
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 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
 

Ekli dosyalar

Sorun D379 ve D380 hücrelerinde...

Bu hücrelerde muhasebe kodları yok.
 
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
 

Ekli dosyalar

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

C++: 
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
 
Ü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
 

Ekli dosyalar

Sayın korhan bey teşekkürler

sizi uğraştırdım.hakkınızı helal edin
İyi geceler.
iyi bayramlar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst