Hide/Unhide groups of cells in excel with Button -


i have group of cells b32 till r32 length , b32 b51 breadth. want keep block hidden @ start when sheet opened. have named block 'analysis'.

there button in sheet. when button pressed, want unhide block. new excel vba. know syntax/code doing operation.

thanks in advance.

ananda

you cant hide area mattcrum has mentioned.
have 3 choices far concerned

now, make sure have something(data - not empty cells) in range 32:51 , main sheet either called sheet1 or change sheet1 in code suit worksheets name

1) in vbe ( visual basic editor ) double click thisworkbook in project explorer , paste code

private sub workbook_open()     thisworkbook.sheets("sheet1").rows(32 & ":" & 51).hidden = true end sub

right click on folder modules , insert new module, paste code

sub unhide()     thisworkbook.sheets("sheet1").rows(32 & ":" & 51).hidden = false end sub

now, add button on spreadsheet, right click , assign macro called unhide it.

save changes , save workbook *.xlsm file

notice when open workbook now, rows 32 51 hidden. clicking button unhide them.

2) can change font color white "hide" contents.

follow step 1, , replace

thisworkbook.sheets("sheet1").rows(32 & ":" & 51).hidden = true

with 

thisworkbook.sheets("sheet1").range("b32:r51").font.color = rgb(255, 255, 255)

and code in module ( unhide subroutine )with 

thisworkbook.sheets("sheet1").range("b32:r51").font.color = rgb(0, 0, 0)

now, works similar step 1 except "hiding"(changing) font color instead of hiding rows. not great approach, if works cool

3) follow step 1 , replace code under thisworkbook with

option explicit  private sub workbook_open()      application.screenupdating = false      set ws = thisworkbook.sheets("sheet1")      worksheets.add(after:=worksheets(worksheets.count)).name = "hiddensheet"     set hs = thisworkbook.sheets(worksheets.count)     hs.visible = xlsheethidden      ws.range("b32:r51").select     selection.copy      hs         .activate         .range("b32").select         selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _             :=false, transpose:=false         application.cutcopymode = false     end      ws.activate     ws.rows(32 & ":" & 51).delete      application.screenupdating = true end sub  private sub workbook_beforeclose(cancel boolean)     call deletehidden(worksheets.count) end sub

and code in module1 with

option explicit public ws worksheet, hs worksheet  sub unhide()     hs         .activate         .rows("32:51").select         selection.copy     end     ws         .activate         .rows("32:32").select         selection.insert shift:=xldown     end end sub  sub deletehidden(num&)     application.displayalerts = false     worksheets(num).delete     application.displayalerts = true     set hs = nothing end sub

Comments

Post a Comment

Popular posts from this blog

php - cannot display multiple markers in google maps v3 from traceroute result -

i'm newbie in php mysql , google maps v3. have problems in google maps v3. made traceroute web based , map traceroute's result in google maps v3 final project of college education. have try many tutorials didn't work. have tried tutorials in forum nothing worked. problem cannot display multiple markers got location data database. maybe because i'm newbie , not know how do. confuse looping show markers. here code <?php error_reporting(e_all ^ (e_notice)); ini_set('max_execution_time', 360); $enable_log_user = false; global $ip, $host_name, $host_ip; $host = @$_post['host']; $trace = @$_post['trace']; $self = $_server['php_self']; include("phpsqlajax_dbinfo.php"); $connection = mysql_connect ('127.0.0.1', $username, $password); if (!$connection) { die('not connected : ' . mysql_error());} $db_selected = mysql_select_db($database, $connection); if (!$db_selected) { die ('can\'t use db : ...
Read more

c# - DetailsView in ASP.Net - How to add another column on the side/add a control in each row? -

i have detailsview control on page used edit various fields of record, works in respect. i looking way add 1 column (and if works, why not more) right, absolutely read-only, show same fields of record comparison purposes. i aware there no obvious way such thing out of box detailsview . have looked other controls (transposed gridview , recommended formview , listview ), nothing satisfies. have special data binding setup using detailsview , can't out of without losing features. anyone on how "hack in" additional columns (for display only) on detailsview ? the solution have now, use second detailsview , visible set false in aspx. in code, make sure databind hidden detailsview hosts data third column first, initial detailsview named itemdetails . and in item created event, pass third column html rendering of hidden controls (in last code block) : protected void itemdetails_itemcreated(object sender, eventargs e) { if (dataite...
Read more

javascript - firefox memory leak -

i have following script (i use raphaeljs also) draws circle, waits 1 second, draws circle again, etc (you can copy paste - functional, need include raphael raphaeljs.com): <div id="holder"> </div> <script src="raphael.js" type="text/javascript"></script> <script> var paper = raphael(10, 50, 320, 200); var rad = math.pi / 180; var finangle = 0; function sector(cx, cy, r, startangle, endangle, params) { var x1 = cx + r * math.cos(-startangle * rad), x2 = cx + r * math.cos(-endangle * rad), y1 = cy + r * math.sin(-startangle * rad), y2 = cy + r * math.sin(-endangle * rad); return ["m", cx, cy, "l", x1, y1, "a", r, r, 0, +(endangle - startangle > 180), 0, x2, y2]; } var path = sector(100,100,50,0,180); var arc = paper.path(path); function draw() { path = sector(100,100,50,0,finangle); ...
Read more