[vba excel] macro to hide row

Question

Hello everyone,

I have a problem with a VBA macro in Excel (I specify that I don't know much!!! I just know how to use macros but not create them!!!)
So, I have a table of the type:
''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipments'''''''''''''Domains'''''''''''''''Impact '''''''''''''''''''Action to take
6''''''''Compactor''''''''''''''''''''Air''''''''''''''''''''Dust''''''''''Do analysis by lab
7'''''''''''''''Tour
8'''''Welding station
9'''''''''''''''Oven''''''''''''''''''''''''''''''''Air'''''''''''''''''''''''Smoke''''''''''''''Do analysis by lab

I would like to have a button (macro) to obtain the following table format to facilitate printing because my table is very large:

''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipments'''''''''''''Domains'''''''''''''''Impact '''''''''''''''''''Action to take
6''''''''Compactor''''''''''''''''''''Air''''''''''''''''''''Dust''''''''''Do analysis by lab
9'''''''''''''''Oven''''''''''''''''''''''''''''''''Air'''''''''''''''''''''''Smoke''''''''''''''Do analysis by lab

So the condition is: if there is no impact (empty cell in column C), the entire row should be hidden. Then, I would need a second button to make the hidden rows reappear. I want the first 4 rows to remain because they contain my company's logo + document update date, etc.

Thank you in advance

Vince

Configuration: Windows XP Firefox 2.0.0.5

TORTUE85 · Accepted Answer

Alright, I'm going to try to give you a solution
------
TO HIDE
----------

Sub hide()
Range("B1:B7").Select 'B1:B7 corresponds to the range of cells you want to check
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next

End Sub
-----------------------------------------------------

TO SHOW YOUR CELLS
-----------
Sub unhide()

Range("B1:B7").Select
Selection.EntireRow.Hidden = False
End Sub

------------------------------------------------

And then you go to Excel...Tools/Macro/Run a macro..
Magic magic you discover two macros (Hide and Unhide)

Then you can add buttons to your Excel sheet and when you click on them, it runs the macros.

DISPLAY / TOOLBAR / FORM

You select the button
Place it on your sheet and select the right macro to assign..

BYE....Looking forward to it

vince7338 · Answer

Hi,  Thank you, that's exactly what I needed...  Thank you very much  See you later++

loulou1684 · Answer

Torbus,

Could you help me?

I would like to use your code, but I want it to hide only if there is more than one empty line.

Sub hide()
'A1:A50 corresponds to the range of cells you want to check

dim i as integer
i= o.value + 1

Range("A1:A50").Select

For Each o In Selection
If o.Value = "" and i="" Then
o.EntireRow.Hidden = True
End If
Next

End Sub

My code is not working, I’m rusty and I think it’s misplaced, but I believe the idea is good?
Can you help me with that?

loulou

represente SP · Answer

Hi, here is my problem.
I would like, if possible, that when I click on "chef d'agrés" or others in column M for example, it displays the names that I can select. These names should be related to column K or, otherwise, hide the names in column K.

Here is my work: http://dl.free.fr/getfile.pl?file=/n7RnVCgH

Use sheet1 and sheet2

Thank you for your responses, it is very urgent.

[vba excel] macro to hide row

4 answers

How to delete groups on a mobile phone

Remove leading zeros in printouts

Ephemeral messages

System error 805306367 my taskbar is inactive

Message saying that my phone is compromised

Very slow computer

Retrieve an email address

Phone alarm plus connected

Select text

No sound on my laptop