Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 239
  • Last Modified:

Lost command buttons

Experts,
I had command buttons from R6:R83, Column [0]. I did a filter, removed the filter now I have only a command button on R[6]C[0]. I've not deleted any, yet I can not see the only one command button in cell R6:C0
1392-Mem-Expenses-03-11.xlsm
0
Frank Freese
Asked:
Frank Freese
  • 3
  • 3
2 Solutions
 
SiddharthRoutCommented:
If you move that command button, you will find all the command buttons are re-sized and hidden behind that button.

You need to right click on the button, before you autofilter and click on "Format Control". Under "Properties" tab, select "Do not move or size with cells" :)

Sid
0
 
Frank FreeseAuthor Commented:
is there a way to recover?
0
 
SiddharthRoutCommented:
Yes but it is very painful. I can try to write a code which can align all the button in that sheet right below one another but then you will have to finally arrange them manually by dragging.

Sid
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
Frank FreeseAuthor Commented:
if you don't mind - thanks (off to the dentist)
0
 
SiddharthRoutCommented:
Here you go. File Attached.

Sid

Code Used

Sub Sample()
    Dim ol As Shape
    Dim nTop As Long
    nTop = 10
    For Each ol In ActiveSheet.Shapes
        If ol.Type = 8 Then
            ol.Height = 21
            ol.Width = 50
            ol.Top = nTop
            ol.Left = 0
            nTop = nTop + 25
        End If
    Next
End Sub

Open in new window

Recovered-1392-Mem-Expenses-03-1.xlsm
0
 
Rory ArchibaldCommented:
(NFP)

If you alter that to:
Sub Sample()
    Dim ol As Shape
    Dim nTop As Long
    nTop = 10
    For Each ol In ActiveSheet.Shapes
        If ol.Type = 8 Then
            ol.Placement = xlFreeFloating
            ol.Height = 21
            ol.Width = 50
            ol.Top = nTop
            ol.Left = 0
            nTop = nTop + 25
        End If
    Next
End Sub

Open in new window


then it will also set the no move or size property for you.
0
 
Frank FreeseAuthor Commented:
thanks - great works folks.
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now