ashgull80

hi i have typed this into a userform which has a combobox in it but it still wont show the data in the combobox.

Private Sub frmAddIncome_Activate()

cboincpaymethod.AddItem "Item 1"
cboincpaymethod.AddItem "Item 2"
cboincpaymethod.AddItem "Item 3"
cboincpaymethod.AddItem "Item 4"

End Sub

the form is called "frmaddincome"
the combobox is called "cboincpaymethod"

thanks for your help
ash

TheRealTinTin

Hi ashgull80 and welcome,

I would actually put the code in the .Initialize event but that's another story. Should the procedure not read

ashgull80

what an idiot lol for some reason i thought i need to have it as the name of the actual userfom, thanks very much for your help i did use initialize too just for some reason i typed activate on here.
could you possibly help with another issue, as you can see i am still learning vb.
i have another combobox that will collect its data from a list on a sheet, the problem i have is, is that the list will keep growing so i cant use range A1:A10 say as it will depend on how many items have been added to the list at any 1 time.
thanks again
ash

TheRealTinTin

How are items added to the list? I think perhaps a dynamic range used as the RowSource of the ComboBox might be the best solution here, depending on how items are added to the list.

_Mordred_

Perhaps something like the following in your Userform initialize procedureThis code will set the RngToAdd to the range A1 to the last cell in column A (from the bottom up).

ashgull80

works a treat thank you very much, just a quick addition, i also have a text box that i want to look up the same list but then add the next number in the box. eg, the list will have 1, 2, 3, 4, 5 and i want the text box to display 6
thanks ash

TheRealTinTin

Could you not use the .ListCount property and add 1 to it?

ashgull80

how would that code look if the list starts in column 2 row 3?
thank you

Gruff

If you are talking about Mordred's code then you would simply change the "Cell(<Row>,<Column>) Values.
Cells in this case defines a single Cell. Two of them defines a Range.


The Ws1.Cells(Ws1.Rows.Count, nCol).End(xlUp))

is returning the last cell used in nCol. Very much like you would do manually.
Click in the bottom most cell of column 2. Press End then the Up arrow.
Excel should move to the last used cell in column 2.

ashgull80

sorry i was meaning for my next question with the next number displayed in text box
thank you

ashgull80

what i mean is what will the code look like for the .listfunction +1,

ashgull80

i can get it to display the last number using this code

txtjobNumber.Value = Range("B3").End(xlDown)

but i want it to disply this number + 1

iabbott

you mean
?