VBA in Excel Run-time error '91': Object variable or With block variable not set -


i'm new vba , i'm using colour code graph based on values. when step through code works, when try , run end-to-end error. appreciated.

the program stops @ "for = 1 activechart.seriescollection.count activechart.seriescollection(i)" error!!!

sub updchartcolours()     dim long      dim num1 integer     dim num2 integer     dim num3 integer     dim num4 integer     dim num5 integer     dim num6 integer       num1 = sheet1.cells.item(19, "e").value     num2 = sheet1.cells.item(21, "e").value     num3 = sheet1.cells.item(23, "e").value     num4 = sheet1.cells.item(25, "e").value     num5 = sheet1.cells.item(27, "e").value     num6 = sheet1.cells.item(29, "e").value         = 1 activechart.seriescollection.count         activechart.seriescollection(i)               if = 1 , num1 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 1 , num1 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 1 , num1 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 1 , num1 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 1 , num1 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 1 , num1 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 1 , num1 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 1 , num1 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 1 , num1 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 1 , num1 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 1 , num1 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 1 , num1 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 1 , num1 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 1 , num1 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 1 , num1 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 1 , num1 = 16                 .interior.color = rgb(0, 255, 30)              end if              if = 3 , num2 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 3 , num2 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 3 , num2 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 3 , num2 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 3 , num2 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 3 , num2 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 3 , num2 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 3 , num2 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 3 , num2 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 3 , num2 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 3 , num2 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 3 , num2 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 3 , num2 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 3 , num2 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 3 , num2 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 3 , num2 = 16                 .interior.color = rgb(0, 255, 30)              end if              if = 5 , num3 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 5 , num3 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 5 , num3 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 5 , num3 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 5 , num3 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 5 , num3 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 5 , num3 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 5 , num3 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 5 , num3 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 5 , num3 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 5 , num3 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 5 , num3 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 5 , num3 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 5 , num3 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 5 , num3 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 5 , num3 = 16                 .interior.color = rgb(0, 255, 30)              end if              if = 7 , num4 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 7 , num4 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 7 , num4 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 7 , num4 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 7 , num4 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 7 , num4 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 7 , num4 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 7 , num4 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 7 , num4 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 7 , num4 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 7 , num4 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 7 , num4 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 7 , num4 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 7 , num4 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 7 , num4 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 7 , num4 = 16                 .interior.color = rgb(0, 255, 30)              end if              if = 9 , num5 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 9 , num5 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 9 , num5 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 9 , num5 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 9 , num5 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 9 , num5 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 9 , num5 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 9 , num5 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 9 , num5 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 9 , num5 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 9 , num5 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 9 , num5 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 9 , num5 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 9 , num5 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 9 , num5 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 9 , num5 = 16                 .interior.color = rgb(0, 255, 30)              end if               if = 11 , num6 = 1                 .interior.color = rgb(255, 0, 0)             elseif = 11 , num6 = 2                 .interior.color = rgb(255, 30, 0)             elseif = 11 , num6 = 3                 .interior.color = rgb(255, 95, 0)             elseif = 11 , num6 = 4                 .interior.color = rgb(255, 145, 0)             elseif = 11 , num6 = 5                 .interior.color = rgb(255, 190, 0)             elseif = 11 , num6 = 6                 .interior.color = rgb(255, 215, 0)             elseif = 11 , num6 = 7                 .interior.color = rgb(255, 230, 0)             elseif = 11 , num6 = 8                 .interior.color = rgb(255, 255, 0)             elseif = 11 , num6 = 9                 .interior.color = rgb(200, 255, 0)             elseif = 11 , num6 = 10                 .interior.color = rgb(170, 255, 0)             elseif = 11 , num6 = 11                 .interior.color = rgb(140, 255, 0)             elseif = 11 , num6 = 12                 .interior.color = rgb(110, 255, 0)             elseif = 11 , num6 = 13                 .interior.color = rgb(80, 255, 0)             elseif = 11 , num6 = 14                 .interior.color = rgb(20, 255, 0)             elseif = 11 , num6 = 15                 .interior.color = rgb(0, 255, 0)             elseif = 11 , num6 = 16                 .interior.color = rgb(0, 255, 30)              end if           end     next end sub 

sorry form english, need nest if , use select case this:

    select case     case = 1         select case num1             case = 1                 .interior.color = rgb(255, 0, 0)             case = 2                 .interior.color = rgb(255, 95, 0)             case = 3             '... insert cases num1          end select     case = 3         select case num1             case = 1                 .interior.color = rgb(255, 0, 0)             case = 2                 .interior.color = rgb(255, 30, 0)             case = 3             '... insert cases num1         end select     case = 3     '... insert cases , on end select 

otherwise further synthesis you'll need algorithm generating colour codes starting input data (but think complex)


Comments

Popular posts from this blog

matlab - "Contour not rendered for non-finite ZData" -

delphi - Indy UDP Read Contents of Adata -

javascript - Any ideas when Firefox is likely to implement lengthAdjust and textLength? -