Find combobox selection in a range - excel

I have a userform with a combobox. The combobox selections come from a defined name list. I am trying to figure out how to have the code search for the combobox selection in a range of cells on the active sheet and select the cell to the right of the combobox selection in that range. I am fairly new to VBA and learning as I do it. Esentially, if "Car" is chosen in the combobox, find "car" in a range of the active sheet and select the cell to its right. Thanks in advance for any assistance you maybe able to provide.

This should work:
ActiveSheet.Cells.Find(UserForm1.ComboBox1.Value).Offset(0, 1).Select
Use your UserForm name in place of UserForm1, same goes for CombBox1. Keep in mind that it will fail if you do not have combobox value (the one you are looking for) on the sheet.
Also include vbModeless next to your UserForm1.Show to allow cell selection.

Related

Update Excel Userform From Worksheet Cells

I have the following userform in one macro-enabled excel workbook. It needs me to fill all the empty cells every time and click update to set the cell values to be used for further calculations. I am looking forward to finding an alternative to fill these cells from the worksheet range and by-pass clicking this Update button.
I am new to VBA and struggling to answer this for a month now, any help would be highly appreciated. Thanks in advance!
This looks very simple issue. Try below codes. Adjust sheet name and textbox names to UserForm as well as cells addresses.
Private Sub cmdUpdate_Click()
Me.TextBox1 = Sheets("Sheet1").Range("A1")
Me.txtMyBox = Sheets("Sheet1").Range("B1")
End Sub

On selecting a checkbox in excel the "Tab(s)" should get enabled/disabled or Appear/disappear

Can someone help me with the VBA code
On clicking a checkbox in excel the "Tab(s)" should get enabled/disabled or Appear/disappear
For eg. There is a tab name"Summary" and in Summary sheet1 I have a checkbox. On selecting the checkbox in the sheet1, the sheet 2 should get enabled/disabled or it should appear or disappear
Your help would be much appreciated
Paste this procedure in the code sheet of the worksheet on which you have the CheckBox, for example your Summary sheet.
Private Sub CheckBox1_Click()
Worksheets("Sheet2").Visible = IIf(CheckBox1.Value, xlSheetHidden, xlSheetVisible)
End Sub
There are two references to CheckBox1. That's the name of the check box - in the sub's declaration and the code. If it has another name change both references. Change the name of the worksheet you wish to hide. If you have several check boxes on your worksheet place identical procedures in the code sheet, each referring to another check box.
Note that there are two different kinds of hiding a sheet, xlSheetHidden and xlSheetVeryHidden. Both remove the tab from the bar below the Excel window. However, if you use xlSheetHidden the hidden worksheet can be shown by selecting Unhide from the Format Cells menu. If you choose xlSheetVeryHidden the sheet will not be listed there and the only way to show it again is by access to the VB Editor or code.

Excel ComboBox Crashing with down arrow keystroke

I have created a ComboBox to do a Google-style search of Cities. I have my ComboBox on sheet 1, that is linked to a dynamic range of cities on sheet 2. The ComboBox output cell is what changes the dynamic range.
Here’s the problem I’m having. I start typing “sea” and I get two results in my drop down list-seaport and Seattle. So far so good. Then I use the down arrow to Select Seattle and the program crashes and restarts. I believe it is because when I hit down one time, seaport is selected and this narrows down my range to just the one option and Seattle disappears.
Is there any way around this? Either disabling the use of the keyboard down arrows for selections or preventing the output to the linked cell until a selection is finalized?
This the code for my combobox on Sheet1
Private Sub TempCombo_Change()
TempCombo.ListFillRange = "Cities"
Me.TempCombo.DropDown
End Sub
The named range "Cities" is defined by formula on sheet 2
='City Data'!$L$2:INDEX('City Data'!$L$2:$L$570,MAX('City Data'!$K$2:$K565,1))

Difference between an actived cell and selected cell

I'm new programming at vba and I can't understand what's the difference between an actived cell and a selected cell.
I'm making a very simple example I found on internet about press a button and add the values of certain lines.
This is my example:
When I press the button that says "Rellenar" I want the information about countries goes to dropdown menu.
I made this:
Private Sub CommandButton4_Click()
Range("k6").Activate
Do While Not IsEmpty(ActiveCell)
micombo.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Where "k6" is the 1st cell where you can find information, but I tried to change the activate value to select value and the programm works exactly the same with both.
Can someone explain me the difference between both one?
From my understanding an Active cell is the cell the user is currently on. E.G the highlighted cell if you are in a spreadsheet.
A Selected cell is a cell that has been clicked. You can have more than one selected cell. (Usually by holding down CTRL and selecting multiple cells) However the only active cell is the one the user is currently on.
Another example for this is when you are selecting multiple images on your computer. If you click one then that's your active cell. Whereas if you click multiple then the clicked cells are "Selected" but only your most recent click is an active cell.

Excel 2010 - Multiple Types of Locks on the Same Sheet

So I'm trying to create an excel sheet that handles a user input/output task (I know that this is a kludge at best and offensive at worst). So I want the user to be able to edit the input cells (and only the input cells), and select (but not edit) the outputs.
Example: Grid A1:C3. A1:A3 are completely locked - unselectable. B1:B3 are selectable and editable. C1:C3 are selectable and uneditable.
Is this possible? My gut is telling me no, but I thought I'd ask anyway.
It is possible using worksheet protection:
In the Format Cells dialog of the cells B1:B3, uncheck the "Protected" checkbox in the last tab (Protection). Then protect the worksheet (right click the worksheet tab at the bottom->Protect Sheet). Once the sheet is protected, the user can only edit those cells that are unprotected.
Regarding the selection of C1:C3 and non-selection of A1:A3 - you can allow/prevent the user from selecting protect cells in the same sheet protection dialog. However, this is a sheet wide setting, so be default you can only fully prevent selecting all protect cells or allow selection of all cells.
If you only want prevent selection of A1:A3 because you don't want the user to see the formula, just check "Hidden" in the Format cells dialog - this way the user does not see the formula.
If you really need to separate between selectable and unselectable, either split across two worksheets - or use a little VBA macro. To do so, open the VBA editor (Alt+F11) and double click your worksheet in the top-left list. In the code window, enter the following code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.ProtectContents And Intersect(Target, Range("B1:C3")) Is Nothing Then Range("B1").Select
End Sub
This way, every time a cell outside your required range is selected, B1 is selected instead

Resources