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ü?
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ü?
Ekli dosyalar
-
196 KB Görüntüleme: 32