ComboBox Change Code Looping

Jan 10, 2007

I have a piece of code attached to a combo box. When selected the code loops through 3, even 4 times for no apparent reason. Has anyone come across this before? The loop can start either after the final "end sub" or part way through (.clearcontents mainly) Have included the code just in case it is something obvious.

Private Sub cmbDI_GrowthBasis_Change()
If UCase(Worksheets("Tables"). Range("GrowthNo")) = "NIL" Then
Worksheets("Detail Inputs").Range("DI_GrowthRateTitle") = ""
With Worksheets("Detail Inputs").Range("DI_GrowthRate")
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Interior.ColorIndex = 15
.Locked = False
End With
Else
Worksheets("Detail Inputs").Range("DI_GrowthRateTitle") = Worksheets("Tables").Range("GrowthNo") & " :"
End If
End Sub

View 2 Replies


ADVERTISEMENT

Amend VBA Code To Change Mandatory Inputbox To Userform Combobox Entry

Apr 25, 2013

I have 4 columns, If column B (Ref No) is filled in, the adjacent columns, C,D and E become mandatory and an input box pops up on screen one after the other for entry into each column.

My problem is that I require a drop down list and not a input box for the final column (status). So i have created a userform with a combobox dropdown. I am having problems connecting the combobox selection to the final column, and for the selected combobox item to go into the right cell like the input box entry currently does.

Attachment 53209test743.xls

I have attached a sheet and also you can see the code below.

Code in Sheet

VB:
Public SaveVal1
Public SaveVal2
Public SaveVal3

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

[Code] .....

View 3 Replies View Related

VBA Code To Change Pivot Table (Report Filter) From Userform Textbox / Combobox

Aug 16, 2013

I've prepared an excel file with a pivot table. Now I would like to change the Pivot "Report filter" by using Textbox on Userform. I've attached an excel file as an example.

View 2 Replies View Related

Dismiss ComboBox Dropdown While ComboBox Code Is Still Running

Dec 8, 2009

When I make a comboBox selection from the dropdown menu, the menu stays down until the last statement of the comboBox code is finished. How do I make the dropdown disappear immediately after the selection is made?

View 9 Replies View Related

Change Value Of Combobox And Automatically Change Values Of Other Comboboxes

Aug 13, 2012

I'm coding a userform where there are some comboxes which are popolated by values coming from Sheet2. Up to now I work it out (maybe its not elegant but it works).

Now I would like that when the user selects one combobox the values of the other comboboxes are set accordingly to the grid in Sheet2.

Please download the XLS file at: [URL]....

View 2 Replies View Related

Looping Code

Apr 28, 2007

I am using the following code in a project and would like some help to loop it until either TRUE or #N/A is found in the active cell.

View 9 Replies View Related

VBA Looping Through Command Buttons And Change Visibility?

Jun 11, 2013

I'm trying to write a code to make a number of buttons visible depending on a cell value

I have 10 command buttons all are invisible and I want to show only the first x x is the value of cell "A1" in "Sheet1" (will be from 1 to 10) Command buttons names are default names (CommandButton1, CommandButton2, ... , CommandButton10)

Note: I'm working with a worksheet not a userform

View 8 Replies View Related

Looping VBA Code Until End Of Data?

Jul 2, 2014

trying to get macro to loop until there's no data to process.I have data in two columns A&B which it creates a chart from I then need it to skip C (which is blank) and do the same chart for columns D&E and so on indefinitely until there is no data to process..

I have attached a very simplified version of the data, the data is made up so the charts don't make sense but if you run the macro you'll see what I'm trying to achieve.

View 4 Replies View Related

Code Keeps Looping 3 Times

Jan 21, 2010

Im having a bit of an issue getting my head around why I am getting the result I am. I have data in ws1, a search list in ws2 and the results of the search in ws3.
It works though for some reason it loops 3 times... not sure why.

Additionaly I want to be able to run the same sub against 2 work sheets, ie, ws1 and another ws titled "otherWS" for this example. So run the exact sub again and return the results to ws2 as well.

View 4 Replies View Related

Deleting While Looping VBA Code

Aug 15, 2012

I have a worksheet and the products starts from the first row has product name and 2 following rows are other information which i do not need. i was trying to figure out a VBA code that can leave the first rwo and delete every 2 rows below the first one and then to complete this until the end of the data.

For example: in the following rows, i want to keep rows 1, 4, 7 and all others to be deleted and this process to continue until the last rows having data.

Column A
1 Product name
2 serial number
3 manufucture date
4 Product name
5 Serial number
6 manufucture date
7 Product name
8 serial number
9 manufucture date

Sub Deletesecondtworows()
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row

View 4 Replies View Related

Looping Through All Rows And Entering Formula To Calculate Change?

Oct 2, 2012

I want to create a loop that goes down all the rows in my spreadsheet and does the formula (end/beginning -1) for all the rows of cells. The "end" cell is the cell that is the farthest right in the row (some sort of end.xlright) and the "beginning" cell is column D of the row that is being calculated.

View 4 Replies View Related

Looping Code Not Ending Correctly

Dec 29, 2013

I have the following code that I use to create individual client files from one master spreadsheet. My problem is that it always creates and saves a blank file with only the 'rn' value in the file name. It seems that it is looping one extra time when the 'rng.value' list ends.

Sub MakeFiles()
Dim wb As Workbook
Dim ws As Worksheet
Dim criteriaRng As Range, usedRng As Range, rng As Range
Dim lh As String, ch As String, rh As String
Dim rn As String

[code]....

View 1 Replies View Related

Code To Find Range Without Looping

May 4, 2009

As a part of a much larger routine, I need a code to find five consequetive cells in a column with identical value "XYZ" and select the first one of them. Say,

I have a column:
apples,
pears,
apples,
oranges,
xyz,
oranges,
xyz,
xyz,
xyz,
apples,
apples,
apples,
xyz,
xyz,
xyz,
xyz,
xyz,
xyz,
xyz,
etc.

I need to select the twelfth cell in this column, highlighted red.
I guess there could be some complicated if-then loop to go through the whole column, checking each cell and comparing it to the next four, but it would take forever to excecute... Is there some other way around? To find the first occurence of five xyz's one directly under another?

View 9 Replies View Related

Looping Code & AutoFilter Criteria

Aug 12, 2006

I'm looking to use Autofilter and current region to select each persons data and paste to a new sheet.

The trouble is i'm not sure how to change the criteria name in the loop

e.g first name in list is Jack, next is John


Selection.AutoFilter Field:=1, Criteria1:="Jack"

View 9 Replies View Related

Looping Code Error: Repeatedly On One Sheet

Apr 22, 2008

I have a peice of code (Below) and instead of going from work sheet 4 to the one in the workbook 2 from the end sheet by sheet running the same bit of code it just loops repeatedly on one sheet??

Sub a()

Dim n As Integer
For n = 4 To ThisWorkbook.Sheets.Count - 2
Columns("W:W").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Range("L8:L9").Select
Selection.AutoFill Destination:=Range("L8:W9"), Type:=xlFillMonths
Range("L8:W9").Select
Application.CutCopyMode = False
Next n
End Sub

View 9 Replies View Related

ComboBox Change Vs After Update

Jan 27, 2009

Although I can live with having a Sub run when setting the ComboBox Sub to AfterUpdate...I would really prefer it to be set to _Change. Here is the Sub code that runs after the event:

View 4 Replies View Related

Change Background Using A Combobox

Feb 24, 2009

I need to change the background of an worksheet using a combobox!

Let's say that I have 10 or more picture with different names in folder "C:/picture".

I need to change the background of an worksheet selecting this pictures from a combobox.

I know that I can do this manually using "format/sheet/background", but I need to automate the process (in "C:/picture" folder, sometimes I will have more than 50 picture).

View 13 Replies View Related

Combobox Change Event

Apr 17, 2009

Dim bfr As Long
bfr = ComboBox1.Value
ComboBox1.Value = bfr: Exit Sub

how come this gives me a "cant change property" error!?

The code is inside my combobox change event...

View 9 Replies View Related

Change A Property Value In The Combobox

Mar 11, 2007

I have several comboboxes on a userform that work fine as long as I use a whole number, but if I try to use a number with a decimal, I get a run time error 'invalid property'. what I'm doing wrong or if I have to change a property value in the combobox?

View 9 Replies View Related

Change In Formula With ComboBox Selection

May 8, 2009

In this file, I have a Work Summary worksheet in which I'm extracting some data from the other worksheets to "summarize" all jobs into one nice work summary log On Basis of Average of data from 3 other different sheets A,B,C

The following form works great to if onyl formula calling is applied

=AVERAGE(INDIRECT("'"&$C6&"'!c3:c7"))

C6 = Worksheet name or Worksheet tab name ....

View 8 Replies View Related

Combobox VBA To Change Data In Cell?

Dec 12, 2012

I am looking for a way to use VBA code to allow a combo box (form control) to change the data in a cell. For example: The combo box could contain Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday. If the user selects Monday in the combo box, than cell A1 will populate the word Monday. In the particular situation that I using this for, an if statement will not work since there are 82 values (options) in the combo box.

View 2 Replies View Related

Combobox Change Within Vertical Range?

Jul 31, 2013

I have a massive list of items, most of the same items have different detail depending on the item itself and/or region its being sold etc. I'm been using combo boxes to change regions giving the full range of items within that region but different prices etc.

The problem i'm having with combo box or even vlookup is I can only search or change details in rows (row number), and not able to figure out how to change details within a set of columns (vertically). I want to be able to select the region via combo box and change the details within a set of columns (top to bottom).

View 9 Replies View Related

Detect Characters? Change Combobox?

Jun 5, 2008

let's say combobox1 has a list of:
apple (KG)
apple (PKT)
apple (BAG)
orange (KG)
Orange (PKT)
Orange (BAG)

and a command button.

Can I make it in a way that when command button detects (kg) in combox1, the caption of commandButton will change to "KG"? if detect (BAG) combobox1, then commandButton is "Bag"?

View 9 Replies View Related

Can't Change Combobox Properties (activex)

Apr 24, 2009

How do I set the font size property and special effect property in this code?

I was trying to answer a question on Experrt Exchange but Rory beat me to it and now I'm feeling frustrated that I can't get my solution to work.

Sub AddCombo()Dim rVals As Range, rCell As Range, lTop, lLef, lHeight, lWidth, lCount As LongSet rVals = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)lCount = 1For Each rCell In rVals    If rCell.Validation.Type = 3 Then        lTop = rCell.Top        lLeft = rCell.Left        lHeight = rCell.Rows.Height        lWidth = rCell.Columns.Width            With ActiveSheet.OLEObjects.Add(classtype:="Forms.ComboBox.1", Left:=lLeft, Top:=lTop, Width:=lWidth, Height:=lHeight)                .Name = "NewCombo" & lCount                .ListFillRange = rCell.Validation.Formula1                .LinkedCell = rCell.Address(0, 0)                '.SpecialEffect = fmSpecialEffectFlat //doesn't work //                '.FontSize = 14 //doesn't work //                '.Font.Size = 14 // doesn't work //            End With                        lCount = lCount + 1    End IfNext rCellEnd Sub

View 9 Replies View Related

Change Combobox Drop Down List

Feb 13, 2008

I inherited a spreadsheet with a combox box, drop down list for user to select a project by name. The cell right below uses a lookup function to select the code listed with that project name from a list on a separate worksheet. When I edit the codes on the list used as the source for the lookup, the new code will appear as it should.

I want to edit the drop down list that appears in the combobox. I cannot find the source for the drop down list. Any ideas where/how to look for it?

View 9 Replies View Related

Combobox Without VBA Code

Aug 12, 2006

I’ve found an excel sheet (witch a sample I post) from a Hobby I have, and after looking how it work’s it occur to me, that a similar file would solve I big problem in the restaurant I work. I’ve been thinking about it and I’ve now all the layout of my new-to-be file in my head, and I was going to start working on it, when I found that I couldn’t do one of the basic think on this file. Witch is to make the combobox were you can change the text according to a number or pre-determinate options. I know that you can use VBA to add combobox’s to you excel sheet, but this doesn’t seem to be the case. You can see the example in the cell B4 in the file that I post here.

View 5 Replies View Related

Change Combobox To Multi Selection Tickbox

Jun 18, 2014

I have attached a work book.

At the moment when you click the macro botton on the sheets a calender shows and you can select the inspection done tab, this gives you a list to select witch then updates the selected task in the sheet.

How can i get this to allow single or multiple sections so that if more than one task is completed on the same date they could be updated all at once.

final1.xlsm‎

View 4 Replies View Related

Coding On Change Function In Combobox And Text Box?

Jul 5, 2014

How to make it function able. Here are the details.I have a user form named UserForm1 in the user form I have a text box and combo box. Combobox is named as ComboBox1 and text box is named as TextBox1.

Along with the above 2 fields in form, I have 2 labels, Label2 & Label6.

TextBox1 contains date (which user can either type or chose form calendar), and ComboBox1 will have Employee ID that needs to be choose. Upon selecting both, my Label2 caption should have employee name & Label6 caption should have shift time.

By using formulas in excel I have employee name in Sheet2 cell b2 and shift time in Sheet2 cell b3. Upon change either in ComboBox1 or TextBox1, I want data in Sheet2 cell b2 be the caption of Labe2 and data in Sheet2 cell b3 be the caption of Labe6.

What is the code to get this done, if either of them is blank, then label caption should be blank.

View 2 Replies View Related

List To Change Based On Answer In Another ComboBox

Feb 11, 2014

I have 2 Combo boxes and I would like to do the following:

If Combo Box 1 = Answer A then populate Combo Box 2 with dynamic list "List A"
If Combo Box 1 = Answer B then populate Combo Box 2 with dynamic list "List B"

View 1 Replies View Related

Populate Textbox From Change Event In Combobox

Mar 3, 2014

I have attached an example set up with a user form I am building. I currently have the first combo box loading upon the initialize of the user form an from that I choose one of the product types and it gives me a list with all product names associated in the second combo box. Upon a change event in the second combo box I want to populate the 3rd Column with the count of how many of that Product type.

I have a couple different code set ups in the attached sheet and neither works.

CmboBxtoTextbox.xlsm‎

View 7 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved