Alışların Giriş Maliyetini Getirecek Çözüm.

[kaptan14ts]

Merhabalar;
Ekte yer alan örnek doyadaki verileri kullanarak Satışı yapılmış ürünlerin
Giriş değerlerini satış faturasını karşısına getire bilir miyiz.
Giriş Maliyetleri

 

[shaqzilla]

Merhaba,

Satış faturalarınız birden çok olduğu için Veri-Gelişmiş Filtre sekmesinden "Başka yere kopyala" seçtikten sonra alttaki "Yalnızca benzersiz kayıtlar" ı seçin. Sonrasında Hedef kısmı aktif hale gelecek olup satış faturasının bulunduğu kısmı seçin (eklemiş olduğunuz dosyadaki j2:j11 aralığı gibi, bunu değiştirip artırabilirsiniz). Böylece satış faturası kısmındaki benzersiz kayıtlılar listelenecektir.

Filtreleme yaptıktan sonra etopla formülü ile işlemleriniz yapabilirsiniz. Örnek olarak =ETOPLA(J2:J11;M15;R2:R11) gibi

 

[kaptan14ts]

Merhaba,

Satış faturalarınız birden çok olduğu için Veri-Gelişmiş Filtre sekmesinden "Başka yere kopyala" seçtikten sonra alttaki "Yalnızca benzersiz kayıtlar" ı seçin. Sonrasında Hedef kısmı aktif hale gelecek olup satış faturasının bulunduğu kısmı seçin (eklemiş olduğunuz dosyadaki j2:j11 aralığı gibi, bunu değiştirip artırabilirsiniz). Böylece satış faturası kısmındaki benzersiz kayıtlılar listelenecektir.

Filtreleme yaptıktan sonra etopla formülü ile işlemleriniz yapabilirsiniz. Örnek olarak =ETOPLA(J2:J11;M15;R2:R11) gibi

Yardımlarınız için teşekkürler,
Birden fazla çalışma sayfasındaki veriyi böyle çözümle kullanamam.
Sorumluluk merkezindeki girişi yapılan stokların çıkışı yapılan fatura numarasına ait toplamların getirilmesi

 

[walabi]

Amacınız, stok koduna bağlı olarak, satış işlemi yapılan bir kodun alışlarını hesaplamaksa ,

excelin çoketopla fonksiyonu çok işinize yarar,



Dosyayı indirebilirseniz, inceleyin. Anladığım çerçevede formülüze ettim.

kaptan14ts.xlsx dosyasını indir - download

kaptan14ts.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[kaptan14ts]

Amacınız, stok koduna bağlı olarak, satış işlemi yapılan bir kodun alışlarını hesaplamaksa ,

excelin çoketopla fonksiyonu çok işinize yarar,



Dosyayı indirebilirseniz, inceleyin. Anladığım çerçevede formülüze ettim.

kaptan14ts.xlsx dosyasını indir - download

kaptan14ts.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Ekli dosyayı görüntüle 256902

Yardımlarınız için teşekkürler,
Stok kodu 10.000 binlerce, sayfada yüzlerce kez geçer.
Fakat Sorumluluk merkezi / ile Alış Faturası Kodları Tekildir.Sorumluluk Merkezi Altında ki satışlar O sorumluluk merkezinde vardır.

 

[walabi]

Stok Kodu ve Evrak ( Fatura ) Numarası olan buna benzer tablolarda , Stok Kodu ve Fatura Numarasını yeni bir sütunda birleştirerek kendinize yeni bir NUMARA / KOD yaratabilirsiniz. Bu sütunu baz alarak koşullu işlemler yaptırabilirsiniz excelde.

 

[kaptan14ts]

Nasıl formülüze edeceğiz.! Çıkamadım içinden.

 

[walabi]

Yapmak istediğin resimdeki gibi bir sonuç ise çoketopla fonksiyonunu araştır derim. Resimdeki sonucu verecek formül istediğini anladım.

Dosyayı yüklediğin durumunda stokların olduğu sütunda , bazı stok kodlarının sonunda . nokta var. Konuyu anlatabilmek için noktayı kendinin koyduğunu düşünüyorum. Verinin orjinal helinde nokta varsa bu formül kurarken kriterli işlemler yapmada sıkıntı yaratır. Bunu belirteyim.

Dosyayı indirebilirsen kontrol edersin.

kaptan14ts.xlsx dosyasını indir - download

kaptan14ts.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[kaptan14ts]

Merhabalar;Yardımlarınız için teşekkürler
* . işareti stok kartının içinde vardı.
* Yazdığınız formülle belli bir noktaya kadar gele biliyoruz.Fakat satış fatura numarasında toplayıp / eşleştirmemiz gerekir.
* VEAR2025000000017 => 87.887,06-TL (Faturanın içinde geçen giriş yapılan faturaların / Çıkışı yapılan VEAR2025000000017 numarasında toplanması
Bu sorunu aşa bilir miyiz.-

 

[Ziynettin]

Merhaba,

VEAR2025000000016 =1.082.275,87 ekteki tabloya göre toplamı doğru mu?

Stok kodu ve Bb No ilişki kurmaya çalıştım sonuç VEAR2025000000016 =9.284,27 olarak gelmektedir.

 

[kaptan14ts]

Merhaba,

VEAR2025000000016 =1.082.275,87 ekteki tabloya göre toplamı doğru mu?

Stok kodu ve Bb No ilişki kurmaya çalıştım sonuç VEAR2025000000016 =9.284,27 olarak gelmektedir.

Cevabınız için teşekkürler;
Girişler:

TARİH	STOK KOD	GİRİŞ TUTARI
06.02.2025	9TSSS1182	536.495,80.-TL​
06.02.2025	9TSSS1182	536.495,80.-TL​
06.02.2025	5650008021	2.321,06.-TL​

1.082.275,87.-TL

Çıkışlar:

TARİH	STOK KOD	ÇIKIŞ TUTARI
26.02.2025	9TSSS1182	597.690,96.-TL​
26.02.2025	9TSSS1182	597.690,96.-TL​
26.02.2025	5650008021	10.344,24.-TL​

Formülle 2025-ZEUSS ΜΟΝ.-23 Sorumluluk merkesinde VEAR2025000000016 =1.082.275,87.TL getirmek.

 

[Ziynettin]

Deneyiniz....

 

[kaptan14ts]

Deneyiniz....

Cevabınız için teşekkürler;
Kısıtlı üyeyim formüllü yaza bilir misiniz.

 

[Ziynettin]

Formül ile değil kod ile yapılan çalışma.

Sonuç Sayfa2 de

Dosyanız

 

[kaptan14ts]

Formül ile değil kod ile yapılan çalışma.

Sonuç Sayfa2 de

Dosyanız

Süper olmuş
yaptığınız çalışmayı ana excel listesinde nasıl çalıştıra bilirim.

 

[Ziynettin]

Ana excel listesi Sayfa1 mi?

 

[kaptan14ts]

Ana excel listesi Sayfa1 mi?

Ana excel dosyamda Detayli Stok Dokumu sayfasında bütün dökümler.
Dosyadaki baslıkları gizlemistim;
baslığa göre revize ede bilir misiniz.
https://s6.dosya.tc/server22/4auctm/Baslik.JPG.html

 

[Ziynettin]

Resim D sütununda başlıyor.

Çalışma dosyanızı ekleyin varsayımlı çalışma olmadan.

 

[kaptan14ts]

https://s6.dosya.tc/server22/pbz3rt/Calismamm2.xlsx.html

 

[Ziynettin]

Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = Sheets("Detayli Stok Dokumu")
Set ws2 = Sheets("Raporlar")

son = ws1.Range("E" & Rows.Count).End(3).Row
arr = ws1.Range("E1:AB" & son).Value



Set dc = CreateObject("scripting.dictionary")
Set ds = CreateObject("scripting.dictionary")
Set dz = CreateObject("scripting.dictionary")
ReDim b(1 To UBound(arr), 1 To 2)


For i = 2 To UBound(arr)
    If arr(i, 1) = "Çıkış" Then
        If Not dc.exists(arr(i, 5) & "|" & arr(i, 6)) Then
            krt = arr(i, 6)
            If Not dc.exists(krt) Then
                say = say + 1
                dc(krt) = say
                b(say, 1) = krt
                b(say, 2) = CStr(arr(i, 5))
            Else
                sat = dc(krt)
                b(sat, 2) = b(sat, 2) & "|" & CStr(arr(i, 5))
            End If
            c = Split(b(say, 2), "|")
            For x = 0 To UBound(c)
                ds(CStr(c(x))) = b(say, 1)
            Next x
        End If
    End If
Next i

For i = 2 To UBound(arr)
    If arr(i, 1) = "Giriş" Then
        If ds.exists(CStr(arr(i, 5))) Then
            arr(i, 5) = ds(CStr(arr(i, 5)))
            dz(arr(i, 5)) = dz(arr(i, 5)) + arr(i, 24)
        End If

    End If
Next i

Application.ScreenUpdating = False
With ws2
    .Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    .Range("A1").CurrentRegion.Offset(1, 0).ClearFormats
    If dz.Count > 0 Then
        .[B2].Resize(dz.Count + 1).NumberFormat = "#,##0.00"
        .[A2].Resize(dz.Count + 1, 2).Borders.Color = rgbSilver
        .[A2].Resize(dz.Count, 2) = Application.Transpose(Array(dz.keys, dz.items))
        .[B2].Offset(dz.Count) = Application.Sum(dz.items)
        .[A2].Offset(dz.Count) = "Toplam"
    End If
End With
Application.ScreenUpdating = True

MsgBox "İşlem tamam.", vbInformation
End Sub

Dosya İndir