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 21: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 22: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 23: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 23:56

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

byfika 10-02-2018 00:01

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

Ömer BARAN 10-02-2018 00:09

Estağfurullah, kolay gelsin.


Saat 11:28

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