anket değerlendirme

[mpinal]

ekte bulunan anket formunu değerlendirmek için işletme anketi sayfasında yapmaya çalıştığım uygulamayı tüm sayfalara uygulamak istiyorum ama ekte sunduğum makroyu bir for i döngüsüyle yazmaya çalıştım bilgim yetmedi yardımcı olursanız sevinirim teşekkür ederim.
Sub aktar()

[bf6] = [bf6] + [ba6]
[bg6] = [bg6] + [bb6]
[bh6] = [bh6] + [bc6]
[bi6] = [bi6] + [bd6]
[bj6] = [bj6] + [be6]
[bf7] = [bf7] + [ba7]
[bg7] = [bg7] + [bb7]
[bh7] = [bh7] + [bc7]
[bi7] = [bi7] + [bd7]
[bj7] = [bj7] + [be7]
[bf8] = [bf8] + [ba8]
[bg8] = [bg8] + [bb8]
[bh8] = [bh8] + [bc8]
[bi8] = [bi8] + [bd8]
[bj8] = [bj8] + [be8]
[bf9] = [bf9] + [ba9]
[bg9] = [bg9] + [bb9]
[bh9] = [bh9] + [bc9]
[bi9] = [bi9] + [bd9]
[bj9] = [bj9] + [be9]
[bf10] = [bf10] + [ba10]
[bg10] = [bg10] + [bb10]
[bh10] = [bh10] + [bc10]
[bi10] = [bi10] + [bd10]
[bj10] = [bj10] + [be10]
[bf11] = [bf11] + [ba11]
[bg11] = [bg11] + [bb11]
[bh11] = [bh11] + [bc11]
[bi11] = [bi11] + [bd11]
[bj11] = [bj11] + [be11]
[bf12] = [bf12] + [ba12]
[bg12] = [bg12] + [bb12]
[bh12] = [bh12] + [bc12]
[bi12] = [bi12] + [bd12]
[bj12] = [bj12] + [be12]
[bf13] = [bf13] + [ba13]
[bg13] = [bg13] + [bb13]
[bh13] = [bh13] + [bc13]
[bi13] = [bi13] + [bd13]
[bj13] = [bj13] + [be13]
[bf14] = [bf14] + [ba14]
[bg14] = [bg14] + [bb14]
[bh14] = [bh14] + [bc14]
[bi14] = [bi14] + [bd14]
[bj14] = [bj14] + [be14]
[bf15] = [bf15] + [ba15]
[bg15] = [bg15] + [bb15]
[bh15] = [bh15] + [bc15]
[bi15] = [bi15] + [bd15]
[bj15] = [bj15] + [be15]
[bf17] = [bf17] + [ba17]
[bg17] = [bg17] + [bb17]
[bh17] = [bh17] + [bc17]
[bi17] = [bi17] + [bd17]
[bj17] = [bj17] + [be17]
[bf18] = [bf18] + [ba18]
[bg18] = [bg18] + [bb18]
[bh18] = [bh18] + [bc18]
[bi18] = [bi18] + [bd18]
[bj18] = [bj18] + [be18]
[bf19] = [bf19] + [ba19]
[bg19] = [bg19] + [bb19]
[bh19] = [bh19] + [bc19]
[bi19] = [bi19] + [bd19]
[bj19] = [bj19] + [be19]
[bf21] = [bf21] + [ba21]
[bg21] = [bg21] + [bb21]
[bh21] = [bh21] + [bc21]
[bi21] = [bi21] + [bd21]
[bj21] = [bj21] + [be21]
[bf22] = [bf22] + [ba22]
[bg22] = [bg22] + [bb22]
[bh22] = [bh22] + [bc22]
[bi22] = [bi22] + [bd22]
[bj22] = [bj22] + [be22]
[bf24] = [bf24] + [ba24]
[bg24] = [bg24] + [bb24]
[bh24] = [bh24] + [bc24]
[bi24] = [bi24] + [bd24]
[bj24] = [bj24] + [be24]
[bf25] = [bf25] + [ba25]
[bg25] = [bg25] + [bb25]
[bh25] = [bh25] + [bc25]
[bi25] = [bi25] + [bd25]
[bj25] = [bj25] + [be25]
[bf27] = [bf27] + [ba27]
[bg27] = [bg27] + [bb27]
[bh27] = [bh27] + [bc27]
[bi27] = [bi27] + [bd27]
[bj27] = [bj27] + [be27]
[bf28] = [bf28] + [ba28]
[bg28] = [bg28] + [bb28]
[bh28] = [bh28] + [bc28]
[bi28] = [bi28] + [bd28]
[bj28] = [bj28] + [be28]
[bf30] = [bf30] + [ba30]
[bg30] = [bg30] + [bb30]
[bh30] = [bh30] + [bc30]
[bi30] = [bi30] + [bd30]
[bj30] = [bj30] + [be30]
[bf32] = [bf32] + [ba32]
[bg32] = [bg32] + [bb32]
[bh32] = [bh32] + [bc32]
[bi32] = [bi32] + [bd32]
[bj32] = [bj32] + [be32]
[bf33] = [bf33] + [ba33]
[bg33] = [bg33] + [bb33]
[bh33] = [bh33] + [bc33]
[bi33] = [bi33] + [bd33]
[bj33] = [bj33] + [be33]
[bf35] = [bf35] + [ba35]
[bg35] = [bg35] + [bb35]
[bh35] = [bh35] + [bc35]
[bi35] = [bi35] + [bd35]
[bj35] = [bj35] + [be35]
[bf36] = [bf36] + [ba36]
[bg36] = [bg36] + [bb36]
[bh36] = [bh36] + [bc36]
[bi36] = [bi36] + [bd36]
[bj36] = [bj36] + [be36]
[bf38] = [bf38] + [ba38]
[bg38] = [bg38] + [bb38]
[bh38] = [bh38] + [bc38]
[bi38] = [bi38] + [bd38]
[bj38] = [bj38] + [be38]
[bf39] = [bf39] + [ba39]
[bg39] = [bg39] + [bb39]
[bh39] = [bh39] + [bc39]
[bi39] = [bi39] + [bd39]
[bj39] = [bj39] + [be39]
[bf41] = [bf41] + [ba41]
[bg41] = [bg41] + [bb41]
[bh41] = [bh41] + [bc41]
[bi41] = [bi41] + [bd41]
[bj41] = [bj41] + [be41]
[bf43] = [bf43] + [ba43]
[bg43] = [bg43] + [bb43]
[bh43] = [bh43] + [bc43]
[bi43] = [bi43] + [bd43]
[bj43] = [bj43] + [be43]
[bf44] = [bf44] + [ba44]
[bg44] = [bg44] + [bb44]
[bh44] = [bh44] + [bc44]
[bi44] = [bi44] + [bd44]
[bj44] = [bj44] + [be44]
End Sub

yukarıdaki kodu kısaltıp 6. satır ile 150. satır arasındaki tüm satırlara uygulamak istiyorum.ne yapmak istediğimi anlamak isteyen arkadaşlar için ekteki dosyanın işletme anketi sayfasını incelerlerse anlaya bilirler benim tek ricam yukarıdaki kodu kısaltmak mümkünmü?

 

[Husgvarna]

Şöyle deneyin.
(150. satır dahil değilse döngüdeki 150' yi 149 yapın)

Yukarıdaki kodlara göre:

Sub aktar()
For a = 6 To 150
For b = 1 To 5
Cells(a, 57 + b) = Cells(a, 57 + b) + Cells(a, 52 + b)
Next
Next
End Sub

Veya (gönderdiğiniz dosyaya göre);

Sub aktar()
For a = 6 To 150
For b = 1 To 5
If Cells(a, 52 + b) > "" Then Cells(a, 57 + b) = Cells(a, 57 + b) + Cells(a, 52 + b)
Next
Next
End Sub

 

[mpinal]

sayın husgvarna
ilginize teşekkür ederim.tam istediğim işlem olmuş ayrıca mantığını kavradım bu beni excelde bir adım daha ileriye taşıdı ayrıca bunun içinde teşekkür ederim.sizden son bir rica yukarıdaki 2. kodu boş satırları atlaması için demişsiniz bunu da aynı modülemi kopyalamalıyım yani iki kodu nasıl birleştireceğim onu anlayamadım ayrı ayrı kopyalayınca sanki aynı isimli iki makro var gibi bir hata mesajı veriyor...

 

[Husgvarna]

sayın husgvarna
yukarıdaki 2. kodu boş satırları atlaması için demişsiniz bunu da aynı modülemi kopyalamalıyım yani iki kodu nasıl birleştireceğim onu anlayamadım ayrı ayrı kopyalayınca sanki aynı isimli iki makro var gibi bir hata mesajı veriyor...

Merhaba.
Gönderdiğiniz dosya da mesela; 8.,12.,16.,20. satırların toplanmasıyla
aynı satırda "0" değerleri ortaya çıkıyor.
Birinci kodu sizin yukarıdaki yazdığınız

[bg8] = [bg8] + [bb8]
[bh8] = [bh8] + [bc8]
[bi8] = [bi8] + [bd8]
[bj8] = [bj8] + [be8]

şeklindeki kodlara istinaden yazdım, kullandığınız dosya; gönderdiğiniz dosya ile aynı ise sadece ikinci kodu kullanın

 

[mpinal]

anladım teşekkür ederim.2. kodu kullanırsam aradaki boş satırları görmezden gelecek.bu arada sayenizde okulum için bayağı işleri kolaylaştırdım.Excelde hazırlanan anketleri öğrenciler ve öğretmenler doldurdu bunları değerlendirmek için fine reader ile taratıp excele otomatik aktarmasını sağladım sizin sayenizde her form anında puan olarak yansıdı ve o puanları sizin yazdığınız makroyla toplattım grafikleri çizdim 4öğretmen arkadaşı değerlendirme için harcayacakları birkaç saatten kurtardım bende bir işi başarmanın mutluluğuyla size teşekkür ediyorum ...