Makro problemi

[byfika]

merhabalar, örnekte tam olarak açıklar mevcut, nasıl düzenleyebilirim.
Bilgileriniz için teşekkürler.

 

[Ömer BARAN]

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

[B]Private Sub Worksheet_Activate()[/B]
Dim sgson, sson As Integer
[B][COLOR="Blue"]sgson[/COLOR][/B] = Sheets("STOK GİRİŞ").Cells(Rows.Count, "C").End(3).Row
[B][COLOR="Red"]sson[/COLOR][/B] = Sheets("SATIŞ").Cells(Rows.Count, "G").End(3).Row

With Range("D2:D" & Cells(Rows.Count, [B][SIZE="5"]2[/SIZE][/B]).End(3).Row)
    .Formula = "=SUMPRODUCT(('STOK GİRİŞ'![B][SIZE="3"]$[/SIZE][/B]C[B][SIZE="3"]$[/SIZE][/B]5:[B][SIZE="3"]$[/SIZE][/B]C[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="Blue"]sgson[/COLOR][/B] & "=B2)*('STOK GİRİŞ'![B][SIZE="3"]$[/SIZE][/B]D[B][SIZE="3"]$[/SIZE][/B]5:[B][SIZE="3"]$[/SIZE][/B]D[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="blue"]sgson[/COLOR][/B] & "=C2)*('STOK GİRİŞ'![B][SIZE="3"]$[/SIZE][/B]I[B][SIZE="3"]$[/SIZE][/B]5:[B][SIZE="3"]$[/SIZE][/B]I[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="blue"]sgson[/COLOR][/B] & "))" & _
                "-SUMPRODUCT((SATIŞ![B][SIZE="3"]$[/SIZE][/B]G[B][SIZE="3"]$[/SIZE][/B]2:[B][SIZE="3"]$[/SIZE][/B]G[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="Red"]sson[/COLOR][/B] & "=B2)*(SATIŞ![B][SIZE="3"]$[/SIZE][/B]H[B][SIZE="3"]$[/SIZE][/B]2:[B][SIZE="3"]$[/SIZE][/B]H[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="red"]sson[/COLOR][/B] & "=C2)*(SATIŞ![B][SIZE="3"]$[/SIZE][/B]L[B][SIZE="3"]$[/SIZE][/B]2:[B][SIZE="3"]$[/SIZE][/B]L[B][SIZE="3"]$[/SIZE][/B]" & [B][COLOR="red"]sson[/COLOR][/B] & "))"
    .Value = .Value
End With
[B]End Sub[/B]

 

[byfika]

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]

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

 

[byfika]

Teşekkürler

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

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.