VBA buttons with caption name and visible

[rodarce]

Hi!!

I have 20 buttons one next to each other in a userform. I want to insert names in cells Range a1:a10, but if there`s a name in a1, then commandbutton1 is visible, if theres a name in a2, then commandbutton2 is visible, and so on. the caption of the button have to match to the name in the cell.

I already create the buttons in order so they match the cells numbers and put this code:

Private Sub UserForm_Activate()


If ActiveWorkbook.Worksheets("hoja1").Range("a1").Value <> "" Then
CommandButton1.Caption = Range("d1")
Else
CommandButton1.Visible = False
End If

End Sub

It works, but with 20 buttons in a frame and more than one frame with another 20 buttons, i dont want to repeat the code.

Please help!

[LJMetzger]

Hi rodarce and welcome to ExcelForum,

Try the following code (included in the attached file) which works for 4 CommandButtons. You should be able to expand it by changing the value in the constant.

Please Login or Register  to view this content.

To prevent typos from ruining days and weeks of work 'Option Explicit' is NEEDED at the top of each code module. This prevents errors caused by missspellings and FORCES every variable to be DECLARED (e.g. Dim i as Integer). http://www.cpearson.com/excel/DeclaringVariables.aspx

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here


(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Lewis