Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-11-2017, 15:09   #1
jaguar190327
 
Giriş: 14/12/2016
Şehir: gaziantep
Mesaj: 60
Excel Vers. ve Dili:
2007
Varsayılan Muhasebe - stok toplamı formül(acil)

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

http://dosya.co/ys2x855c7y3x/SANCAKT...ATIS.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.
jaguar190327 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 16:11   #2
Vedat Özer
Uzman
 
Vedat Özer kullanıcısının avatarı
 
Giriş: 04/01/2010
Şehir: Antalya
Mesaj: 2,053
Excel Vers. ve Dili:
OFFICE 2007 PRO TR - Win7 X64
Varsayılan

Selamlar,

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


Link
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
Eklenmiş Dosyalar
Dosya Türü: rar özet raport.rar (365.7 KB, 14 Görüntülenme)
__________________
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

Forum Kuralları

vedatozer@outlook.com
Vedat Özer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 07:36   #3
jaguar190327
 
Giriş: 14/12/2016
Şehir: gaziantep
Mesaj: 60
Excel Vers. ve Dili:
2007
Varsayılan

Firma logo kullanıyorda ben excel alıyorum oradan ondan dolayı gerekiyordu.
jaguar190327 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 09:13   #4
jaguar190327
 
Giriş: 14/12/2016
Şehir: gaziantep
Mesaj: 60
Excel Vers. ve Dili:
2007
Varsayılan

Hazırlayabilecek biri varmıdır acaba*
jaguar190327 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 09:20   #5
çıtır
Altın Üye
 
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,925
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit
Varsayılan

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ı.

Bu mesaj en son " 15-11-2017 " tarihinde saat 10:50 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 12:17   #6
jaguar190327
 
Giriş: 14/12/2016
Şehir: gaziantep
Mesaj: 60
Excel Vers. ve Dili:
2007
Varsayılan

Alıntı:
çıtır tarafından gönderildi Mesajı Görüntüle
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.
jaguar190327 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 12:24   #7
çıtır
Altın Üye
 
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,925
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit
Varsayılan

Alıntı:
jaguar190327 tarafından gönderildi Mesajı Görüntüle
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.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 19:37   #8
Vedat Özer
Uzman
 
Vedat Özer kullanıcısının avatarı
 
Giriş: 04/01/2010
Şehir: Antalya
Mesaj: 2,053
Excel Vers. ve Dili:
OFFICE 2007 PRO TR - Win7 X64
Varsayılan

Selamlar

Dosyayı inceledinizmi ? Karşılaştığınız hatalar nelerdir.
__________________
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

Forum Kuralları

vedatozer@outlook.com
Vedat Özer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 22:17   #9
çıtır
Altın Üye
 
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,925
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit
Varsayılan

Sanırım istediğiniz böyle bir formül.
http://s5.dosya.tc/server5/ry2s0m/tutar.rar.html
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-11-2017, 13:24   #10
jaguar190327
 
Giriş: 14/12/2016
Şehir: gaziantep
Mesaj: 60
Excel Vers. ve Dili:
2007
Varsayılan

Alıntı:
çıtır tarafından gönderildi Mesajı Görüntüle
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
jaguar190327 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 16:37


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden