List Box in Comman Button

[raj08536]

Here my procedure for command button........

Private Sub CommandButton1_Click()
Dim A
Dim B As String
Dim C As String

B = "Enter GM %" & Chr(13) _
& "e.g. 35% or .35"
C = InputBox(B)
' InputBox (ListBox1)
' InputBox (UserForm)
Range("A62").Value = C
A = C

Range("E10").Value = 100
Range("E26").GoalSeek Goal:=A, ChangingCell:=Range("E10")
End Sub

Here is my userform procedure:

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "5%"
.AddItem "10%"
End With
End Sub


I want to use listbox in inputbox to limit the option to users.

Need your help urgently...

 

[Andrew Poulsom]

Add a Commandbutton to your UserForm and try:

' Worksheet module
Private Sub CommandButton1_Click()
    UserForm1.Show
    Range("E10").Value = 100
    Range("E26").GoalSeek Goal:=Range("A62").Value, ChangingCell:=Range("E10")
End Sub

' UserForm module

Private Sub UserForm_Initialize()
    With ListBox1
        .AddItem "5%"
        .AddItem "10%"
    End With
End Sub

Private Sub CommandButton1_Click()
    Range("A62").Value = ListBox1.Value
    Unload UserForm1
End Sub

 

[raj08536]

how to bring userform from "view code" to main sheet in excel?

 

[raj08536]

everything is working except list box....

Private Sub CommandButton1_Click()
UserForm1.Show
Range("E10").Value = 100
Range("E26").GoalSeek Goal:=Range("A62").Value, ChangingCell:=Range("E10")
End Sub

' UserForm module

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "5%"
.AddItem "10%"
End With
End Sub

Private Sub CommandButton2_Click()
Range("A62").Value = ListBox1.Value
Unload UserForm1
End Sub


Commandbutton1 is in sheets
commandbutton2 is on userform......

I am still not getting listbox populated.

 

[Norie]

Well it would help if you gave some more information.

 

[raj08536]

Now i am getting listbox populated but goal seek function isn't working.....

I am calling userform1 by clicking commandbutton1 (which is in sheet1)

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

I have listbox1 and commandbutton2 on userform1 and following is the procedure


rivate Sub ListBox1_Click()



End Sub

' UserForm module

Private Sub UserForm_Initialize()

With ListBox1
.AddItem "5%"
.AddItem "10%"
.AddItem "15%"
.AddItem "20%"
.AddItem "25%"
.AddItem "30%"
.AddItem "35%"
.AddItem "40%"

End With


End Sub

Private Sub CommandButton2_Click()

Range("A62").Value = ListBox1.Value
Range("E10").Value = 100
Range("E26").GoalSeek Goal:=Range("A62").Value, ChangingCell:=Range("E10")
Unload UserForm1

End Sub

I am now getting listbox populated but commandbutton2 's procedure not running. Not even A62 amount not changing...

Question:
How do I get listbox value transfer to A62?

 

[Andrew Poulsom]

Your code worked for me if UserForm1 contained a ListBox named ListBox1 and a CommandButton named CommandButton2. Check the names of your controls.

'UserForm module
Private Sub UserForm_Initialize()
    With ListBox1
        .AddItem "5%"
        .AddItem "10%"
        .AddItem "15%"
        .AddItem "20%"
        .AddItem "25%"
        .AddItem "30%"
        .AddItem "35%"
        .AddItem "40%"
    End With
End Sub

Private Sub CommandButton2_Click()
    Range("A62").Value = ListBox1.Value
    Range("E10").Value = 100
    Range("E26").GoalSeek Goal:=Range("A62").Value, ChangingCell:=Range("E10")
    Unload UserForm1
End Sub

 

[raj08536]

Thanks. it is working......