Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Makro problemi (http://www.excel.web.tr/showthread.php?t=170438)

byfika 09-02-2018 20:17

Makro problemi
 
1 Eklenti(ler)
merhabalar, örnekte tam olarak açıklar mevcut, nasıl düzenleyebilirim.
Bilgileriniz için teşekkürler.

Ömer BARAN 09-02-2018 21:57

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:

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


byfika 09-02-2018 22:44

Teşekkür
 
Ömer bey,
Kod için teşekkürler, fakat bir problem var. Stok giriş sayfasına örnek olarak, SA-60 ve SK-60 kodlu ürünü ve herhangi bir miktarı girdiğimde data sayfasında kayıt çıkmıyor. Aynı veriyi çıkış sayfasına da miktarı daha düşük giriş yaparakda denedim ama data sayfasındaki karşılığı 0,00 görülüyor. Rica etsem sizde buna benzer deneme yapabilir misiniz? Teşekkürler Saygılarımla

Ömer BARAN 09-02-2018 22:56

Sayfayı yenileyerek önceki cevabımdaki kod'u tekrar kopyalayın.
$ işaretlerini eklemeyi unutmuşum. Başka sorun yok.

byfika 09-02-2018 23:01

Teşekkürler
 
Ömer bey,
Denedim ve herşey yolunda çok teşekkürler, İyi akşamlar
Saygılarımla

Ömer BARAN 09-02-2018 23:09

Estağfurullah, kolay gelsin.


Saat 04:35

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.