What do you mean with "which type of Command Button I am using"?
I create my command button on userfom using the pop-up ToolBox. Is there any other kind of Command Button? I know there are Form controls and ActiveX button. I assume the button inside VBA is always ActiveX, right?
Uhm. I have another problem. So, I tried to copy your code on the worksheet I am working on. When I click on the command button, its not doing anything, for some weird reason. I changed the below code to the caption of the command button. Is there anything else I need to change aside from this that I am missing? I already have a "call" code on the command button. So, not sure what I am missing. I just copy it as it is.
you are heaven sent, royUK . Thank you!
For future references, the 1st set of codes you gave me usually works if the command buttons are in a sheet and not in a UserForm, right?
I also noticed that, on the 1st set of code, you mention that I need to paste them on a MODULE. The 2nd set, I noticed that the codes were pasted on the UserForm instead of a module.
Uhm. I tried to run the UserForm you made. I had this error:
Compile Error:
Statements and labels invalid between Select Case and first Case.
This is not the actual workbook I am working on. Can't attach it due to some data. But, its as simple as the one attached. Straightforward command buttons to open hyperlink on IE. Thanks, royUK !
royUK how do I exactly "assign" the macro Main? By the way, not sure if it helps, but I am using a command button on a UserForm. The button is not exactly on a worksheet.
Hello,
Disclaimer: This is my second question for today. I created a separate thread for this to avoid confusions on the answer.
Anyhow. As the title says, I have UserForm active on Sheet 1 used for Data Entry. I want to open another sheet within the same workbook, Sheet 2, but I don't want to close the current UserForm.
Is there any way to do that?
Thank you in advance!
Hello All,
I have a macro below that allows me to open a hyperlink on a different browser. I have assigned this code to a command button (the next set of code). My issue right now is how do I modify this macro so I can assign different websites on different command buttons. For instance, the below website is assigned to CommandButton1. I have CommandButton2 who wants to open msn.com (example only). Please take note, I will be assigning multiple websites on different command button. So, it's 1 website per command button.
Thank you in advance to anyone who can help me.
Replace the code in my last example with this
Display MoreCode
- Dim iX As Integer
- Private Sub ComboBox1_Change()
- Dim str As String
- Dim iY As Integer
- With Me.TextBox1
- .Value = Empty
- If Me.ComboBox1.ListIndex < 0 Then Exit Sub
- For iX = 1 To 3
- If Me("chk" & iX) = True Then
- iY = 1
- Else: iY = 2
- End If
- Me.TextBox1.Value = Me.TextBox1.Value & Chr(149) & " " & Me("chk" & iX).Caption & " " & Choose(iY, "Received", "Required") & vbNewLine
- Next iX
- If Me.ComboBox1.ListIndex = 0 Then
- With Me.TextBox1
- .Value = .Value & vbNewLine
- .Value = .Value & Chr(149) & " " & Me.ComboBox1.Value & " " & "Bank Statement required" & vbNewLine
- .Value = .Value & Chr(149) & " " & Me.ComboBox1.Value & " " & "Utility Bill required"
- End With
- Else
- With Me.TextBox1
- .Value = .Value & vbNewLine
- .Value = .Value & Chr(149) & " " & Me.ComboBox1.Value & " " & "Passport required" & vbNewLine
- .Value = .Value & Chr(149) & " " & Me.ComboBox1.Value & " " & "POI required"
- End With
- End If
- End With
- End Sub
- Private Sub CommandButton1_Click()
- Reset
- End Sub
- Sub Reset()
- ''///reset controls
- Me.ComboBox1.ListIndex = -1
- Me.TextBox1.Value = Empty
- For iX = 1 To 3
- Me("chk" & iX) = False
- Next iX
- End Sub
Thank you, royUK and Justin Doward .
I'll try this new code and let you guys know.
This example uses a TextBox
I'm still not sure what happens if the second selection in the combobox is selected.
For the second option in the combox box, technically, they function the same as the 1st option. For instance,
Selecting the 1st option displays:
• Address Required
• Need POA
• Need Bank Statement
Selecting the 2nd option displays:
• Country Required
• Need Passport
• Need POI
Also, from your work, is there any chance it would appear just like how it appears on the above example?
Always use Me not the UserForm name, then if you change the name you don't have to amend the code.
I appreciate this. Will use this more moving forward. 
If you use this approach you pretty much have to build the entire text each time, clear the box using the me.textbox1.text = vbnullstring and then add a line to check checkbox1, 2 and 3 in order and build the text as required. You will need to do the same for the combobox.
bare with me on this one, as I try to comprehend it. lol
When you gave me the below code, does that mean I literally just paste it under Checkbox1_Click? and, just replace Me.CheckBox4.Value to the other check boxes?
Oh yeah, for the initialize error, I simply copy the code from my original workbook, that's why it has the UserForm5. I thought I saved it before posting it here. My bad. I'll replace it with yours.
Hey royUK .
I did check your work first.
This UserForm is supposed to be a simple user form in creating a "Note Generator" for work. I thought having this would give me an easier time at work.
I have 2 columns of check boxes because I want 1 column for Documents Received and 1 column for Documents Needed (To be requested). This way, I would have a sort of checklist of what I need to ask from clients. So, in a sense, it is very important for me to have 2 columns.
For the combo box, I admit I am unsure if this is right "function" to use here. I am not gonna do multiple selection, I will only choose one from the list. As I stated above, upon selecting an option from the box, I want that same text be displayed on textboxt1 along with another 2-liner.
For the copy, I only want it on my clipboard and I'll post it somewhere in my system (outside excel) like Notepad or something. The below is my code for copying the text. Correct me if I am wrong.
Since I am a newbie in this. I thought the code of Justin Doward is "easier" for me to understand. Though, I have only tested the checkboxes for now. With that, I want to add another query here. I have this code so far:
My problem here is, after un-ticking check box 2, it is not "removed" on the textbox. It stays on the textbox and when I click again on the same checkbox, the same texts was doubled. I added the below code on Checkbox2, but it didn't do any better.
royUK and Justin Doward again, I appreciate all your help. I think both your work already answers my question here.
I apologize for all the run-around. I will do better next time. It is my first time posting.
I'll post a better question, with better and complete format, next time!
Cheers!
Hello again,
Thank you again royUK for your work. I have seen it and I have attached my sample worksheet here for proper reference.
Here's what I am trying to accomplish.
1. I am hoping the "caption" of the Checkbox be displayed to textbox.
2. I am hoping the "label", which is "Received" and "Required", be displayed on the textbox as well once I choose an option via Checkbox.
3. The texts displayed on the textbox must be displayed on how the options are displayed on the UserForm. For instance, under Received, Name comes as first, then address, etc.
4. On the ComboBox, there are 2 options. I want to display these options, once selected, on the textbox and add 2 more lines of text. FOr instance, the 1st option is Address Required. I want to show the following texts:
Address Required
• Bank Statement
• Utility Bill
5. There should be a copy and clear button, but I already have that figured out, at least.
I know this is all too much, I appreciate all your help guys.
Hi royUK , I apologize for not including my workbook. You are right, I should've included it. But, I appreciate your reply and answer, man. I'll check it once I get home since I am on mobile.
