add number on button press

[lesley burlingham]

I have a button a spreadsheet, it adds a number 1 to a cell once selected and unhides some rows. I need this number to go if the button is selected again and the rows are hidden.

'Hides row 75-85 on contract, different payee details'
Private Sub CommandButton1_Click()
  Sheet4.Cells(73, "C") = 1
  With Rows("75:85")
  .Select
  .EntireRow.Hidden = Not .EntireRow.Hidden
  End With
End Sub

 

[Asheesh]

Try this...

Sheets("Sheet4").Cells(73, "C") = 1
 
  If Rows("75:85").Hidden = True Then
  Rows("75:85").Hidden = False
  Else
  Rows("75:85").EntireRow.Hidden = True
  End If

 

[lesley burlingham]

Hi

I am getting an error. Subscript out of range.

'Hides row 75-85 on contract, different payee details'
Private Sub CommandButton1_Click()
  Sheets("Sheet4").Cells(73, "C") = 1
  If Rows("75:85").Hidden = True Then
  Rows("75:85").Hidden = False
  Else
  Rows("75:85").EntireRow.Hidden = True
  End If
End Sub

 

[Asheesh]

hello- Excel comes up with this complaint when it doesnt find something that it has been asked for...Here in this case I think the issue was with Sheet4..

Check if the below works

Sheet4.Cells(73, "C") = 1
 If Rows("75:85").Hidden = True Then
  Rows("75:85").Hidden = False
 Else
  Rows("75:85").EntireRow.Hidden = True
 End If

 

[lesley burlingham]

Hi

It put a number 1 in the cell, and it hides and unhides the rows. The number 1 doesn't go when he button is selected again.

 

[lesley burlingham]

Should have explained properly in my 1st thread.

I have a button a spreadsheet, it adds a number 1 to a cell once selected and unhides some rows. I need this number to go (disappear) if the button is selected again and the rows are hidden.

 

[Asheesh]

My Bad ..!! misunderstood it completely, was just focusing on hide and unhide part...

see if the below is fine..

If Rows("75:85").Hidden = True Then
  Sheet4.Cells(73, "C") = 1
  Rows("75:85").Hidden = False
  Else
  Rows("75:85").EntireRow.Hidden = True
  Sheet4.Cells(73, "C").ClearContents
  End If

 

[lesley burlingham]

Perfect Thank you