Vba Kod Kısaltılması

TUNCA ERSİN

Altın Üye
Katılım
18 Ağustos 2021
Mesajlar
131
Excel Vers. ve Dili
Office Professional plus 2016 Tr
Altın Üyelik Bitiş Tarihi
18-08-2026
Sy. Hocalarım ;
burada hocalarımın yardımı ile bu kodları oluşturduk veri ve sayfaların fazla olması nedeniyle bağa bir kasılma ve yavaşlama olmaktadır. aşağıda yazan kodu nasıl kısa ve hızlı yapabiliriz. kodlara açıklama yazmanızı rica edecektim. Diğer sayfalara da uygulayacağım. Teşekkür ederim.

For i = 6 To 30 Step 4
Cells(2, i) = Evaluate("=LOOKUP(" & Cells(1, i).Address & ",$A$3:$A$503,$B$3:$B$503)")
Cells(3, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$A$3:$A$5000,akkoç!$M$3:$M$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") 'akkoç satış
Cells(4, i + 1) = Evaluate("=IFERROR(SUMIFS(akc!$A$3:$A$5000,akc!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") 'akc satış
Cells(5, i + 1) = Evaluate("=IFERROR(SUMIFS(özdoğa!$A$3:$A$5000,özdoğa!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' özdoğa satış
Cells(6, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$A$3:$A$5000,ağırnakliye_akkoc!$G$3:$G$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' akkoç ağır nakliye gelir
Cells(7, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$A$3:$A$5000,ağırnakliye_özdoğa!$G$3:$G$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' özdoğa ağır nakliye gelir
Cells(10, i + 1) = Evaluate("=IFERROR(SUMIFS(yakıt_işlemleri!$f$3:$f$5000,yakıt_işlemleri!$c$3:$c$5000," & Cells(2, i).Address & ",yakıt_işlemleri!$n$3:$n$5000," & Cells(10, i).Address & ")," & Chr(34) & Chr(34) & ")") ' mazot
Cells(11, i + 1) = Evaluate("=IFERROR(SUMIFS(yakıt_işlemleri!$f$3:$f$5000,yakıt_işlemleri!$c$3:$c$5000," & Cells(2, i).Address & ",yakıt_işlemleri!$n$3:$n$5000," & Cells(11, i).Address & ")," & Chr(34) & Chr(34) & ")") ' adblue
Cells(15, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$x$3:$x$5000,akkoç!$m$3:$m$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(akc!$y$3:$y$5000,akc!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(özdoğa!$y$3:$y$5000,özdoğa!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$ı$3:$ı$5000,ağırnakliye_akkoc!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$ı$3:$ı$5000,ağırnakliye_özdoğa!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' komisyon
Cells(16, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$AH$3:$AH$5000,tamir_bakım!$AF$3:$AF$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' maaş
Cells(17, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$n$3:$n$5000,akkoç!$M$3:$M$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' harcırah
Cells(18, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(18, i).Address & ")," & Chr(34) & Chr(34) & ")") ' lastik
Cells(19, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(19, i).Address & ")," & Chr(34) & Chr(34) & ")") ' periyodik bakım
Cells(20, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(20, i).Address & ")," & Chr(34) & Chr(34) & ")") ' parça değişimi
Cells(21, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(21, i).Address & ")," & Chr(34) & Chr(34) & ")") ' sarf malzemesi
Cells(22, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$t$3:$t$5000,tamir_bakım!$s$3:$s$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' hgs
Cells(23, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$j$3:$j$5000,ağırnakliye_akkoc!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
+ Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$j$3:$j$5000,ağırnakliye_özdoğa!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' yol belgesi
Cells(24, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ac$3:$Ac$5000,tamir_bakım!$v$3:$v$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' kasko
Cells(25, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ab$3:$Ab$5000,tamir_bakım!$v$3:$v$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' trafik
Next i
 

Ekli dosyalar

Üst