Muhasebe - stok toplamı formül(acil)

[jaguar190327]

Merhaba
yapmak istedigim excel de yardımcı olursanız cok sevinirim.

http://dosya.co/ys2x855c7y3x/SANCAKTAR_LİMSA_SATIS.xlsx.html

sizden ricam ben burada 2 tane formül diye belirttiğim M VE N SÜTUNLARI VAR

Yapmak istedigim aynı fatura numaralı cari nin stok olarak miktarsal toplamını ve tutarsal toplamını almasını istiyorum.

örnegin 000016 nolu ahmet yanlızoğlu faturalı C 30 HAZIR BETON MİKTAR TOPLAMI 17 TUTAR TOPLAMI İSE 1.872,89 FORMÜL KISMINDA OLMASINI İSTİYORUM. UMARIM ANLATABİLDİM. İNŞALLAH COK TEŞEKKÜR EDERİM.

KISACASI AYNI : SATIS YAPILAN CARİ DE AYNI STOKLU SATIS VARSA ALT ALTA TOPLANIP TUTARSAL OLARAK BELİRTİLMESİ. İSTİYORUM.

 

[Vedat Özer]

Selamlar,

Aşağıdaki sorguyu deneyin. Logo kullanıyorsanız müsait olursam sql formatında ayarlarım.


Link

Sub Ozet_Tablo()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, X As Long, Say As Long
    Dim Veri As Variant, Liste As Variant, Zaman As Double, Kriter As String
    
    Zaman = Timer
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Rapor")
    
    S2.Range("A7:h" & S2.Rows.Count).ClearContents
    S2.Range("A7:h" & S2.Rows.Count).Borders.LineStyle = 0
    
    Son = S1.Cells(S1.Rows.Count, 3).End(3).Row
    Veri = S1.Range("A2:n" & Son).Value
    
    ReDim Liste(1 To UBound(Veri, 1), 1 To 8)
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For X = 1 To UBound(Veri, 1)
            If Veri(X, 3) >= 0 Then
                Kriter = Veri(X, 2) & ":" & Veri(X, 4) & ":" & Veri(X, 6) & ":" & Veri(X, 7)
                If Not IsEmpty(Kriter) Then
                    If Not .Exists(Kriter) Then
                        Say = Say + 1
                        .Add Kriter, Say
                        Liste(Say, 1) = Veri(X, 1)
                        Liste(Say, 2) = Veri(X, 2)
                        Liste(Say, 3) = Veri(X, 4)
                        Liste(Say, 4) = Veri(X, 5)
                        Liste(Say, 5) = Veri(X, 6)
                        Liste(Say, 6) = Veri(X, 7)
                        
                     
                    End If
                    
                    On Error Resume Next
                    Liste(.Item(Kriter), 7) = Liste(.Item(Kriter), 7) + Veri(X, 8)
                    Liste(.Item(Kriter), 8) = Liste(.Item(Kriter), 8) + Veri(X, 12)
                    
                    On Error GoTo 0
                End If
            End If
        Next
    End With
    
    S2.Range("A7").Resize(Say, 8).Value = Liste
    S2.Range("A7").Resize(Say, 8).Borders.LineStyle = 1
    S2.Cells.EntireColumn.AutoFit
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.000") & " Saniye", vbInformation, "Bilgilendirme"
End Sub

 

[jaguar190327]

Firma logo kullanıyorda ben excel alıyorum oradan ondan dolayı gerekiyordu.

 

[jaguar190327]

Hazırlayabilecek biri varmıdır acaba*

 

[çıtır]

Sayın jaguar190327 fatura bilgileri tekrar ediyor. sizin örnek olarak 2.satırda verdiğiniz bilgi tekrar 2377 den itibaren tekrar ediyor.Bu durumda nasıl hesap yapılacak, tüm fatura bilgileri tahmini 1000 satır sonra tekrarlı.

 

[jaguar190327]

Sayın jaguar190327 fatura bilgileri tekrar ediyor. sizin örnek olarak 2.satırda verdiğiniz bilgi tekrar 2377 den itibaren tekrar ediyor.Bu durumda nasıl hesap yapılacak, tüm fatura bilgileri tahmini 1000 satır sonra tekrarlı.

neden ki tekrar lı oluyor ama bütün satırları olması lazım onu fatura numarasından ayıramıyormuyuz.acaba daha önce biri yapmıştı. bulmaadım.

 

[çıtır]

neden ki tekrar lı oluyor ama bütün satırları olması lazım onu fatura numarasından ayıramıyormuyuz.acaba daha önce biri yapmıştı. bulmaadım.

Tüm bilgiler aynı ,ayırt edici bir bilgi bulamadım.Siz bulursanız yazınız.Bu durumda yapıldığında üstte aynı olan verileride toplama dahil ederek devam ediyor.

 

[Vedat Özer]

Selamlar

Dosyayı inceledinizmi ? Karşılaştığınız hatalar nelerdir.

 

[çıtır]

Sanırım istediğiniz böyle bir formül.
http://s5.dosya.tc/server5/ry2s0m/tutar.rar.html

 

[jaguar190327]

Sanırım istediğiniz böyle bir formül.
http://s5.dosya.tc/server5/ry2s0m/tutar.rar.html

tşk hocam bu olmus ama sanki bir 2 tane yerde formül mü hatalı yanlıs topluyor. gibi geldi de ama size zahmet bu ilk dosyası bunada atabilirmisiniz. örnek 1 de o sekilde geliyor bütün satıslar ona yanınada atabilirseniz cok tşk ederim.
http://dosya.co/pbfvo4ydby69/SATIS.xlsx.html