• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Formülü koda çevirme

N

nane

Katılım
26 Ocak 2006
Mesajlar
304
Excel Vers. ve Dili
Excel 2007 tr
Verilerin bulunduğu sayfa adı: düzenle

Aşağıdaki formülün bulunduğu sayfa adı: Düzenle ara mizanı

Formül ise: Düzenle ara mizanı sayfasında D6 dan D606 hücresine kadar

=TOPLA.ÇARPIM((EĞER((($D6=düzenle!$J$3:düzenle!$J$79605));EĞER(düzenle!$C$3:$C$79605>=$D$2;EĞER(düzenle!$C$3:$C$79605<=$D$3;düzenle!$T$3:$T$79605;0)))))


2 Formül ise: Düzenle ara mizanı sayfasında E6 dan E606 hücresine kadar

=TOPLA.ÇARPIM((EĞER((($D6=düzenle!$J$3:düzenle!$J$79605));EĞER(düzenle!$C$3:$C$79605>=$D$2;EĞER(düzenle!$C$3:$C$79605<=$D$3;düzenle!$U$3:$U$79605;0)))))

Bu iki formülü kod olarak yazabilirmiyiz.

Yardımlarınızı bekliyorum.
Şimdiden teşekkürler
Yb®
 
Korhan bey merhabalar,

Aslında sizin vermiş olduğunuz bu kod oluşturma konusunu okuduktan sonra konu açtım. Çünkü sayfa şu an 8000 satır ve 150 satırlardan oluşmakta bu yüzden çok kasıyor. Kod ile daha hızlı olacağını yazmışsınız. O konu altına yazmayı da düşündüm fakat olmazdı orası dershane,
- Bu formül ile yaptığım ise belli tarihler, ay, yıl olarak mizan hesaplatmak dosya büyük olduğundan da eklemedim.
Kod yazamıyorum ancak otomatik makro kaydetmek kadar.
Yardımlarınız için teşekkürler
Yb®
 
Merhaba
Örnek dosya ekleyebilir misin?
 
merhaba
Kodu düzenle ara mizanı sayfasında dener misiniz_?
Kod: 
Sub topla()
Set s1 = Worksheets("Düzenle ara mizanı")
Set s2 = Worksheets("düzenle")
sonsats1d = s1.Cells(65536, "D").End(xlUp).Row
sonsats2j = s2.Cells(65536, "J").End(xlUp).Row
'sonsut3 = ThisWorkbook.Sheets("Sayfa3").Cells(1, Columns.Count).End(xlToLeft).Column


For i = 7 To sonsats1d
t = 0
     For x = 3 To sonsats2j
     If s2.Cells(x, "J") = s1.Cells(i, "D") And _
        s2.Cells(x, "C") >= s1.Cells(2, "D") And _
        s2.Cells(x, "C") <= s1.Cells(3, "D") Then t = t + s2.Cells(x, "T")
     Next x
     
s1.Cells(i, "G") = t
Next i
End Sub
 
mersilen' Alıntı:
merhaba
Kodu düzenle ara mizanı sayfasında dener misiniz_?
Kod: 
Sub topla()
Set s1 = Worksheets("Düzenle ara mizanı")
Set s2 = Worksheets("düzenle")
sonsats1d = s1.Cells(65536, "D").End(xlUp).Row
sonsats2j = s2.Cells(65536, "J").End(xlUp).Row
'sonsut3 = ThisWorkbook.Sheets("Sayfa3").Cells(1, Columns.Count).End(xlToLeft).Column


For i = 7 To sonsats1d
t = 0
     For x = 3 To sonsats2j
     If s2.Cells(x, "J") = s1.Cells(i, "D") And _
        s2.Cells(x, "C") >= s1.Cells(2, "D") And _
        s2.Cells(x, "C") <= s1.Cells(3, "D") Then t = t + s2.Cells(x, "T")
     Next x
     
s1.Cells(i, "G") = t
Next i
End Sub
Genişletmek için tıkla ...

Merhabalar,
Mersilen verdiğiniz kodu denedim sadece borç tutarlarını getiriyor. yani G sütünuna ait bilgileri getiriyor diğer sütunların da H, I, J, sütunlarına ait bilgilerin gelmesi için kodu güncelleyebilirmisiniz.
Yardımlarınız için teşekkürler
Yb®
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst