excel - Hiding columns based upon cell value -


i not sure why code not working. intended recognise when press button (saying "hide1") , search through each column, row row, looking cells have value 1 once this, should change button "show 1". however, when run it, nothing happens.

here macro excel:

sub hide_columns()  dim integer dim j integer  = 3 j = 4  until = 26     until j = 54         activesheet.cells(i, j)             if .value = 1                 activesheet.columns(i).entirecolumn.hidden = true                 activesheet.shapes(application.caller).textframe.characters                     if .text = "show 1"                         .text = "hide 1"                     elseif .text = "hide 1"                         .text = "show 1"                     else                         msgbox ("vba has gone wrong.")                         exit sub                     end if                 end             end if         end         j = j + 1     loop     = + 1 loop  end sub

you must re-structure inner loop:

sub hide_columns()  dim integer dim j integer  = 3  until = 26     j = 4     until j = 54         activesheet.cells(i, j)             if .value = 1             msgbox & vbcrlf & j                 activesheet.columns(i).entirecolumn.hidden = true                 activesheet.shapes(application.caller).textframe.characters                     if .text = "show 1"                         .text = "hide 1"                     elseif .text = "hide 1"                         .text = "show 1"                     else                         msgbox ("vba has gone wrong.")                         exit sub                     end if                 end             end if         end         j = j + 1     loop     = + 1 loop end sub

explanation: first time through outer loop (for column a), row number, j, starts @ 4 , loops until it's 54. second time through outer loop (for column b), j still stuck @ 54, no rows in column b checked. fix this, reset j 4 each time move new column, shown above.


Comments

Post a Comment

Popular posts from this blog

toolbar - How to add link to user registration inside toobar in admin joomla 3 custom component -

im trying write component admin side , need add user creation. dont want duplicate existing codes add link. know how add task not simple link toolbar. thx help. if wanting button opens new user screen can try in component: $bar = jtoolbar::getinstance('toolbar'); $bar->appendbutton('link', 'users', 'new user','index.php?option=com_users&task=user.add'); you need add view.html.php file wherever you're creating toolbar. is need?
Read more

linux - disk space limitation when creating war file -

i have 1 gb disk space limitation hosting app , have used 700mb of it. however want create war file directory big (around 600mb) using command : jar -cvf root.war folderpath that's why encounter quota limitation , can't following. i'm looking way delete folder content when it's applying archive conserve disk space take note can't install zip tool in ssh shell ~ the code works on test directories, test first anyway, deletes files. it's not efficient. assumptions: 300mb free space, in destructively compress 600mb folderpath directory. none of files big -- if file in folderpath 300mb or larger, fail. notes: if ' $out ' file exists, nothing. first find pipes file list while , if ' $out ' doesn't exist in loop, create it, don't update -- if does exist, update it. each pass adds 1 more file, deletes unless file directory. after loop finishes delete empty directories too. unset u ; in=folderpath ; out=roo...
Read more