parçaal fonksiyonu

[sedatım]

Arkadaşlar, Hepinize kOlay gelsin. Bu ay biz muhasebecilerin vermek zorunda oldukları başbelası B formu var. Bi de müşavrliğe gittiğiniz firmalarda değişik muhasebe programları falan bayağı zor oluyor. Tek ortak program excel. Ekte bir dosya var. Bu dosyada ki fatura numarası saçmalığını yok etmek istiyorum. Sol baştaki karakterlerin hepsi aynı olsa =PARÇAAL formulu ile ünvanı ayıklayabileceğimi biliyorum ama maalesef aynı değil. Dosya Ektedir. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim. İyi çalışmalar.

 

[ockucukay]

istediğiniz böyle birşeymi?

 

[sedatım]

Yok üstad.

 

[uzmanamele]

merhaba
bu olabilir mi acaba
=PARÇAAL(E1;BUL("/";E1;2)+2;UZUNLUK(E1)-BUL("/";E1;2))

 

[Merhum İdris SERDAR]

Arkadaşlar, Hepinize kOlay gelsin. Bu ay biz muhasebecilerin vermek zorunda oldukları başbelası B formu var. Bi de müşavrliğe gittiğiniz firmalarda değişik muhasebe programları falan bayağı zor oluyor. Tek ortak program excel. Ekte bir dosya var. Bu dosyada ki fatura numarası saçmalığını yok etmek istiyorum. Sol baştaki karakterlerin hepsi aynı olsa =PARÇAAL formulu ile ünvanı ayıklayabileceğimi biliyorum ama maalesef aynı değil. Dosya Ektedir. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim. İyi çalışmalar.

Dosyanız ekte.

.

 

[Ali]

I1 hücresine

=YERİNEKOY(E1;PARÇAAL(E1;BUL("Al.fat. :";E1)+0;TOPLA(BUL({"Al.fat. :";"//"};E1)*{-1;1})+2);"")

yazıp aşağı doğru çekiniz.

 

[sedatım]

Arkadaşlar eliniz dert görmesin. Hepinize sonsuz teşekkür ederim. İyi çalışmalar.

 

[abdi]

sayın sedatım
makrolu çözüm

Sub deneme()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    
    son = [a65536].End(3).Row
    
    For y = 1 To son
    txt = Sayfa1.Cells(y, 5)
    x = Split(txt, "//")
    For i = 0 To UBound(x)
       Debug.Print Replace(x(i), ".", "")
    Cells(y, 9 + i) = Replace(x(i), ".", "")
    Next i

Next
End Sub