Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command button caption from cell value
I'm trying to have 6 command buttons within a userform show a cell
range when the userform comes up. I've put this code in the UF module. When I bring up the UF, nothing shows. Do I have to change a setting in the UF properties? Thanks, jeff Private Sub UserForm_Click() CommandButton1.Caption = Range("L5").Value CommandButton2.Caption = Range("L6").Value CommandButton3.Caption = Range("L7").Value CommandButton4.Caption = Range("L8").Value CommandButton5.Caption = Range("L9").Value CommandButton6.Caption = Range("L10").Value End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command button caption from cell value
paste this code behind your form:
Private Sub UserForm_Initialize() For i = 1 To 5 With ActiveSheet Me.Controls("CommandButton" & i).Caption = _ .Range("L" & i + 4).Value End With Next End Sub -- jb " wrote: I'm trying to have 6 command buttons within a userform show a cell range when the userform comes up. I've put this code in the UF module. When I bring up the UF, nothing shows. Do I have to change a setting in the UF properties? Thanks, jeff Private Sub UserForm_Click() CommandButton1.Caption = Range("L5").Value CommandButton2.Caption = Range("L6").Value CommandButton3.Caption = Range("L7").Value CommandButton4.Caption = Range("L8").Value CommandButton5.Caption = Range("L9").Value CommandButton6.Caption = Range("L10").Value End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command button caption from cell value
On May 11, 7:37*am, john wrote:
paste this code behind your form: Private Sub UserForm_Initialize() * * For i = 1 To 5 * * * * With ActiveSheet * * * * * * Me.Controls("CommandButton" & i).Caption= _ * * * * * * .Range("L" & i + 4).Value * * * * End With * * Next End Sub -- jb Thanks jb!! I don't understand why the 4 is in the last line. I made 10 buttons all together, so I changed the coding to reflect this. At 1st, I changed the 5 in the 1st line to 10, and the 4 to a 9. That was the logic I saw. It didn't work. When I left the 4 alone, it worked fine for all 10 buttons. I'll have to learn more about this to know why that 4 works with all 10 buttons. I appreciate your time and effort. thanks jeff |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command button caption from cell value
You are starting in row 5 so i which starts at a value of 1 needs to be
increased to select correct row. Therefore 1 + 4 = 5 then each time the code loops i is incremented by 1 which returns the next rows value. If you add more buttons but starting row remains the same, just increase the last number of the For loop to match - in your new case, the value is 10. -- jb " wrote: On May 11, 7:37 am, john wrote: paste this code behind your form: Private Sub UserForm_Initialize() For i = 1 To 5 With ActiveSheet Me.Controls("CommandButton" & i).Caption= _ .Range("L" & i + 4).Value End With Next End Sub -- jb Thanks jb!! I don't understand why the 4 is in the last line. I made 10 buttons all together, so I changed the coding to reflect this. At 1st, I changed the 5 in the 1st line to 10, and the 4 to a 9. That was the logic I saw. It didn't work. When I left the 4 alone, it worked fine for all 10 buttons. I'll have to learn more about this to know why that 4 works with all 10 buttons. I appreciate your time and effort. thanks jeff |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command button caption from cell value
On May 11, 9:01*am, john wrote:
You are starting in row 5 so i which starts at a value of 1 needs to be increased to select correct row. Therefore 1 + 4 = 5 then each time the code loops i is incremented by 1 which returns the next rows value. If you add more buttons but starting row remains the same, just increase the last number of the For loop to match - in your new case, the value is 10. -- jb " wrote: On May 11, 7:37 am, john wrote: paste this code behind your form: Private Sub UserForm_Initialize() * * For i = 1 To 5 * * * * With ActiveSheet * * * * * * Me.Controls("CommandButton" & i).Caption= _ * * * * * * .Range("L" & i + 4).Value * * * * End With * * Next End Sub -- jb I got it.... thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command Button Caption - VBA | Excel Programming | |||
command button caption | Excel Programming | |||
using vba to change command button caption | Excel Programming | |||
changing the caption of a command button | Excel Programming | |||
Command Button Caption | Excel Programming |