Insert Data Validation Via Macro Code

Mar 1, 2008

I have written the below code to enter some formulas, validation, and formatting. I keep running into a problem when trying to add the first validation.
The debug msg is...

Run-time error '-2147417848 (80010108)':
Automation error
The Object invoked has disconnected from its clients.

Debug highlighted portion is...

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=PRODUCT" ....................

View 9 Replies


Insert Data Validation By Vba

Jun 5, 2007

I want to insert data validation to a cell by VBA. When i record the macro to put a list (value1;value2;value3) to a Cell the following code is generated and the validation works OK.(dropdown of the 3 values)

Sub Validation_by_VBA()
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="value1;value2;value3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

If i run this code from VBA I have only one value in the dropdown (value1;value2;value3) How can i change this code so it will work from vba as well?

View 6 Replies View Related

Insert Row Based On Data Validation List Choice

Aug 10, 2008

I'm working on a simple worksheet, it is a tracking sheet for programs taught. What I'm trying to find is a code to insert a row based on a Data Validation List.

Exampl of data:

Column A is for " Name" then futher down Column K is "Program Taught" and Column L is " Date Taught".

Column K is where the Data Validation List is located with a in cell drop down.

What I would like to do is when a user selects a program from Column K a row is inserted with all of the formulas and formats from the previous row, and upon insert would like it to copy Column A into the new row.

This would be so I can keep a historical of programs and dates taught.

And to really spice things up I want to lock Columns K & L of the previous row after the new row is inserted.

View 4 Replies View Related

Insert Sheet & Name Macro Code

Apr 8, 2008

I am trying to insert 50 tabs (at different points in time during a macro) that each has a state abbreviation. I know how to get the macro to add a tab, but to name it, it wants to select " Sheet 4". The problem with this is, the tab that was created might be sheet 15 or sheet 1, and I need it to be able to name the tab no matter what sheet # it is.

View 7 Replies View Related

Macro Code To Find / Insert And Fill Text?

Oct 11, 2011

I need a macro script that goes to a particular cell in a column based on a criteria (say, locate the first instance where $0.21 appears in col. H), insert a row above it, and fill the row with the text "Note:These are above $0.20"

View 2 Replies View Related

Macro Code To Insert Relative Formula Into Range

Jun 10, 2008

I have a formula that works fine in the cell of an Excel spreadsheet but I'm struggling to translate it into VBA (your help please).

The cell formula is:

=If(B2="", "", B2 & " (version: " & F2 & ")")

I want to iterate through all rows in my spreadsheet (about 2000) incrementing the relevant row numbers in the formula @ each pass - eg changing B2 -> B3 -> B4 etc and F2 -> F3 -> F4 etc where column 'B' contains the name of the product and column 'F' contains the version number, resulting in "Product Name (version: 123)" per row.

The closest I've got to this is:

Sub LookupNameInColumnA()
Dim i As Integer
For i = 1 To Selection. CurrentRegion.Rows.Count - 1
ActiveCell.Formula = "=IF(B2="""", """", B2 & "" Version: 999"")" ' problem line?
ActiveCell.Offset(1, 0).Select
Next i
End Sub

This works OK'ish but I want each line to reflect the different data per row. I'm struggling to increment row 'B' and row 'F' in the formula, having tried "B & i + 1" and "F & i + 1" but am getting confused with quotes and concatenating strings within formulas.

View 5 Replies View Related

Data Validation With ActiveX ComboBox With VB Code

Sep 19, 2013

I found a code on [URL] that claims that it will do what I want to achieve. I tried it but it is not working for me. Here is the code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim str As String


How to verify that this code is a working code and not just bogus one?

View 1 Replies View Related

Insert Relative R1C1 SUM Formula Into Cell Via Macro Code

Apr 24, 2008

Hello I'm looking for some clarification about how to use "= SUM(RC:RC)". I don't understand what the RC:RC represents. I thought that this was the directions for where to "position" the formula, but I think I'm missing something.

I was able to include the correct cells that I need summarized, but the answer is not right; it's zero.

Public Sub SubColumn(CritStr As String) ...

View 8 Replies View Related

Create Range List Code For Data Validation

Sep 29, 2007

I am using following code to apply data validation list. However this code gives error Intermittently. The error message is 'Application defined or Object defined error'. Also this code looks little cumber some. Will really apprciate if any one can put some ligh on why is this error appearing sometimes. Do I need to change something in the code or add few extra lines. I feel following points will be necessary when you check my code

1. The data of validation list is stored under the column heading 'Reported_By_List'
2. Validation is applied on the range under the column heading 'Reported Through'
3. Start and last Cell Address Of the cells of the column in which data of validation list is
stored are extracted into the variables 'StartCellAddress1' & 'LastCellAddress1 '
4. Start and last Cell Address Of the cells of the column on which data validation will be
applied are stored are extracted into the variables 'StartCellAddress2' &

Sub Validation1()

Dim wsName As String
Dim RValue As String
Dim WorkBookName As String
Dim StartRow As Integer
Dim StartColumn As Integer
Dim LastRow As Integer
Dim CellAddress As String
Dim ColumnAddress As String
Application. ScreenUpdating = False
WorkBookName = ThisWorkbook.Name
wsName = ActiveSheet.Name...........

View 3 Replies View Related

VBA Code To Convert Excel To Text File Of DML Statements (Insert) Using Macro

Jun 11, 2014

I need a VBA code to create a Text file which should be in the form of DML (my scenario is to get Insert Statements for the Data available in the Excel) from Excel Sheet. And this has to be done by assigning a macro to command button where by clicking on it the DML text file should be generated. Even the syntax for the scenario will do.

View 1 Replies View Related

Code That Automatically Run After Selecting Item In Data Validation Dropdown List In Column C

Oct 12, 2011

I have a dropdown list in C24:C50 (=CategoryList) with data validation and a sub list in D24:D50 (=ItemList) with data validation. I am looking for a way to have code automatically run after selecting an item in the data validation dropdown list in column C.

Example; I click on C24 and make a selection. I what it to trigger code that would move me to D24 and open up the data validation list in D24. After the selection in D24 I would like it to move me back and down 1 row to C25. I have not found anything directly related to this but I have found that code can be run after a selection in a valadition list.

View 2 Replies View Related

VBA Code For Data Validation Input Message By INDEX MATCH When Cell Clicked

May 30, 2014

code that will be able to lookup a cell in Column J of Sheet1 by using a lookup value on Sheet2. The lookup value can be any cell in columns B, D, F, H, J, K, or N on Sheet2. The tricky part is, I want the result of this lookup (the result comes from Column H of Sheet1) to be placed as a data validation input message for the cell directly to the right of the lookup value when this cell is clicked.

For Example: Lookup Value is "416991" which lies in cell N8 on Sheet2. Look it up in Column J of Sheet1 and return the appropriate value "X" from Column H of Sheet1. "X" will then appear as an input message when cell O8 of Sheet2 is clicked.

View 1 Replies View Related

Vba Data Validation Macro

May 17, 2007

write a VBA macro that will check selected cells to see if their values conform to the corrosponding data validation rule?

I understand that data validation only checks the data upon entry. how to check all the cells or a selection of cells in a worksheet after the fact. I done a lot of editing and made changes to some of my validation lists and now want to know which cells no longer conform.

View 3 Replies View Related

Nested Data Validation: Figure A To Enforce Dual Data Validation On A Single Cell?

Aug 19, 2009

I'm trying to figure a to enforce dual data validation on a single cell. That is, I need to restrict the user to entering only a decimal value, only if a particular other cell (say A2) is blank. To put it another way, if A2 is blank, the user can enter a decimal value, but if A2 is not blank, the user cannot enter anything. I can use Data Validation to enforce either the decimal restriction or the ISBLANK, but I'm not sure how to make them work together.

View 2 Replies View Related

Insert Data By Use The Macro

Jun 28, 2009

I have an excel spreadsheet set up as shown in the attachment. When I insert data by using the macro (Insert farm), for some reason it puts a NA in a cell (C17).
I then select the cell click into the formula and click enter and it works. how can this be fixed. Look at the excel spreadsheet to be able to understand.

View 2 Replies View Related

Validation Of Copy / Paste Data By Macro

Sep 26, 2013

Template is created where the users copy/paste the data from other file. Data validation has been performed with the following steps:

1. Macro inserts the vlookup formula into column A, which isused for validating data that is entered by user from column B to E.
2. If the data is incorrect the N/A will be displayed in column A and invalid data will behighlighted in red color in column B.
3. This validation goes through the loop and after the loop is finished the pop message will be displayed and macro should stop so the user can correct the data.
4. After the user correct the data, the macro needs to run again to make sure there is no further errors. If there are no errors, thehighlighted cells should be cleared out of color and pop.

Here is the code that runs by command button:

Private Sub CommandButton1_Click()
Call FindNA
End Sub
Sub FindNA()
Dim ResultRange As Range
Dim ResultCell As Range
Dim iRow As Integer

[Code] ......

View 1 Replies View Related

Macro For Selective Data Validation - Which Does Not Work

Jan 17, 2013

lately I have promised to program a little macro which looked easy for me to do but on which I have now spend a considerable amount of time without finding the problem why it is not running. I am working under Windows XP with Excel 2010, here is what i was trying to do:

In a worksheet there are two columns G and H. In both columns it shall be possible to select a number of possible entries from a list. For column G this is done via data validation, no problem. Now, the choices which are there in column H shall depend on the entries made in the appropriate row of column G. Column G thus functions as an overarching category. If I choose "Tree" in G, H would give me branches, leaves, apples. If I choose "car" the choices would be wheel, engine, gasoline etc. This shall be done by a Macro:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cat1 As Range
Dim cat2 As Range
Dim x As Integer
Set cat1 = Range("G:G") 'Task Group
Set cat2 = Range("H:H") 'Task Category


When running, it gives me Run time error 1004: Method "Range" of object '_Worksheet' failed. Debug highlights the row


With Range(Cells(ActiveCell.Row, 8))

View 2 Replies View Related

Macro To Find Data And Insert Row

Feb 16, 2006

I've got a problem that's causing me a headache. i have a document with 1 column and 4000 rows (its an export from active directory).

I need to do a search cell by cell (so A1 - A4000) for any cells that contain the text "changeType". When a cell is found, i need excel to insert a new row above the current cell and insert the text "modify" into the new row (in the first column).





View 7 Replies View Related

Macro Copying Row To Next Blank Row On Another Sheet With Data Validation?

Mar 19, 2013

I am currently working in an excel file for which i want to create a macro. I am using colomn F as the base from which it should be determined whether a row should be copied. In colomn F the user can select three options through data validation. If 'completed' is selected, the whole row should be copied to the second sheet, and each copied row should be pasted to the next empty row. The data on the source sheet starts at row 11 and should be copied to sheet 2, starting from row 11 as well.

View 5 Replies View Related

Excel 2010 :: Combobox Or Data Validation With Macro

Apr 9, 2013

I am using excel 2010. I have 3 separate form control each with its own macro. I would like to create a combo box with a drop down with a list of each form control case and be able to perform the same function as the individual form control when a specific name is chosen in the list of the combo box.

View 3 Replies View Related

Data Validation List To Select Worksheet In Macro

Apr 8, 2007

I have a Data Validation list in cell A1 of a worksheet called LIST. I would like to modify the macro that I have recorded, the macro uses data from various worksheets. I would like to sort out some code so that at certain points in the macro it will select the worksheet that is shown in cell A1 of the LIST sheet and then carry out the code already recorded. THis will allow me to quickly change a sheet name that is refererred to in the macro numerous times without actually manually editing the sheet name in the macro code.

View 7 Replies View Related

Insert Macro For Multiple Lines Of Data

Feb 28, 2012

I am trying to write a formula to insert in a macro for multiple lines of data.

Column B contains the date that I am comparing the date in Column C against. I want to be able to highlight the content on that row if the date in column C is greater than or equal to column B. how to write this?

Sample data:


I would need row 1 and 4 to highlight in red. this is part of a long Macro that is written and includes many other steps, but I cannot seem to make this step work correctly.

View 2 Replies View Related

Macro To Insert A Line And Duplicate Data

Oct 2, 2006

Worksheet excel with multiple lines and colums. I need a macro to automatically insert a new Line where the cursor is located, and duplicate data from previous cells: let say cursor is located L10, macro will insert L11, and duplicate L10 -C1 data to L11 -C1. I have a macro that does this function, but the Line insertion is always at the same line.May be the macro should "read" first the cursor position, Lx and then move down +1 line prior to duplicate the data.

View 2 Replies View Related

How To Create Macro In Order To Protect Data Validation Rules

May 15, 2014

create macro in order to protect Data Validation rules.

e.g. If user copy and paste cells from others source which is not in the same validation criteria or not contain any validation rules, the existing validation will gone.

so, is there any macro which will be able to automatically run to prevent the data validation?

View 7 Replies View Related

Macro - Hide Rows Based On Data Validation List?

Dec 30, 2011

I have a data validation cell that has 5 items to be selected, lets say A-E.

I would like a macro that checks and does the following:

A or B selected, hide row 25-34, rows 45- 53

C or D selected, hide row 24-44

E selected, hide rows 34-53

In each case, the macro should check and unhide all rows between 25-53 before doing the above

View 9 Replies View Related

Excel 2007 :: Data Validation List Crashes VBA Macro

Feb 28, 2012

I have a VBA macro for Excel 2007 below that loops through a workbook and deletes a picture (shape) in a range at the top of each worksheet.

The macro works fine until a cell which contains a seemingly unrelated data validation list on Sheets(1) is changed. The macro then repeatedly trips up with a 'Run-time error 1004 - Application defined or object defined error'.

The cell with the data validation is outside of the range in which the shapes are deleted and does not set any of the variables in the macro.

Sub DeleteLogos()
Dim Count As Integer
Dim NumberOfWorksheets As Integer
Dim Logo As Shape
Dim LogoZone As Range
NumberOfWorksheets = Worksheets.Count
For Count = 1 To NumberOfWorksheets
With Sheets(Count)


View 4 Replies View Related

Delete Column - Macro Using Data Validation User Input Value?

Nov 7, 2012

I would like to delete a column using data validation list. for example :

i have a data validation INPUT list in cell A1 (Part No., Supplier 1, Supplier 2, Supplier 3) the heading start from B2,C2,D2,E2,F2. If user select Supplier 1 from data validation list in cell A1, the column Supplier 1 [c2] should be deleted.

And/or also if in cell B1 have a data validation INPUT row list (Part no.) & if user select part no.,
the selected part no. row should be deleted.

View 1 Replies View Related

Adding "Data Validation List" By VBA Code

Jun 27, 2006

I want to add "Data Validation List" by VBA code.

If in column "A" I have 100 rows of data, I would like that in column be will be 100 "combos" with reference to certaing range.

View 9 Replies View Related

Macro To Insert Lines And Then Copy And Paste Data?

Aug 23, 2012

I'm looking for a way to write a macro to insert 5 lines at the end of the data in column A. Then I want to copy a range into the newly inserted lines. I would press a button anytime I need this to occur.

Current last line of data A39

Need to insert 5 rows after A39

Then copy range BA30:CB34 into the newly inserted rows.

View 4 Replies View Related

Insert Cell Reference Into Macro For Data Filter

Nov 19, 2013

I want to insert a cell reference into the code below to replace the hard coded "100500" so the value in cell A1 replaces the criteria below. Is this possible ?

ActiveSheet.Range("$A$3:$B$17").AutoFilter Field:=2, Criteria1:="100500"
Range(Selection, Selection.End(xlDown)).Select

View 2 Replies View Related

Copyrights 2005-15, All rights reserved