TRYING TO FIND AWAY TO MAKE A CODE SHORTER+ LINK SHEET WITH

D

DAVIDWISCHERATH

New Member
Joined
Jun 6, 2006
Messages
11
QUESTION,IS THERE A WAY TO MAKE THIS SMALLER.
ALSO WOULD LIKE IT TO LINK TO SHEETS NOT THE SHEET NAME.
AS YOU CAN SEE I REALLY DONT KNOW WHAT IM DOING, IT JUST SEEMS TO WORK. THE RANGE WOULD BE H1 TO H800. IN THIS MODULE I HAVE 24 SUBS 2 FOR EACH MONTH ASSOCIATED WITH COLORINDEX. IF YOU NEED ME TO PUT MORE OF THE CODE IN I WILL. PLEASE HELP





Sub KBFEB1LATH()
If Range("'KB HOME'!H1").Interior.ColorIndex = 42 Then
VAR1 = Range("'KB HOME'!H1").Value
End If
semi1 = VAR1 + var2 + var3 + var4 + var5 + var6 + var7 + var8 + var9 + var10 + var11 + var12 + var13 + var14 + var15 + var16 +
Range("'RECAP'!C17") = semi1 + semi2
 

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
Sort by date Sort by votes
Sub KBJAN1LATH()


If Range("'KB HOME'!H1").Interior.ColorIndex = 36 Then
var1 = Range("'KB HOME'!H1").Value
End If
If Range("'KB HOME'!H2").Interior.ColorIndex = 36 Then
var2 = Range("'KB HOME'!H2").Value
End If
If Range("'KB HOME'!H3").Interior.ColorIndex = 36 Then
var3 = Range("'KB HOME'!H3").Value
End If
If Range("'KB HOME'!H4").Interior.ColorIndex = 36 Then
var4 = Range("'KB HOME'!H4").Value
End If
If Range("'KB HOME'!H5").Interior.ColorIndex = 36 Then
var5 = Range("'KB HOME'!H5").Value
End If
If Range("'KB HOME'!H6").Interior.ColorIndex = 36 Then
var6 = Range("'KB HOME'!H6").Value
End If
If Range("'KB HOME'!H7").Interior.ColorIndex = 36 Then
var7 = Range("'KB HOME'!H7").Value
End If
If Range("'KB HOME'!H8").Interior.ColorIndex = 36 Then
var8 = Range("'KB HOME'!H8").Value
End If
If Range("'KB HOME'!H9").Interior.ColorIndex = 36 Then
var9 = Range("'KB HOME'!H9").Value
End If
If Range("'KB HOME'!H10").Interior.ColorIndex = 36 Then
var10 = Range("'KB HOME'!H10").Value
End If
If Range("'KB HOME'!H11").Interior.ColorIndex = 36 Then
var11 = Range("'KB HOME'!H11").Value
End If
If Range("'KB HOME'!H12").Interior.ColorIndex = 36 Then
var12 = Range("'KB HOME'!H12").Value
End If
If Range("'KB HOME'!H13").Interior.ColorIndex = 36 Then
var13 = Range("'KB HOME'!H13").Value
End If
If Range("'KB HOME'!H14").Interior.ColorIndex = 36 Then
var14 = Range("'KB HOME'!H14").Value
End If
If Range("'KB HOME'!H15").Interior.ColorIndex = 36 Then
var15 = Range("'KB HOME'!H15").Value
End If
If Range("'KB HOME'!H16").Interior.ColorIndex = 36 Then
var16 = Range("'KB HOME'!H16").Value
End If
If Range("'KB HOME'!H17").Interior.ColorIndex = 36 Then
var17 = Range("'KB HOME'!H17").Value
End If
If Range("'KB HOME'!H18").Interior.ColorIndex = 36 Then
var18 = Range("'KB HOME'!H18").Value
End If
If Range("'KB HOME'!H19").Interior.ColorIndex = 36 Then
var19 = Range("'KB HOME'!H19").Value
End If
If Range("'KB HOME'!H20").Interior.ColorIndex = 36 Then
var20 = Range("'KB HOME'!H20").Value
End If
If Range("'KB HOME'!H21").Interior.ColorIndex = 36 Then
var21 = Range("'KB HOME'!H21").Value
End If
If Range("'KB HOME'!H22").Interior.ColorIndex = 36 Then
var22 = Range("'KB HOME'!H22").Value
End If
If Range("'KB HOME'!H23").Interior.ColorIndex = 36 Then
var23 = Range("'KB HOME'!H23").Value
End If
If Range("'KB HOME'!H24").Interior.ColorIndex = 36 Then
var24 = Range("'KB HOME'!H24").Value
End If
If Range("'KB HOME'!H25").Interior.ColorIndex = 36 Then
var25 = Range("'KB HOME'!H25").Value
End If
If Range("'KB HOME'!H26").Interior.ColorIndex = 36 Then
var26 = Range("'KB HOME'!H26").Value
End If
If Range("'KB HOME'!H27").Interior.ColorIndex = 36 Then
var27 = Range("'KB HOME'!H27").Value
End If
If Range("'KB HOME'!H28").Interior.ColorIndex = 36 Then
var28 = Range("'KB HOME'!H28").Value
End If
If Range("'KB HOME'!H29").Interior.ColorIndex = 36 Then
var29 = Range("'KB HOME'!H29").Value
End If
If Range("'KB HOME'!H30").Interior.ColorIndex = 36 Then
var30 = Range("'KB HOME'!H30").Value
End If
If Range("'KB HOME'!H31").Interior.ColorIndex = 36 Then
var31 = Range("'KB HOME'!H31").Value
End If
If Range("'KB HOME'!H32").Interior.ColorIndex = 36 Then
var32 = Range("'KB HOME'!H32").Value
End If
If Range("'KB HOME'!H33").Interior.ColorIndex = 36 Then
var33 = Range("'KB HOME'!H33").Value
End If
If Range("'KB HOME'!H34").Interior.ColorIndex = 36 Then
var34 = Range("'KB HOME'!H34").Value
End If
If Range("'KB HOME'!H35").Interior.ColorIndex = 36 Then
var35 = Range("'KB HOME'!H35").Value
End If
If Range("'KB HOME'!H36").Interior.ColorIndex = 36 Then
var36 = Range("'KB HOME'!H36").Value
End If
If Range("'KB HOME'!H37").Interior.ColorIndex = 36 Then
var37 = Range("'KB HOME'!H37").Value
End If
If Range("'KB HOME'!H38").Interior.ColorIndex = 36 Then
var38 = Range("'KB HOME'!H38").Value
End If
If Range("'KB HOME'!H39").Interior.ColorIndex = 36 Then
var39 = Range("'KB HOME'!H39").Value
End If
If Range("'KB HOME'!H40").Interior.ColorIndex = 36 Then
var40 = Range("'KB HOME'!H40").Value
End If
If Range("'KB HOME'!H41").Interior.ColorIndex = 36 Then
var41 = Range("'KB HOME'!H41").Value
End If
If Range("'KB HOME'!H42").Interior.ColorIndex = 36 Then
var42 = Range("'KB HOME'!H42").Value
End If
If Range("'KB HOME'!H43").Interior.ColorIndex = 36 Then
var43 = Range("'KB HOME'!H43").Value
End If
If Range("'KB HOME'!H44").Interior.ColorIndex = 36 Then
var44 = Range("'KB HOME'!H44").Value
End If
If Range("'KB HOME'!H45").Interior.ColorIndex = 36 Then
var45 = Range("'KB HOME'!H45").Value
End If
If Range("'KB HOME'!H46").Interior.ColorIndex = 36 Then
var46 = Range("'KB HOME'!H46").Value
End If
If Range("'KB HOME'!H47").Interior.ColorIndex = 36 Then
var47 = Range("'KB HOME'!H47").Value
End If
If Range("'KB HOME'!H48").Interior.ColorIndex = 36 Then
var48 = Range("'KB HOME'!H48").Value
End If
If Range("'KB HOME'!H49").Interior.ColorIndex = 36 Then
var49 = Range("'KB HOME'!H49").Value
End If
If Range("'KB HOME'!H50").Interior.ColorIndex = 36 Then
var50 = Range("'KB HOME'!H50").Value
End If
If Range("'KB HOME'!H51").Interior.ColorIndex = 36 Then
var51 = Range("'KB HOME'!H51").Value
End If
If Range("'KB HOME'!H52").Interior.ColorIndex = 36 Then
var52 = Range("'KB HOME'!H52").Value
End If
If Range("'KB HOME'!H53").Interior.ColorIndex = 36 Then
var53 = Range("'KB HOME'!H53").Value
End If
If Range("'KB HOME'!H54").Interior.ColorIndex = 36 Then
var54 = Range("'KB HOME'!H54").Value
End If
If Range("'KB HOME'!H55").Interior.ColorIndex = 36 Then
var55 = Range("'KB HOME'!H55").Value
End If
If Range("'KB HOME'!H56").Interior.ColorIndex = 36 Then
var56 = Range("'KB HOME'!H56").Value
End If
If Range("'KB HOME'!H57").Interior.ColorIndex = 36 Then
var57 = Range("'KB HOME'!H57").Value
End If
If Range("'KB HOME'!H58").Interior.ColorIndex = 36 Then
var58 = Range("'KB HOME'!H58").Value
End If
If Range("'KB HOME'!H59").Interior.ColorIndex = 36 Then
var59 = Range("'KB HOME'!H59").Value
End If
If Range("'KB HOME'!H60").Interior.ColorIndex = 36 Then
var60 = Range("'KB HOME'!H60").Value
End If
If Range("'KB HOME'!H61").Interior.ColorIndex = 36 Then
var61 = Range("'KB HOME'!H61").Value
End If
If Range("'KB HOME'!H62").Interior.ColorIndex = 36 Then
var62 = Range("'KB HOME'!H62").Value
End If
If Range("'KB HOME'!H63").Interior.ColorIndex = 36 Then
var63 = Range("'KB HOME'!H63").Value
End If
If Range("'KB HOME'!H64").Interior.ColorIndex = 36 Then
var64 = Range("'KB HOME'!H64").Value
End If
If Range("'KB HOME'!H65").Interior.ColorIndex = 36 Then
var65 = Range("'KB HOME'!H65").Value
End If
If Range("'KB HOME'!H66").Interior.ColorIndex = 36 Then
var66 = Range("'KB HOME'!H66").Value
End If
If Range("'KB HOME'!H67").Interior.ColorIndex = 36 Then
var67 = Range("'KB HOME'!H67").Value
End If
If Range("'KB HOME'!H68").Interior.ColorIndex = 36 Then
var68 = Range("'KB HOME'!H68").Value
End If
If Range("'KB HOME'!H69").Interior.ColorIndex = 36 Then
var69 = Range("'KB HOME'!H69").Value
End If
If Range("'KB HOME'!H70").Interior.ColorIndex = 36 Then
var70 = Range("'KB HOME'!H70").Value
End If
If Range("'KB HOME'!H71").Interior.ColorIndex = 36 Then
var71 = Range("'KB HOME'!H71").Value
End If
If Range("'KB HOME'!H72").Interior.ColorIndex = 36 Then
var72 = Range("'KB HOME'!H72").Value
End If
If Range("'KB HOME'!H73").Interior.ColorIndex = 36 Then
var73 = Range("'KB HOME'!H73").Value
End If
If Range("'KB HOME'!H74").Interior.ColorIndex = 36 Then
var74 = Range("'KB HOME'!H74").Value
End If
If Range("'KB HOME'!H75").Interior.ColorIndex = 36 Then
var75 = Range("'KB HOME'!H75").Value
End If
If Range("'KB HOME'!H76").Interior.ColorIndex = 36 Then
var76 = Range("'KB HOME'!H76").Value
End If
If Range("'KB HOME'!H77").Interior.ColorIndex = 36 Then
var77 = Range("'KB HOME'!H77").Value
End If
If Range("'KB HOME'!H78").Interior.ColorIndex = 36 Then
var78 = Range("'KB HOME'!H78").Value
End If
If Range("'KB HOME'!H79").Interior.ColorIndex = 36 Then
var79 = Range("'KB HOME'!H79").Value
End If
If Range("'KB HOME'!H80").Interior.ColorIndex = 36 Then
var80 = Range("'KB HOME'!H80").Value
End If
If Range("'KB HOME'!H81").Interior.ColorIndex = 36 Then
var81 = Range("'KB HOME'!H81").Value
End If
If Range("'KB HOME'!H82").Interior.ColorIndex = 36 Then
var82 = Range("'KB HOME'!H82").Value
End If
If Range("'KB HOME'!H83").Interior.ColorIndex = 36 Then
var83 = Range("'KB HOME'!H83").Value
End If
If Range("'KB HOME'!H84").Interior.ColorIndex = 36 Then
var84 = Range("'KB HOME'!H84").Value
End If
If Range("'KB HOME'!H85").Interior.ColorIndex = 36 Then
var85 = Range("'KB HOME'!H85").Value
End If
If Range("'KB HOME'!H86").Interior.ColorIndex = 36 Then
var86 = Range("'KB HOME'!H86").Value
End If
If Range("'KB HOME'!H87").Interior.ColorIndex = 36 Then
var87 = Range("'KB HOME'!H87").Value
End If
If Range("'KB HOME'!H88").Interior.ColorIndex = 36 Then
var88 = Range("'KB HOME'!H88").Value
End If
If Range("'KB HOME'!H89").Interior.ColorIndex = 36 Then
var89 = Range("'KB HOME'!H89").Value
End If
If Range("'KB HOME'!H90").Interior.ColorIndex = 36 Then
var90 = Range("'KB HOME'!H90").Value
End If
If Range("'KB HOME'!H91").Interior.ColorIndex = 36 Then
var91 = Range("'KB HOME'!H91").Value
End If
If Range("'KB HOME'!H92").Interior.ColorIndex = 36 Then
var92 = Range("'KB HOME'!H92").Value
End If
If Range("'KB HOME'!H93").Interior.ColorIndex = 36 Then
var93 = Range("'KB HOME'!H93").Value
End If
If Range("'KB HOME'!H94").Interior.ColorIndex = 36 Then
var94 = Range("'KB HOME'!H94").Value
End If
If Range("'KB HOME'!H95").Interior.ColorIndex = 36 Then
var95 = Range("'KB HOME'!H95").Value
End If
If Range("'KB HOME'!H96").Interior.ColorIndex = 36 Then
var96 = Range("'KB HOME'!H96").Value
End If
If Range("'KB HOME'!H97").Interior.ColorIndex = 36 Then
var97 = Range("'KB HOME'!H97").Value
End If
If Range("'KB HOME'!H98").Interior.ColorIndex = 36 Then
var98 = Range("'KB HOME'!H98").Value
End If
If Range("'KB HOME'!H99").Interior.ColorIndex = 36 Then
var99 = Range("'KB HOME'!H99").Value
End If
If Range("'KB HOME'!H100").Interior.ColorIndex = 36 Then
var100 = Range("'KB HOME'!H100").Value
End If
If Range("'KB HOME'!H101").Interior.ColorIndex = 36 Then
var101 = Range("'KB HOME'!H101").Value
End If
If Range("'KB HOME'!H102").Interior.ColorIndex = 36 Then
var102 = Range("'KB HOME'!H102").Value
End If
If Range("'KB HOME'!H103").Interior.ColorIndex = 36 Then
var103 = Range("'KB HOME'!H103").Value
End If
If Range("'KB HOME'!H104").Interior.ColorIndex = 36 Then
var104 = Range("'KB HOME'!H104").Value
End If
If Range("'KB HOME'!H105").Interior.ColorIndex = 36 Then
var105 = Range("'KB HOME'!H105").Value
End If
If Range("'KB HOME'!H106").Interior.ColorIndex = 36 Then
var106 = Range("'KB HOME'!H106").Value
End If
If Range("'KB HOME'!H107").Interior.ColorIndex = 36 Then
var107 = Range("'KB HOME'!H107").Value
End If
If Range("'KB HOME'!H108").Interior.ColorIndex = 36 Then
var108 = Range("'KB HOME'!H108").Value
End If
If Range("'KB HOME'!H109").Interior.ColorIndex = 36 Then
var109 = Range("'KB HOME'!H109").Value
End If
If Range("'KB HOME'!H110").Interior.ColorIndex = 36 Then
var110 = Range("'KB HOME'!H110").Value
End If
If Range("'KB HOME'!H111").Interior.ColorIndex = 36 Then
var111 = Range("'KB HOME'!H111").Value
End If
If Range("'KB HOME'!H112").Interior.ColorIndex = 36 Then
var112 = Range("'KB HOME'!H112").Value
End If
If Range("'KB HOME'!H113").Interior.ColorIndex = 36 Then
var113 = Range("'KB HOME'!H113").Value
End If
If Range("'KB HOME'!H114").Interior.ColorIndex = 36 Then
var114 = Range("'KB HOME'!H114").Value
End If
If Range("'KB HOME'!H115").Interior.ColorIndex = 36 Then
var115 = Range("'KB HOME'!H115").Value
End If
If Range("'KB HOME'!H116").Interior.ColorIndex = 36 Then
var116 = Range("'KB HOME'!H116").Value
End If
If Range("'KB HOME'!H117").Interior.ColorIndex = 36 Then
var117 = Range("'KB HOME'!H117").Value
End If
If Range("'KB HOME'!H118").Interior.ColorIndex = 36 Then
var118 = Range("'KB HOME'!H118").Value
End If
If Range("'KB HOME'!H119").Interior.ColorIndex = 36 Then
var119 = Range("'KB HOME'!H119").Value
End If
If Range("'KB HOME'!H120").Interior.ColorIndex = 36 Then
var120 = Range("'KB HOME'!H120").Value
End If
If Range("'KB HOME'!H121").Interior.ColorIndex = 36 Then
var121 = Range("'KB HOME'!H121").Value
End If
If Range("'KB HOME'!H122").Interior.ColorIndex = 36 Then
var122 = Range("'KB HOME'!H122").Value
End If
If Range("'KB HOME'!H123").Interior.ColorIndex = 36 Then
var123 = Range("'KB HOME'!H123").Value
End If
If Range("'KB HOME'!H124").Interior.ColorIndex = 36 Then
var124 = Range("'KB HOME'!H124").Value
End If
If Range("'KB HOME'!H125").Interior.ColorIndex = 36 Then
var125 = Range("'KB HOME'!H125").Value
End If
If Range("'KB HOME'!H126").Interior.ColorIndex = 36 Then
var126 = Range("'KB HOME'!H126").Value
End If
If Range("'KB HOME'!H127").Interior.ColorIndex = 36 Then
var127 = Range("'KB HOME'!H127").Value
End If
If Range("'KB HOME'!H128").Interior.ColorIndex = 36 Then
var128 = Range("'KB HOME'!H128").Value
End If
If Range("'KB HOME'!H129").Interior.ColorIndex = 36 Then
var129 = Range("'KB HOME'!H129").Value
End If
If Range("'KB HOME'!H130").Interior.ColorIndex = 36 Then
var130 = Range("'KB HOME'!H130").Value
End If
If Range("'KB HOME'!H131").Interior.ColorIndex = 36 Then
var131 = Range("'KB HOME'!H131").Value
End If
If Range("'KB HOME'!H132").Interior.ColorIndex = 36 Then
var132 = Range("'KB HOME'!H132").Value
End If
If Range("'KB HOME'!H133").Interior.ColorIndex = 36 Then
var133 = Range("'KB HOME'!H133").Value
End If
If Range("'KB HOME'!H134").Interior.ColorIndex = 36 Then
var134 = Range("'KB HOME'!H134").Value
End If
If Range("'KB HOME'!H135").Interior.ColorIndex = 36 Then
var135 = Range("'KB HOME'!H135").Value
End If
If Range("'KB HOME'!H136").Interior.ColorIndex = 36 Then
var136 = Range("'KB HOME'!H136").Value
End If
If Range("'KB HOME'!H137").Interior.ColorIndex = 36 Then
var137 = Range("'KB HOME'!H137").Value
End If
If Range("'KB HOME'!H138").Interior.ColorIndex = 36 Then
var138 = Range("'KB HOME'!H138").Value
End If
If Range("'KB HOME'!H139").Interior.ColorIndex = 36 Then
var139 = Range("'KB HOME'!H139").Value
End If
If Range("'KB HOME'!H140").Interior.ColorIndex = 36 Then
var140 = Range("'KB HOME'!H140").Value
End If
If Range("'KB HOME'!H141").Interior.ColorIndex = 36 Then
var141 = Range("'KB HOME'!H141").Value
End If
If Range("'KB HOME'!H142").Interior.ColorIndex = 36 Then
var142 = Range("'KB HOME'!H142").Value
End If
If Range("'KB HOME'!H143").Interior.ColorIndex = 36 Then
var143 = Range("'KB HOME'!H143").Value
End If
If Range("'KB HOME'!H144").Interior.ColorIndex = 36 Then
var144 = Range("'KB HOME'!H144").Value
End If
If Range("'KB HOME'!H145").Interior.ColorIndex = 36 Then
var145 = Range("'KB HOME'!H145").Value
End If
If Range("'KB HOME'!H146").Interior.ColorIndex = 36 Then
var146 = Range("'KB HOME'!H146").Value
End If
If Range("'KB HOME'!H147").Interior.ColorIndex = 36 Then
var147 = Range("'KB HOME'!H147").Value
End If
If Range("'KB HOME'!H148").Interior.ColorIndex = 36 Then
var148 = Range("'KB HOME'!H148").Value
End If
If Range("'KB HOME'!H149").Interior.ColorIndex = 36 Then
var149 = Range("'KB HOME'!H149").Value
End If
If Range("'KB HOME'!H150").Interior.ColorIndex = 36 Then
var150 = Range("'KB HOME'!H150").Value
End If
If Range("'KB HOME'!H151").Interior.ColorIndex = 36 Then
var151 = Range("'KB HOME'!H151").Value
End If
If Range("'KB HOME'!H152").Interior.ColorIndex = 36 Then
var152 = Range("'KB HOME'!H152").Value
End If
If Range("'KB HOME'!H153").Interior.ColorIndex = 36 Then
var153 = Range("'KB HOME'!H153").Value
End If
If Range("'KB HOME'!H154").Interior.ColorIndex = 36 Then
var154 = Range("'KB HOME'!H154").Value
End If
If Range("'KB HOME'!H155").Interior.ColorIndex = 36 Then
var155 = Range("'KB HOME'!H155").Value
End If
If Range("'KB HOME'!H156").Interior.ColorIndex = 36 Then
var156 = Range("'KB HOME'!H156").Value
End If
If Range("'KB HOME'!H157").Interior.ColorIndex = 36 Then
var157 = Range("'KB HOME'!H157").Value
End If
If Range("'KB HOME'!H158").Interior.ColorIndex = 36 Then
var158 = Range("'KB HOME'!H158").Value
End If
If Range("'KB HOME'!H159").Interior.ColorIndex = 36 Then
var159 = Range("'KB HOME'!H159").Value
End If
If Range("'KB HOME'!H160").Interior.ColorIndex = 36 Then
var160 = Range("'KB HOME'!H160").Value
End If
If Range("'KB HOME'!H161").Interior.ColorIndex = 36 Then
var161 = Range("'KB HOME'!H161").Value
End If
If Range("'KB HOME'!H162").Interior.ColorIndex = 36 Then
var162 = Range("'KB HOME'!H162").Value
End If
If Range("'KB HOME'!H163").Interior.ColorIndex = 36 Then
var163 = Range("'KB HOME'!H163").Value
End If
If Range("'KB HOME'!H164").Interior.ColorIndex = 36 Then
var164 = Range("'KB HOME'!H164").Value
End If
If Range("'KB HOME'!H165").Interior.ColorIndex = 36 Then
var165 = Range("'KB HOME'!H165").Value
End If
If Range("'KB HOME'!H166").Interior.ColorIndex = 36 Then
var166 = Range("'KB HOME'!H166").Value
End If
If Range("'KB HOME'!H167").Interior.ColorIndex = 36 Then
var167 = Range("'KB HOME'!H167").Value
End If
If Range("'KB HOME'!H168").Interior.ColorIndex = 36 Then
var168 = Range("'KB HOME'!H168").Value
End If
If Range("'KB HOME'!H169").Interior.ColorIndex = 36 Then
var169 = Range("'KB HOME'!H169").Value
End If
If Range("'KB HOME'!H170").Interior.ColorIndex = 36 Then
var170 = Range("'KB HOME'!H170").Value
End If
If Range("'KB HOME'!H171").Interior.ColorIndex = 36 Then
var171 = Range("'KB HOME'!H171").Value
End If
If Range("'KB HOME'!H172").Interior.ColorIndex = 36 Then
var172 = Range("'KB HOME'!H172").Value
End If
If Range("'KB HOME'!H173").Interior.ColorIndex = 36 Then
var173 = Range("'KB HOME'!H173").Value
End If
If Range("'KB HOME'!H174").Interior.ColorIndex = 36 Then
var174 = Range("'KB HOME'!H174").Value
End If
If Range("'KB HOME'!H175").Interior.ColorIndex = 36 Then
var175 = Range("'KB HOME'!H175").Value
End If
If Range("'KB HOME'!H176").Interior.ColorIndex = 36 Then
var176 = Range("'KB HOME'!H176").Value
End If
If Range("'KB HOME'!H177").Interior.ColorIndex = 36 Then
var177 = Range("'KB HOME'!H177").Value
End If
If Range("'KB HOME'!H178").Interior.ColorIndex = 36 Then
var178 = Range("'KB HOME'!H178").Value
End If
If Range("'KB HOME'!H179").Interior.ColorIndex = 36 Then
var179 = Range("'KB HOME'!H179").Value
End If
If Range("'KB HOME'!H180").Interior.ColorIndex = 36 Then
var180 = Range("'KB HOME'!H180").Value
End If
If Range("'KB HOME'!H181").Interior.ColorIndex = 36 Then
var181 = Range("'KB HOME'!H181").Value
End If
If Range("'KB HOME'!H182").Interior.ColorIndex = 36 Then
var182 = Range("'KB HOME'!H182").Value
End If
If Range("'KB HOME'!H183").Interior.ColorIndex = 36 Then
var183 = Range("'KB HOME'!H183").Value
End If
If Range("'KB HOME'!H184").Interior.ColorIndex = 36 Then
var184 = Range("'KB HOME'!H184").Value
End If
If Range("'KB HOME'!H185").Interior.ColorIndex = 36 Then
var185 = Range("'KB HOME'!H185").Value
End If
If Range("'KB HOME'!H186").Interior.ColorIndex = 36 Then
var186 = Range("'KB HOME'!H186").Value
End If
If Range("'KB HOME'!H187").Interior.ColorIndex = 36 Then
var187 = Range("'KB HOME'!H187").Value
End If
If Range("'KB HOME'!H188").Interior.ColorIndex = 36 Then
var188 = Range("'KB HOME'!H188").Value
End If
If Range("'KB HOME'!H189").Interior.ColorIndex = 36 Then
var189 = Range("'KB HOME'!H189").Value
End If
If Range("'KB HOME'!H190").Interior.ColorIndex = 36 Then
var190 = Range("'KB HOME'!H190").Value
End If
If Range("'KB HOME'!H191").Interior.ColorIndex = 36 Then
var191 = Range("'KB HOME'!H191").Value
End If
If Range("'KB HOME'!H192").Interior.ColorIndex = 36 Then
var192 = Range("'KB HOME'!H192").Value
End If
If Range("'KB HOME'!H193").Interior.ColorIndex = 36 Then
var193 = Range("'KB HOME'!H193").Value
End If
If Range("'KB HOME'!H194").Interior.ColorIndex = 36 Then
var194 = Range("'KB HOME'!H194").Value
End If
If Range("'KB HOME'!H195").Interior.ColorIndex = 36 Then
var195 = Range("'KB HOME'!H195").Value
End If
If Range("'KB HOME'!H196").Interior.ColorIndex = 36 Then
var196 = Range("'KB HOME'!H196").Value
End If
If Range("'KB HOME'!H197").Interior.ColorIndex = 36 Then
var197 = Range("'KB HOME'!H197").Value
End If
If Range("'KB HOME'!H198").Interior.ColorIndex = 36 Then
var198 = Range("'KB HOME'!H198").Value
End If
If Range("'KB HOME'!H199").Interior.ColorIndex = 36 Then
var199 = Range("'KB HOME'!H199").Value
End If
If Range("'KB HOME'!H200").Interior.ColorIndex = 36 Then
var200 = Range("'KB HOME'!H200").Value
End If
If Range("'KB HOME'!H201").Interior.ColorIndex = 36 Then
var201 = Range("'KB HOME'!H201").Value
End If
If Range("'KB HOME'!H202").Interior.ColorIndex = 36 Then
var202 = Range("'KB HOME'!H202").Value
End If
If Range("'KB HOME'!H203").Interior.ColorIndex = 36 Then
var203 = Range("'KB HOME'!H203").Value
End If
If Range("'KB HOME'!H204").Interior.ColorIndex = 36 Then
var204 = Range("'KB HOME'!H204").Value
End If
If Range("'KB HOME'!H205").Interior.ColorIndex = 36 Then
var205 = Range("'KB HOME'!H205").Value
End If
If Range("'KB HOME'!H206").Interior.ColorIndex = 36 Then
var206 = Range("'KB HOME'!H206").Value
End If
If Range("'KB HOME'!H207").Interior.ColorIndex = 36 Then
var207 = Range("'KB HOME'!H207").Value
End If
If Range("'KB HOME'!H208").Interior.ColorIndex = 36 Then
var208 = Range("'KB HOME'!H208").Value
End If
If Range("'KB HOME'!H209").Interior.ColorIndex = 36 Then
var209 = Range("'KB HOME'!H209").Value
End If
If Range("'KB HOME'!H210").Interior.ColorIndex = 36 Then
var210 = Range("'KB HOME'!H210").Value
End If
If Range("'KB HOME'!H211").Interior.ColorIndex = 36 Then
var211 = Range("'KB HOME'!H211").Value
End If
If Range("'KB HOME'!H212").Interior.ColorIndex = 36 Then
var212 = Range("'KB HOME'!H212").Value
End If
If Range("'KB HOME'!H213").Interior.ColorIndex = 36 Then
var213 = Range("'KB HOME'!H213").Value
End If
If Range("'KB HOME'!H214").Interior.ColorIndex = 36 Then
var214 = Range("'KB HOME'!H214").Value
End If
If Range("'KB HOME'!H215").Interior.ColorIndex = 36 Then
var215 = Range("'KB HOME'!H215").Value
End If
If Range("'KB HOME'!H216").Interior.ColorIndex = 36 Then
var216 = Range("'KB HOME'!H216").Value
End If
If Range("'KB HOME'!H217").Interior.ColorIndex = 36 Then
var217 = Range("'KB HOME'!H217").Value
End If
If Range("'KB HOME'!H218").Interior.ColorIndex = 36 Then
var218 = Range("'KB HOME'!H218").Value
End If
If Range("'KB HOME'!H219").Interior.ColorIndex = 36 Then
var219 = Range("'KB HOME'!H219").Value
End If
If Range("'KB HOME'!H220").Interior.ColorIndex = 36 Then
var220 = Range("'KB HOME'!H220").Value
End If
If Range("'KB HOME'!H221").Interior.ColorIndex = 36 Then
var221 = Range("'KB HOME'!H221").Value
End If
If Range("'KB HOME'!H222").Interior.ColorIndex = 36 Then
var222 = Range("'KB HOME'!H222").Value
End If
If Range("'KB HOME'!H223").Interior.ColorIndex = 36 Then
var223 = Range("'KB HOME'!H223").Value
End If
If Range("'KB HOME'!H224").Interior.ColorIndex = 36 Then
var224 = Range("'KB HOME'!H224").Value
End If
If Range("'KB HOME'!H225").Interior.ColorIndex = 36 Then
var225 = Range("'KB HOME'!H225").Value
End If
If Range("'KB HOME'!H226").Interior.ColorIndex = 36 Then
var226 = Range("'KB HOME'!H226").Value
End If
If Range("'KB HOME'!H227").Interior.ColorIndex = 36 Then
var227 = Range("'KB HOME'!H227").Value
End If
If Range("'KB HOME'!H228").Interior.ColorIndex = 36 Then
var228 = Range("'KB HOME'!H228").Value
End If
If Range("'KB HOME'!H229").Interior.ColorIndex = 36 Then
var229 = Range("'KB HOME'!H229").Value
End If
If Range("'KB HOME'!H230").Interior.ColorIndex = 36 Then
var230 = Range("'KB HOME'!H230").Value
End If
If Range("'KB HOME'!H231").Interior.ColorIndex = 36 Then
var231 = Range("'KB HOME'!H231").Value
End If
If Range("'KB HOME'!H232").Interior.ColorIndex = 36 Then
var232 = Range("'KB HOME'!H232").Value
End If
If Range("'KB HOME'!H233").Interior.ColorIndex = 36 Then
var233 = Range("'KB HOME'!H233").Value
End If
If Range("'KB HOME'!H234").Interior.ColorIndex = 36 Then
var234 = Range("'KB HOME'!H234").Value
End If
If Range("'KB HOME'!H235").Interior.ColorIndex = 36 Then
var235 = Range("'KB HOME'!H235").Value
End If
If Range("'KB HOME'!H236").Interior.ColorIndex = 36 Then
var236 = Range("'KB HOME'!H236").Value
End If
If Range("'KB HOME'!H237").Interior.ColorIndex = 36 Then
var237 = Range("'KB HOME'!H237").Value
End If
If Range("'KB HOME'!H238").Interior.ColorIndex = 36 Then
var238 = Range("'KB HOME'!H238").Value
End If
If Range("'KB HOME'!H239").Interior.ColorIndex = 36 Then
var239 = Range("'KB HOME'!H239").Value
End If
If Range("'KB HOME'!H240").Interior.ColorIndex = 36 Then
var240 = Range("'KB HOME'!H240").Value
End If
If Range("'KB HOME'!H241").Interior.ColorIndex = 36 Then
var241 = Range("'KB HOME'!H241").Value
End If
If Range("'KB HOME'!H242").Interior.ColorIndex = 36 Then
var242 = Range("'KB HOME'!H242").Value
End If
If Range("'KB HOME'!H243").Interior.ColorIndex = 36 Then
var243 = Range("'KB HOME'!H243").Value
End If
If Range("'KB HOME'!H244").Interior.ColorIndex = 36 Then
var244 = Range("'KB HOME'!H244").Value
End If
If Range("'KB HOME'!H245").Interior.ColorIndex = 36 Then
var245 = Range("'KB HOME'!H245").Value
End If
If Range("'KB HOME'!H246").Interior.ColorIndex = 36 Then
var246 = Range("'KB HOME'!H246").Value
End If
If Range("'KB HOME'!H247").Interior.ColorIndex = 36 Then
var247 = Range("'KB HOME'!H247").Value
End If
If Range("'KB HOME'!H248").Interior.ColorIndex = 36 Then
var248 = Range("'KB HOME'!H248").Value
End If
If Range("'KB HOME'!H249").Interior.ColorIndex = 36 Then
var249 = Range("'KB HOME'!H249").Value
End If
If Range("'KB HOME'!H250").Interior.ColorIndex = 36 Then
var250 = Range("'KB HOME'!H250").Value
End If
If Range("'KB HOME'!H251").Interior.ColorIndex = 36 Then
var251 = Range("'KB HOME'!H251").Value
End If
If Range("'KB HOME'!H252").Interior.ColorIndex = 36 Then
var252 = Range("'KB HOME'!H252").Value
End If
If Range("'KB HOME'!H253").Interior.ColorIndex = 36 Then
var253 = Range("'KB HOME'!H253").Value
End If
If Range("'KB HOME'!H254").Interior.ColorIndex = 36 Then
var254 = Range("'KB HOME'!H254").Value
End If
If Range("'KB HOME'!H255").Interior.ColorIndex = 36 Then
var255 = Range("'KB HOME'!H255").Value
End If
If Range("'KB HOME'!H256").Interior.ColorIndex = 36 Then
var256 = Range("'KB HOME'!H256").Value
End If
If Range("'KB HOME'!H257").Interior.ColorIndex = 36 Then
var257 = Range("'KB HOME'!H257").Value
End If
If Range("'KB HOME'!H258").Interior.ColorIndex = 36 Then
var258 = Range("'KB HOME'!H258").Value
End If
If Range("'KB HOME'!H259").Interior.ColorIndex = 36 Then
var259 = Range("'KB HOME'!H259").Value
End If
If Range("'KB HOME'!H260").Interior.ColorIndex = 36 Then
var260 = Range("'KB HOME'!H260").Value
End If
If Range("'KB HOME'!H261").Interior.ColorIndex = 36 Then
var261 = Range("'KB HOME'!H261").Value
End If
If Range("'KB HOME'!H262").Interior.ColorIndex = 36 Then
var262 = Range("'KB HOME'!H262").Value
End If
If Range("'KB HOME'!H263").Interior.ColorIndex = 36 Then
var263 = Range("'KB HOME'!H263").Value
End If
If Range("'KB HOME'!H264").Interior.ColorIndex = 36 Then
var264 = Range("'KB HOME'!H264").Value
End If
If Range("'KB HOME'!H265").Interior.ColorIndex = 36 Then
var265 = Range("'KB HOME'!H265").Value
End If
If Range("'KB HOME'!H266").Interior.ColorIndex = 36 Then
var266 = Range("'KB HOME'!H266").Value
End If
If Range("'KB HOME'!H267").Interior.ColorIndex = 36 Then
var267 = Range("'KB HOME'!H267").Value
End If
If Range("'KB HOME'!H268").Interior.ColorIndex = 36 Then
var268 = Range("'KB HOME'!H268").Value
End If
If Range("'KB HOME'!H269").Interior.ColorIndex = 36 Then
var269 = Range("'KB HOME'!H269").Value
End If
If Range("'KB HOME'!H270").Interior.ColorIndex = 36 Then
var270 = Range("'KB HOME'!H270").Value
End If
If Range("'KB HOME'!H271").Interior.ColorIndex = 36 Then
var271 = Range("'KB HOME'!H271").Value
End If
If Range("'KB HOME'!H272").Interior.ColorIndex = 36 Then
var272 = Range("'KB HOME'!H272").Value
End If
If Range("'KB HOME'!H273").Interior.ColorIndex = 36 Then
var273 = Range("'KB HOME'!H273").Value
End If
If Range("'KB HOME'!H274").Interior.ColorIndex = 36 Then
var274 = Range("'KB HOME'!H274").Value
End If
If Range("'KB HOME'!H275").Interior.ColorIndex = 36 Then
var275 = Range("'KB HOME'!H275").Value
End If
If Range("'KB HOME'!H276").Interior.ColorIndex = 36 Then
var276 = Range("'KB HOME'!H276").Value
End If
If Range("'KB HOME'!H277").Interior.ColorIndex = 36 Then
var277 = Range("'KB HOME'!H277").Value
End If
If Range("'KB HOME'!H278").Interior.ColorIndex = 36 Then
var278 = Range("'KB HOME'!H278").Value
End If
If Range("'KB HOME'!H279").Interior.ColorIndex = 36 Then
var279 = Range("'KB HOME'!H279").Value
End If
If Range("'KB HOME'!H280").Interior.ColorIndex = 36 Then
var280 = Range("'KB HOME'!H280").Value
End If
If Range("'KB HOME'!H281").Interior.ColorIndex = 36 Then
var281 = Range("'KB HOME'!H281").Value
End If
If Range("'KB HOME'!H282").Interior.ColorIndex = 36 Then
var282 = Range("'KB HOME'!H282").Value
End If
If Range("'KB HOME'!H283").Interior.ColorIndex = 36 Then
var283 = Range("'KB HOME'!H283").Value
End If
If Range("'KB HOME'!H284").Interior.ColorIndex = 36 Then
var284 = Range("'KB HOME'!H284").Value
End If
If Range("'KB HOME'!H285").Interior.ColorIndex = 36 Then
var285 = Range("'KB HOME'!H285").Value
End If
If Range("'KB HOME'!H286").Interior.ColorIndex = 36 Then
var286 = Range("'KB HOME'!H286").Value
End If
If Range("'KB HOME'!H287").Interior.ColorIndex = 36 Then
var287 = Range("'KB HOME'!H287").Value
End If
If Range("'KB HOME'!H288").Interior.ColorIndex = 36 Then
var288 = Range("'KB HOME'!H288").Value
End If
If Range("'KB HOME'!H289").Interior.ColorIndex = 36 Then
var289 = Range("'KB HOME'!H289").Value
End If
If Range("'KB HOME'!H290").Interior.ColorIndex = 36 Then
var290 = Range("'KB HOME'!H290").Value
End If
If Range("'KB HOME'!H291").Interior.ColorIndex = 36 Then
var291 = Range("'KB HOME'!H291").Value
End If
If Range("'KB HOME'!H292").Interior.ColorIndex = 36 Then
var292 = Range("'KB HOME'!H292").Value
End If
If Range("'KB HOME'!H293").Interior.ColorIndex = 36 Then
var293 = Range("'KB HOME'!H293").Value
End If
If Range("'KB HOME'!H294").Interior.ColorIndex = 36 Then
var294 = Range("'KB HOME'!H294").Value
End If
If Range("'KB HOME'!H295").Interior.ColorIndex = 36 Then
var295 = Range("'KB HOME'!H295").Value
End If
If Range("'KB HOME'!H296").Interior.ColorIndex = 36 Then
var296 = Range("'KB HOME'!H296").Value
End If
If Range("'KB HOME'!H297").Interior.ColorIndex = 36 Then
var297 = Range("'KB HOME'!H297").Value
End If
If Range("'KB HOME'!H298").Interior.ColorIndex = 36 Then
var298 = Range("'KB HOME'!H298").Value
End If
If Range("'KB HOME'!H299").Interior.ColorIndex = 36 Then
var299 = Range("'KB HOME'!H299").Value
End If
If Range("'KB HOME'!H300").Interior.ColorIndex = 36 Then
var300 = Range("'KB HOME'!H300").Value
End If
If Range("'KB HOME'!H301").Interior.ColorIndex = 36 Then
var301 = Range("'KB HOME'!H301").Value
End If
If Range("'KB HOME'!H302").Interior.ColorIndex = 36 Then
var302 = Range("'KB HOME'!H302").Value
End If
If Range("'KB HOME'!H303").Interior.ColorIndex = 36 Then
var303 = Range("'KB HOME'!H303").Value
End If
If Range("'KB HOME'!H304").Interior.ColorIndex = 36 Then
var304 = Range("'KB HOME'!H304").Value
End If
If Range("'KB HOME'!H305").Interior.ColorIndex = 36 Then
var305 = Range("'KB HOME'!H305").Value
End If
If Range("'KB HOME'!H306").Interior.ColorIndex = 36 Then
var306 = Range("'KB HOME'!H306").Value
End If
If Range("'KB HOME'!H307").Interior.ColorIndex = 36 Then
var307 = Range("'KB HOME'!H307").Value
End If
If Range("'KB HOME'!H308").Interior.ColorIndex = 36 Then
var308 = Range("'KB HOME'!H308").Value
End If
If Range("'KB HOME'!H309").Interior.ColorIndex = 36 Then
var309 = Range("'KB HOME'!H309").Value
End If
If Range("'KB HOME'!H310").Interior.ColorIndex = 36 Then
var310 = Range("'KB HOME'!H310").Value
End If
If Range("'KB HOME'!H311").Interior.ColorIndex = 36 Then
var311 = Range("'KB HOME'!H311").Value
End If
If Range("'KB HOME'!H312").Interior.ColorIndex = 36 Then
var312 = Range("'KB HOME'!H312").Value
End If
If Range("'KB HOME'!H313").Interior.ColorIndex = 36 Then
var313 = Range("'KB HOME'!H313").Value
End If
If Range("'KB HOME'!H314").Interior.ColorIndex = 36 Then
var314 = Range("'KB HOME'!H314").Value
End If
If Range("'KB HOME'!H315").Interior.ColorIndex = 36 Then
var315 = Range("c'KB HOME'H315").Value
End If
If Range("'KB HOME'!H316").Interior.ColorIndex = 36 Then
var316 = Range("'KB HOME'!H316").Value
End If
If Range("'KB HOME'!H317").Interior.ColorIndex = 36 Then
var317 = Range("'KB HOME'!H317").Value
End If
If Range("'KB HOME'!H318").Interior.ColorIndex = 36 Then
var318 = Range("'KB HOME'!H318").Value
End If
If Range("'KB HOME'!H319").Interior.ColorIndex = 36 Then
var319 = Range("'KB HOME'!H319").Value
End If
If Range("'KB HOME'!H320").Interior.ColorIndex = 36 Then
var320 = Range("'KB HOME'!H320").Value
End If
If Range("'KB HOME'!H321").Interior.ColorIndex = 36 Then
var321 = Range("'KB HOME'!H321").Value
End If
If Range("'KB HOME'!H322").Interior.ColorIndex = 36 Then
var322 = Range("'KB HOME'!H322").Value
End If
If Range("'KB HOME'!H323").Interior.ColorIndex = 36 Then
var323 = Range("'KB HOME'!H323").Value
End If
If Range("'KB HOME'!H324").Interior.ColorIndex = 36 Then
var324 = Range("'KB HOME'!H324").Value
End If
If Range("'KB HOME'!H325").Interior.ColorIndex = 36 Then
var325 = Range("'KB HOME'!H325").Value
End If
If Range("'KB HOME'!H326").Interior.ColorIndex = 36 Then
var326 = Range("'KB HOME'!H326").Value
End If
If Range("'KB HOME'!H327").Interior.ColorIndex = 36 Then
var327 = Range("'KB HOME'!H327").Value
End If
If Range("'KB HOME'!H328").Interior.ColorIndex = 36 Then
var328 = Range("'KB HOME'!H328").Value
End If
If Range("'KB HOME'!H329").Interior.ColorIndex = 36 Then
var329 = Range("'KB HOME'!H329").Value
End If
If Range("'KB HOME'!H330").Interior.ColorIndex = 36 Then
var330 = Range("'KB HOME'!H130").Value
End If
If Range("'KB HOME'!H331").Interior.ColorIndex = 36 Then
var331 = Range("'KB HOME'!H331").Value
End If
If Range("'KB HOME'!H332").Interior.ColorIndex = 36 Then
var332 = Range("'KB HOME'!H332").Value
End If
If Range("'KB HOME'!H333").Interior.ColorIndex = 36 Then
var333 = Range("'KB HOME'!H333").Value
End If
If Range("'KB HOME'!H334").Interior.ColorIndex = 36 Then
var334 = Range("'KB HOME'!H334").Value
End If
If Range("'KB HOME'!H335").Interior.ColorIndex = 36 Then
var335 = Range("'KB HOME'!H335").Value
End If
If Range("'KB HOME'!H336").Interior.ColorIndex = 36 Then
var336 = Range("'KB HOME'!H336").Value
End If
If Range("'KB HOME'!H337").Interior.ColorIndex = 36 Then
var337 = Range("'KB HOME'!H337").Value
End If
If Range("'KB HOME'!H338").Interior.ColorIndex = 36 Then
var338 = Range("'KB HOME'!H338").Value
End If
If Range("'KB HOME'!H339").Interior.ColorIndex = 36 Then
var339 = Range("'KB HOME'!H339").Value
End If
If Range("'KB HOME'!H340").Interior.ColorIndex = 36 Then
var340 = Range("'KB HOME'!H340").Value
End If
If Range("'KB HOME'!H341").Interior.ColorIndex = 36 Then
var341 = Range("'KB HOME'!H341").Value
End If
If Range("'KB HOME'!H342").Interior.ColorIndex = 36 Then
var342 = Range("'KB HOME'!H342").Value
End If
If Range("'KB HOME'!H343").Interior.ColorIndex = 36 Then
var343 = Range("'KB HOME'!H343").Value
End If
If Range("'KB HOME'!H344").Interior.ColorIndex = 36 Then
var344 = Range("'KB HOME'!H344").Value
End If
If Range("'KB HOME'!H345").Interior.ColorIndex = 36 Then
var345 = Range("'KB HOME'!H345").Value
End If
If Range("'KB HOME'!H346").Interior.ColorIndex = 36 Then
var346 = Range("'KB HOME'!H346").Value
End If
If Range("'KB HOME'!H347").Interior.ColorIndex = 36 Then
var347 = Range("'KB HOME'!H347").Value
End If
If Range("'KB HOME'!H348").Interior.ColorIndex = 36 Then
var348 = Range("'KB HOME'!H348").Value
End If
If Range("'KB HOME'!H349").Interior.ColorIndex = 36 Then
var349 = Range("'KB HOME'!H349").Value
End If
If Range("'KB HOME'!H350").Interior.ColorIndex = 36 Then
var350 = Range("'KB HOME'!H350").Value
End If
If Range("'KB HOME'!H351").Interior.ColorIndex = 36 Then
var351 = Range("'KB HOME'!H351").Value
End If
If Range("'KB HOME'!H352").Interior.ColorIndex = 36 Then
var352 = Range("'KB HOME'!H352").Value
End If
If Range("'KB HOME'!H353").Interior.ColorIndex = 36 Then
var353 = Range("'KB HOME'!H353").Value
End If
If Range("'KB HOME'!H354").Interior.ColorIndex = 36 Then
var354 = Range("'KB HOME'!H354").Value
End If
If Range("'KB HOME'!H355").Interior.ColorIndex = 36 Then
var355 = Range("'KB HOME'!H355").Value
End If
If Range("'KB HOME'!H356").Interior.ColorIndex = 36 Then
var356 = Range("'KB HOME'!H356").Value
End If
If Range("'KB HOME'!H357").Interior.ColorIndex = 36 Then
var357 = Range("'KB HOME'!H357").Value
End If
If Range("'KB HOME'!H358").Interior.ColorIndex = 36 Then
var358 = Range("'KB HOME'!H358").Value
End If
If Range("'KB HOME'!H359").Interior.ColorIndex = 36 Then
var359 = Range("'KB HOME'!H359").Value
End If
If Range("'KB HOME'!H360").Interior.ColorIndex = 36 Then
var360 = Range("'KB HOME'!H360").Value
End If
If Range("'KB HOME'!H361").Interior.ColorIndex = 36 Then
var361 = Range("'KB HOME'!H361").Value
End If
If Range("'KB HOME'!H362").Interior.ColorIndex = 36 Then
var362 = Range("'KB HOME'!H362").Value
End If
If Range("'KB HOME'!H363").Interior.ColorIndex = 36 Then
var363 = Range("'KB HOME'!H363").Value
End If
If Range("'KB HOME'!H364").Interior.ColorIndex = 36 Then
var364 = Range("'KB HOME'!H364").Value
End If
If Range("'KB HOME'!H365").Interior.ColorIndex = 36 Then
var365 = Range("'KB HOME'!H365").Value
End If
If Range("'KB HOME'!H366").Interior.ColorIndex = 36 Then
var366 = Range("'KB HOME'!H366").Value
End If
If Range("'KB HOME'!H367").Interior.ColorIndex = 36 Then
var367 = Range("'KB HOME'!H367").Value
End If
If Range("'KB HOME'!H368").Interior.ColorIndex = 36 Then
var368 = Range("'KB HOME'!H368").Value
End If
If Range("'KB HOME'!H369").Interior.ColorIndex = 36 Then
var369 = Range("'KB HOME'!H369").Value
End If
If Range("'KB HOME'!H370").Interior.ColorIndex = 36 Then
var370 = Range("'KB HOME'!H370").Value
End If
If Range("'KB HOME'!H371").Interior.ColorIndex = 36 Then
var371 = Range("'KB HOME'!H371").Value
End If
If Range("'KB HOME'!H372").Interior.ColorIndex = 36 Then
var372 = Range("'KB HOME'!H372").Value
End If
If Range("'KB HOME'!H373").Interior.ColorIndex = 36 Then
var373 = Range("'KB HOME'!H373").Value
End If
If Range("'KB HOME'!H374").Interior.ColorIndex = 36 Then
var374 = Range("'KB HOME'!H374").Value
End If
If Range("'KB HOME'!H375").Interior.ColorIndex = 36 Then
var375 = Range("'KB HOME'!H375").Value
End If
If Range("'KB HOME'!H376").Interior.ColorIndex = 36 Then
var376 = Range("'KB HOME'!H376").Value
End If
If Range("'KB HOME'!H377").Interior.ColorIndex = 36 Then
var377 = Range("'KB HOME'!H377").Value
End If
If Range("'KB HOME'!H378").Interior.ColorIndex = 36 Then
var378 = Range("'KB HOME'!H378").Value
End If
If Range("'KB HOME'!H379").Interior.ColorIndex = 36 Then
var379 = Range("'KB HOME'!H379").Value
End If
If Range("'KB HOME'!H380").Interior.ColorIndex = 36 Then
var380 = Range("'KB HOME'!H380").Value
End If
If Range("'KB HOME'!H381").Interior.ColorIndex = 36 Then
var381 = Range("'KB HOME'!H381").Value
End If
If Range("'KB HOME'!H382").Interior.ColorIndex = 36 Then
var382 = Range("'KB HOME'!H382").Value
End If
If Range("'KB HOME'!H383").Interior.ColorIndex = 36 Then
var383 = Range("'KB HOME'!H383").Value
End If
If Range("'KB HOME'!H384").Interior.ColorIndex = 36 Then
var384 = Range("'KB HOME'!H384").Value
End If
If Range("'KB HOME'!H385").Interior.ColorIndex = 36 Then
var385 = Range("'KB HOME'!H385").Value
End If
If Range("'KB HOME'!H386").Interior.ColorIndex = 36 Then
var386 = Range("'KB HOME'!H386").Value
End If
If Range("'KB HOME'!H387").Interior.ColorIndex = 36 Then
var387 = Range("'KB HOME'!H387").Value
End If
If Range("'KB HOME'!H388").Interior.ColorIndex = 36 Then
var388 = Range("'KB HOME'!H388").Value
End If
If Range("'KB HOME'!H389").Interior.ColorIndex = 36 Then
var389 = Range("'KB HOME'!H389").Value
End If
If Range("'KB HOME'!H390").Interior.ColorIndex = 36 Then
var390 = Range("'KB HOME'!H390").Value
End If
If Range("'KB HOME'!H391").Interior.ColorIndex = 36 Then
var391 = Range("'KB HOME'!H391").Value
End If
If Range("'KB HOME'!H392").Interior.ColorIndex = 36 Then
var392 = Range("'KB HOME'!H392").Value
End If
If Range("'KB HOME'!H393").Interior.ColorIndex = 36 Then
var393 = Range("'KB HOME'!H393").Value
End If
If Range("'KB HOME'!H394").Interior.ColorIndex = 36 Then
var394 = Range("'KB HOME'!H394").Value
End If
If Range("'KB HOME'!H395").Interior.ColorIndex = 36 Then
var395 = Range("'KB HOME'!H395").Value
End If
If Range("'KB HOME'!H396").Interior.ColorIndex = 36 Then
var396 = Range("'KB HOME'!H396").Value
End If
If Range("'KB HOME'!H397").Interior.ColorIndex = 36 Then
var397 = Range("'KB HOME'!H397").Value
End If
If Range("'KB HOME'!H398").Interior.ColorIndex = 36 Then
var398 = Range("'KB HOME'!H398").Value
End If
If Range("'KB HOME'!H399").Interior.ColorIndex = 36 Then
var399 = Range("'KB HOME'!H399").Value
End If
If Range("'KB HOME'!H400").Interior.ColorIndex = 36 Then
var400 = Range("'KB HOME'!H400").Value
End If




semi1 = var1 + var2 + var3 + var4 + var5 + var6 + var7 + var8 + var9 + var10 + var11 + var12 + var13 + var14 + var15 + var16 + var17 + var18 + var19 + var20 + var21 + var22 + var23 + var24 + var25 + var26 + var27 + var28 + var29 + var30 + var31 + var32 + var33 + var34 + var35 + var36 + var37 + var38 + var39 + var40 + var41 + var42 + var43 + var44 + var45 + var46 + var47 + var48 + var49 + var50
semi2 = var51 + var52 + var53 + var54 + var55 + var56 + var57 + var58 + var59 + var60 + var61 + var62 + var63 + var64 + var65 + var66 + var67 + var68 + var69 + var70 + var71 + var72 + var73 + var74 + var75 + var76 + var77 + var78 + var79 + var80 + var81 + var82 + var83 + var84 + var85 + var86 + var87 + var88 + var89 + var90 + var91 + var92 + var93 + var94 + var95 + var96 + var97 + var98 + var99 + var100
semi3 = var101 + var102 + var103 + var104 + var105 + var106 + var107 + var108 + var109 + var110 + var111 + var112 + var113 + var114 + var115 + var116 + var117 + var118 + var119 + var120 + var121 + var122 + var123 + var124 + var125 + var126 + var127 + var128 + var129 + var130 + var131 + var132 + var133 + var134 + var135 + var136 + var137 + var138 + var139 + var140 + var141 + var142 + var143 + var144 + var145 + var146 + var147 + var148 + var149 + var150
semi4 = var151 + var152 + var153 + var154 + var155 + var156 + var157 + var158 + var159 + var160 + var161 + var162 + var163 + var164 + var165 + var166 + var167 + var168 + var169 + var170 + var171 + var172 + var173 + var174 + var175 + var176 + var177 + var178 + var179 + var180 + var181 + var182 + var183 + var184 + var185 + var186 + var187 + var188 + var189 + var190 + var191 + var192 + var193 + var194 + var195 + var196 + var197 + var198 + var199 + var200
semi5 = var201 + var202 + var203 + var204 + var205 + var206 + var207 + var208 + var209 + var210 + var211 + var212 + var213 + var214 + var215 + var216 + var217 + var218 + var219 + var220 + var221 + var222 + var223 + var224 + var225 + var226 + var227 + var228 + var229 + var230 + var231 + var232 + var233 + var234 + var235 + var236 + var237 + var238 + var239 + var240 + var241 + var242 + var243 + var244 + var245 + var246 + var247 + var248 + var249 + var250
semi6 = var251 + var252 + var253 + var254 + var255 + var256 + var257 + var258 + var259 + var260 + var261 + var262 + var263 + var264 + var265 + var266 + var267 + var268 + var269 + var270 + var271 + var272 + var273 + var274 + var275 + var276 + var277 + var278 + var279 + var280 + var281 + var282 + var283 + var284 + var285 + var286 + var287 + var288 + var289 + var290 + var291 + var292 + var293 + var294 + var295 + var296 + var297 + var298 + var299 + var300
semi7 = var301 + var302 + var303 + var304 + var305 + var306 + var307 + var308 + var309 + var310 + var311 + var312 + var313 + var314 + var315 + var316 + var317 + var318 + var319 + var320 + var321 + var322 + var323 + var324 + var325 + var326 + var327 + var328 + var329 + var330 + var331 + var332 + var333 + var334 + var335 + var336 + var337 + var338 + var339 + var340 + var341 + var342 + var343 + var344 + var345 + var346 + var347 + var348 + var349 + var350
semi8 = var351 + var352 + var353 + var354 + var355 + var356 + var357 + var358 + var359 + var360 + var361 + var362 + var363 + var364 + var365 + var366 + var367 + var368 + var369 + var370 + var371 + var372 + var373 + var374 + var375 + var376 + var377 + var378 + var379 + var380 + var381 + var382 + var383 + var384 + var385 + var386 + var387 + var388 + var389 + var390 + var391 + var392 + var393 + var394 + var395 + var396 + var397 + var398 + var399 + var400

Range("'RECAP'!B4") = semi1 + semi2 + semi3 + semi4 + semi5 + semi6 + semi7 + semi8


End Sub

I have this code written for twice for each month, so as you can see it is very long, and i need it for 5 sheets
 
Upvote 0
David

There is no need for all that code.
Code: 
Sub KBJAN1LATH()
Dim I As Long
Dim semi

    For I = 1 To 400
        If Range("'KB HOME'!H" & I).Interior.ColorIndex = 36 Then
            semi = semi + Range("'KB HOME'!H" & I).Value
        End If
    Next I
    Range("'RECAP'!B4") = semi

End Sub
 
Upvote 0
David

Yes there is.

Can you explain further?

Oh, and please turn off the CAPS LOCK, it's the equivalent of shouting.:)
 
Upvote 0
Sorry,

The code you gave me was to add the total lath volume for the month of Jan. I've use that to also do the stucco for Jan, so this will be used equally for every month each with the colorindex being different. also this is for
only one builder. Was hoping that I could have one button assigned to run all the subs for the year.
I hope this help, I think I've confused myself trying to explain
 
Upvote 0
You must log in or register to reply here.

Similar threads

C
  • Solved
The method for using a cell value for a variable cell position - VBA
Replies
5
Views
2K
Charles_P
C
A
  • Question Question
Calculations in vba
Replies
2
Views
446
AnneM
A
A
  • Question Question
scatter graph (text y-axis)
Replies
1
Views
576
Gerald Higgins
Gerald Higgins
R
  • Question Question
vlookup process via VBA taking more time for result
Replies
3
Views
603
StephenCrump
S
T
  • Question Question
data manipulation (complex I think)
Replies
2
Views
409
twine_foo
T

Forum statistics

Threads
1,224,603
Messages
6,179,850
Members
452,948
Latest member
UsmanAli786

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top