Yalnız Mesajı Göster
Eski 09-02-2018, 22:57  
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,726
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Mevcut kod'u aşağıdakiyle değiştirin. Hem böylece işlem daha da hızlanacaktır.
Artık hesaplamalar 10.000 satır yerine dolu satır sayısına göre (koddaki sgson ve sson değişkinlerine ilişkin tanımlama dolayısıyla) yapılır.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Activate()
Dim sgson, sson As Integer
sgson = Sheets("STOK GİRİŞ").Cells(Rows.Count, "C").End(3).Row
sson = Sheets("SATIŞ").Cells(Rows.Count, "G").End(3).Row

With Range("D2:D" & Cells(Rows.Count, 2).End(3).Row)
    .Formula = "=SUMPRODUCT(('STOK GİRİŞ'!$C$5:$C$" & sgson & "=B2)*('STOK GİRİŞ'!$D$5:$D$" & sgson & "=C2)*('STOK GİRİŞ'!$I$5:$I$" & sgson & "))" & _
                "-SUMPRODUCT((SATIŞ!$G$2:$G$" & sson & "=B2)*(SATIŞ!$H$2:$H$" & sson & "=C2)*(SATIŞ!$L$2:$L$" & sson & "))"
    .Value = .Value
End With
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla