Input box question

  • Thread starter Thread starter Ewing25
  • Start date Start date
E

Ewing25

I have a Userform that has an input box and a listbox.

When the User brings up the userform they have an option of picking
something from the listbox or typing in a new value in the inputbox.

What i want to do is if there is a value in the inputbox then it disregards
anything selected in the input box.

Heres my code so far:

Private Sub CommandButton1_Click()
Set wks = Worksheets("Expense Non Amex")
Set wks1 = Worksheets("Expense Amex")

lrA = wks.Cells(Rows.Count, 1).End(xlUp).Row
lrB = wks.Cells(Rows.Count, 2).End(xlUp).Row
lrC = wks.Cells(Rows.Count, 3).End(xlUp).Row
lrE = wks.Cells(Rows.Count, 4).End(xlUp).Row
lrD = wks.Cells(Rows.Count, 5).End(xlUp).Row
wks.Range("A" & lrA + 1) = TextBox1.Text
wks.Range("B" & lrA + 1) = TextBox2.Text
wks.Range("C" & lrA + 1) = TextBox3.Text
wks.Range("E" & lrA + 1) = TextBox4.Text
wks.Range("D" & lrA + 1) = ListBox1.Text

If wks.Range("D" & lrA + 1) = "" Then
wks.Range("D" & lrA + 1) = TextBox5.Text

End If

TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
 
Dim myStr As String

If Me.TextBox1.Value <> "" Then
myStr = Me.TextBox1.Value
Else
If Me.ListBox1.ListIndex < 0 Then
myStr = "None selected"
Else
myStr = Me.ListBox1.Value
End If
End If

MsgBox myStr
 
I added the code and changed the textboxs to textbox5 and it still only
return the values in the Listbox.

The code i added:

Private Sub CommandButton1_Click()
Set wks = Worksheets("Expense Non Amex")
Set wks1 = Worksheets("Expense Amex")

lrA = wks.Cells(Rows.Count, 1).End(xlUp).Row
lrB = wks.Cells(Rows.Count, 2).End(xlUp).Row
lrC = wks.Cells(Rows.Count, 3).End(xlUp).Row
lrE = wks.Cells(Rows.Count, 4).End(xlUp).Row
lrD = wks.Cells(Rows.Count, 5).End(xlUp).Row
wks.Range("A" & lrA + 1) = TextBox1.Text
wks.Range("B" & lrA + 1) = TextBox2.Text
wks.Range("C" & lrA + 1) = TextBox3.Text
wks.Range("E" & lrA + 1) = TextBox4.Text
wks.Range("D" & lrA + 1) = ListBox1.Text

Dim myStr As String

If Me.TextBox5.Value <> "" Then
myStr = Me.TextBox5.Value
Else
If Me.ListBox1.ListIndex < 0 Then
myStr = "None selected"
Else
myStr = Me.ListBox1.Value
End If
End If

TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
 
I don't see anything like:
wks.Range("X" & lrA + 1) = myStr

But I don't see anything where you put the value of the listbox back into the
worksheet, either.
 
Ah i just replaced

myStr = Me.TextBox5.Value

with

wks.Range("D" & lrA + 1) = TextBox5.Value

Thanks!
 
And if that textbox is empty, but the listbox has an item selected?????
Ah i just replaced

myStr = Me.TextBox5.Value

with

wks.Range("D" & lrA + 1) = TextBox5.Value

Thanks!
Click to expand...
 
I don't see how the code you've posted does that, but maybe you got it working
and didn't bother with the post.

If that's the case, good.

If that's not the case, you'll want to post your current code.
Then it shows the listbox item. Which is what i was going for.
Click to expand...
 
Back
Top