Hi Everyone! :) Need help, Single cmd button to run different COMMAND!

[pedie]

Hi,
I am sure how i should explain this...
I have two codes below. that I want to place in one command button:
when I click if row is "" then hide....the next time i click again no matter what show all the cells irrespective..."" or <> ""
Like pause and play button that does both the thing....

Thanks for HELPING...
Pedie

Option Explicit
 
 
Sub test()
'
    Dim lstRng As Range
    Dim c As Range
 
    Set lstRng = Sheet1.Range("a1", Range("a65536").End(xlUp))
 
    For Each c In lstRng
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        End If
    Next c
End Sub

Code to to unhide all cells

Please give some idea...thanks again

 

[mikerickson]

Try this

Sub ToggleRows()
    Dim c As Range
    Static LastVal as Boolean

    With Sheet1.Range("a1", Range("a65536").End(xlUp)
        For Each c in .Cells
            c.EntireRow.Hidden = ((CStr(c.Value) = "") And LastVal)
        Next c
    End With

    LastVal = Not LastVal

End Sub

 

[pedie]

Receiving error
Syntax error
>> [COLOR=red]With Sheet13.Range("a1", Range("a65536").End(xlUp)[/COLOR]

I place the code in standard module...

 

[pedie]

is plus make it minus if minus make it plus - the code below does...

As for me i need something...like on click unhide everthing.....next click hide if blank

Dim cell As Range
    Cells(1).Select
    
    For Each cell In Selection
        If Application.IsNumber(cell) Then
            cell.Value = cell.Value * -1
        End If
    Next cell

 

[mikerickson]

This should take care of the syntax error.
If a button calls this routine:
Press the button and all rows will be visible
Pressing the button again and those rows that have a blank in column A will be hidden
Press the button again and all rows will be visible.
etc.

Sub ToggleRows()
    Dim c As Range
    Static LastVal as Boolean

    With Sheet1
        For Each c in Range(.Range("A1"), .Range("A65536).End(xlup))
            c.EntireRow.Hidden = ((CStr(c.Value) = "") And LastVal)
        Next c
    End With

    LastVal = Not LastVal

End Sub

If the "" is a true blank and not the result of a formula, using .SpecialCells(xlCellTypeBlanks) will be faster than looping.

 

[pedie]

Great...thanks alot!!!
It worked PERFECTLY