Ba - Bs Yardım

[kadird]

Günaydın

Ba Bs formlarını doldurmak için yapmaya çalıştığım bir tablo var.
TARİH - ÜNVAN - TUTAR şeklinde 3 sütundan oluşan veri alanından

01.01.2008 - 31.01.2008 tarihleri arasında A firmasına ait kaç fatura var ve bu faturaların tutarı ne kadar. Aynı şekilde 2. 3. 4. ayları da raporlamak istiyorum. (Ekte Dosya mevcut)

Formül konusunda yardımlarınızı bekliyorum.

Teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

 

[kadird]

Sn.Evren Gizlen
Çok Teşekkür ederim. Sağolun.

 

[Orion1]

Sn.Evren Gizlen
Çok Teşekkür ederim. Sağolun.

Rica ederim.
Sizde sağolun.

 

[birader]

yalnız firmalar.a,b,c şeklinde olsa kolay.aynı firma örnegin ''bahar'',''bahar gıda''
''bahar gıda ltd.'' gibi isimler altında kayıt edilebiliyor.bunun çözümü nedir acaba.

 

[hurkanpisirici]

listenizi tarayıp ctrl+h yapıp bütün hepsini aynı standarda getrmenizi öneirirm ben bu özelliği kullanıyorum kolay gelsin

 

[birader]

bir de muhasebe programından excele veri attığım zaman aşağıdaki gibi geliyor.burda benim amacım fatura nosu ile firma ismini birbirinden ayırıp fatura adedini saydırmak ve en önemlisi de birden fazla olan aynı fat. tek fat.olarak saydırmak.
tarih açıklama tutar
10/05/2008 11520-bahar gıda 125

11520 ve bahar gıda ayrı sütunlarda olsun.bende fatura adedini saydırayım.mükerrer fat.tek fat.olarak saysın

 

[Ömer]

Merhaba,

Örnek dosya eklermisiniz..

 

[abdi]

Sayın arkadaşlar

Muhasebeci arkadaşlar bildiğiniz gibi fatura işleme mantığı
Açıklama kısmına birçok muhasebe programında veriler

Tarih evrak no ve unvan şeklinde kayıtlar giriliyor.

Tabiî ki verileri excele aktardığınızda veriler bir bütün olarak geliyor.

Bunu ayrıştırmak için ben Sayın Üstad Mr. John Walkenbach ın yazmış olduğu Kullanıcı tanımlı fonksiyonunu kullanıyorum.

Fonksiyon

Function ExtractElement(Txt, n, Separator) As String
'   Returns the nth element of a text string, where the elements
'   are separated by a specified separator character

    Dim Txt1 As String, TempElement As String
    Dim ElementCount As Integer, i As Integer
    
    Txt1 = Txt
'   If space separator, remove excess spaces
    If Separator = Chr(32) Then Txt1 = Application.Trim(Txt1)
    
'   Add a separator to the end of the string (if necessary)
    If Right(Txt1, 1) <> Separator Then Txt1 = Txt1 & Separator
    
'   Initialize
    ElementCount = 0
    TempElement = ""
    
'   Extract each element
    For i = 1 To Len(Txt1)
        If Mid(Txt1, i, 1) = Separator Then
            ElementCount = ElementCount + 1
            If ElementCount = n Then
'               Found it, so exit
                ExtractElement = TempElement
                Exit Function
            Else
                TempElement = ""
            End If
        Else
            TempElement = TempElement & Mid(Txt1, i, 1)
        End If
    Next i
    ExtractElement=""	
End Function

Şeklinde kullanımı ise

Arkadaşımız şöyle bir örnek vermiş bundan yola çıkarak

10/05/2008 11520-bahar gıda 125

Yalnız hepsi bir sütunda mı onu bilemiyorum
=ExtractElement(a1;1;" ") separator olarak boşlukmu yoksa “-“ tiremi ona dikkat edeceksiniz
Kolay gelsin

Ben tarih ve evrak no kısmını aldıktan sonra geri kalanını sağdan formülü ile alıyorum

Kolay gelsin arkadaşlar selamlar

 

[birader]

evet göderiyorum dosyayı.

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz..

 

[cempatik]

örneğini verseniz sevinirim

 

[Ömer]

örneğini verseniz sevinirim

Merhaba,

Linki inceleyebilirsiniz..

Ba ve Bs Bildirim Formlarıyla İlgili Örnek Uygulamalar

.

 

[atplsx]

teşekkürler