Userform Label to display information from several textboxes

Label.Caption = Textbox1.Text & vbCrLf & Textbox2.text

You cannot create your own change event. You must use the built-in events.
Without a workbook I'm guessing. You need change events for each of the controls you want displayed in the label.

For example, when combobox1 changes:
sub Combobox1_Change()

Label1.Caption = Label1.Caption & vbCrLf & Combobox1.text

End Sub

It will be similar for each combo/text box. As you change each control, the value will be appended to the label caption.

I changed the name of the label to SummaryLabel and added the following to several of the listboxes, not all:

Please Login or Register  to view this content.

Replace RegionList with the appropriate listbox name.

I have modified the code to clear the label whenever the REGIONS list is selected and I replaced the vbCrLf with commas instead; I don't think using a space as a separator is a good idea since so many of the regions, cities and areas are multiple words separated by spaces.

The ENUM is another way of declaring constants. For Instance, instead of:

Enum FLS
Regions = 1
Cities
Areas...
End Enum

I could have coded:
Const Regions As Long = 1
Const Cities As Long = 2
Const Areas As Long = 3, etc.

In the ENUM structure, I assigned the first item a value of 1, and VBA automatically incremented those following by 1 (in this case), but they could have been assigned other values.

I created a variable for each of the listboxes, comboboxes and textboxes on the form; though, currently, the code only used the first three.

The line: Dim SummaryArray(1 To 3) As String, creates a three element array (one for each listbox).

When you click a listbox, say, City, the code:
SummaryArray(Cities) = CityList
will load the selected city into array element #2 because Cities is the second variable in the ENUM.

The selected values are copied to the SummaryLabel caption in the AreaList_Click code using:

SummaryLabel.Caption = Join(SummaryArray, ", ") which just joins the elements into a single comma separated string.

If the question is related to this thread, please post the questions here; if it's a completely new question, please start another thread and a link to this one.

Maybe:

Please Login or Register  to view this content.

Also, you can delete occurrences of:
SummaryNdx = WorksheetFunction.Count(SummaryArray())
I never used it but forgot to delete it myself.

Hi protonLeah!


Thank you! Already working.

1.) What about in the Land Size or Building Size, how can I add "sqm Lot" and "sqm Floor", respectively?

2.) How can I hide the commas if there's no value in a textbox? for example, I didn't select "Rent" or "Buy" and it won't display the any commas. Or for example too, I didn't input anything in the textboxes or in the comboboxes and just click "Regions, "Cities" or "Area" but it won't display any commas (,).


Thank you so much protonLeah!

1. Are you saying that you want something like 12,000 sqm lot put in the label? If so, supposing that the building size textbox is still named textbox2, then you need something like
SummaryArray(BlgSize) = textbox2.text & " sqm lot"
2. I'll have to wait for tomorrow for that one.

Each text and list box need to be modified with:

Please Login or Register  to view this content.

Then add this Sub in the form's module

Please Login or Register  to view this content.

Originally Posted by protonLeah

Each text and list box need to be modified with:

Please Login or Register  to view this content.

Then add this Sub in the form's module

Please Login or Register  to view this content.

Hi protonLeah,

I just need to put Build Summary right? After putting the Sub in the form's module? I tried it and it works like a charm!

Last 2 question(s) for this thread protonLeah:
1. Regarding the Subtype, how can I link it to the Bedrooms?

For example,

1. If Loft is selected in Subtype then the Bedroom will be just blank
2. If Studio is selected then the bedroom will be 1
3. If Penthouse is selected then just leave the bedroom blank
4. if 1 bedroom is selected then 1
5. if 2 bedroom is selected then 2
6. and so on until 6 bedroom

and then in the summary label the "bedroom" will be put (i.e. just like what you did in the Building size and land size where in "sqm Lot" is displayed in the summary label). How should I code it? or What will be the code that I need to use or modify?

2.) For the Floor, how can I add the suffixes st floor, nd floor, rd floor, and th floor? I did this one without coding, just vlookup function. But I really would like to have it as coded as much as possible so that the workbook won't be prone to so much human error.

----------------------------------------------------------------------------------------------------------------------------------------

protonLeah, I have another question, it's related to this thread but it's about radio buttons and disabling some radio buttons, comboboxes, textboxes, and etc. I'll make another thread and I'll reference this thread to the thread I'll be posting.

Thanks so much protonLeah for your help!
I'll mark this one now as solved.

I have made several additions to the form code:

Mid is a standard VBA function. In the VBA check the Tools/References for missing libraries
* Or just replace the Floor_Change sub with: *

Please Login or Register  to view this content.