I've got two macros that work beautifully apart from one another ... but put the two in the same Excel workbook and they bump heads. I get the infamous "Ambiguous name detected: Worksheet_Change"
I know enough about VB to get myself into trouble. So, I'm asking for help from a talented person to show me how to combine the two ... or another work around to get through this.
Here are the two sets of code in my sheet that I think are causing the ambiguous name problem. How can I work around this error?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varFind As Variant
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column 2 And Target.Column 9 Then Exit Sub
If IsEmpty(Target) Then Target.Interior.ColorIndex = 0
If Target.Column = 2 Then
Set varFind = Columns(16).Find(What:=Target.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
If varFind Is Nothing Then
Target.Interior.ColorIndex = 0
Target.Interior.ColorIndex = Cells(varFind.Row, 16).Interior.ColorIndex
I probably have a odd request, but then I think I'm just different ?
I have an Excel Workbook with Col. A approximately 1/8" wide. The formatting of this col is that the cells are set to have the typing fit into the cell, therefore it becomes so small that no one can read it. Just what I wanted. If the user needs to read what's in the cell, they can click on the cell and read it in the formula bar.
Col. B is approximately 2" wide
1st, the user enters the Path and File name, with extension, into cell A34(example).
2nd, the user types in a File Name that they will best understand into cell B34.
The Workbook is now saved.
When the user wants to open that file, they click on the Name . . . Col B34 - Easily recognized by the user.
They then click either the Button that say's "Open Excel File" -or- "Open Word File.
The macro automatically moves the selection over to column A, then the file is opened.
Now what I need
I want to use just 1 button and I will name it "OPEN"
The 2 below macros work excellant and I still need the functionality of each. What I want is that 1st it trys to see if it is an excel file and if so, opens the file and stops.
If the macro determines that it is not an Excel file, the macro then goes to the Word macro and determines if it really is a Word file and if so, opens the file and stops.
NOTE: I want to point out that I still need all the checking etc that the 2 macros currently do.
I have a spreadsheet I use to track reprimands for our employees. Reprimand Counseling Spreadsheet Example.xlsm. Previously, I had to read the entire reprimand in order to determine the policy violation(s) and then manually enter those reasons into the cell. We have a new standardized form, where the manger selects the reason(s) for the reprimand. I wanted a drop down box that I could select multiple reasons for the reprimand and have all the reasons appear on the same line, as well as being able to remove a reason from the line by selecting it again (so I wouldn't have to start over, in case I selected the wrong reason). I was able to find this code, on [URL] .... to accomplish that.
Same Cell Add & Remove
I also need to be able to manual edit some of the reasons. For example "Missed Meal Period(s) #___". I will need to be able to edit that item to read "Missed Meal Period(s) #2". I was able to find this code, on the same website as the previous code, to accomplish that. However, this code includes a line break, which I do not want.
Edit Same Cell
Since I need the code to work on each worksheet (CIVI - SOCR), will I have to enter the code on each worksheet or is there a better way to accomplish this? Is there a way to combine these two codes, while simultaneously removing the line break? I need to select multiple reprimand reasons in the same cell and edit the reasons, if necessary. I've read and reread that article for hours, but I can't get it to work.
I have two pieces of code. The first one puts a tick mark in the cell when you double click it. The second one hides column B of another sheet if the value in cell A1 of Sheet1 is "a". I want to combine these two codes so that when I double click cell A1 of sheet1 it puts a tick mark in the cell and hides column B of Sheet2 and clears the contents of range B2:B50 of Sheet2.
I need to use both of these VBA scripts in my excel project. The first is this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Sheets("Sheet2").Range(ActiveCell.Address).Value = 1 Then ActiveCell.Interior.ColorIndex = 3 End If End Sub
The second is this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lScrollRow As Long Dim lScrollColumn As Long Dim lTargetRow As Long Dim lTargetColumn As Long Application. ScreenUpdating = False lScrollRow = ActiveWindow.ScrollRow lScrollColumn = ActiveWindow.ScrollColumn..................
When I enter both into the script box and then try to run it, it says that there is a compile error with an "ambiguous name detected "worksheet_selectionchange"
I'm running a sheet with three pieces of code (all blagged from these forums thank you) Two of the sub procedures have the same name "worksheet_change which generate an ambiguous name error. This I sort of understand. However I've tried changing the second one of the subs names to "worksheet_change1" and whilst the ambiguous name error goes away the sub routine then fails to function.
I want to include a progress bar in my macro and have got the code from another website. However, after the progress bar is displayed i cannot get it to move to the next line of code in the module. In the example i've got, the code in the user form window simply calls a sub called "main" and continues on through that sub. Whenever i call one of my sub routines an error box states" ambiguous name detected". This never happens with the sub called "main"? Why is this happening? A portion of the code is shown below. After "userform1.show", the user form is displayed but the program will not move on to "get_blades" sub routine?
Browse_Folder ' Sub routine "browse_folder" selected to select folder ' containing the mea files.
UserForm1.LabelProgress.Width = 0 UserForm1.Show
get_blades (lookinname) ' Use sub routine get_blades
Option Explicit Public Const ARK As String = "Inddata-ARK" Public Const VVS As String = "Inddata-VVS" Public Const KON As String = "Inddata-KON" Public Const EL As String = "Inddata-EL" Public Const LD As String = "Inddata-LD" Public Const KØL As String = "Inddata-KØL" Public Const OpDat As String = "Opdatering"
And then macro's under it... So the aboce is in module "INIT_S". Now in another module "RUN_P" I have a sub-rutine that uses these constants with a select case. Likes this:
Sub OpEksInitNu() Select Case ActiveSheet. Name Case ARK With OpEks 'more stuff Case VVS 'more stuff Case KON 'more stuff End Sub
But when I try to run OpEksInitNu i comes with ambigious name with ARK as the error, later down I use another public constant. But i keep getting the ambigious name error.. What could cause that... I have tried to locate all ARK, VVS etc. to try to determine if it is used later on, but it's not! I only declare the constants one time, and no module is called ARK, VVS etc.
During a copy and paste I forgot to change the name of a macro in a module which had many macros. Now when I want to open that file , it hangs and does not open. how to open the file to change the name of the macro and re-save it ?
Hello, Im using a script that allows me to autocomplete a data validation list using a combo box and the code shown below. However I am getting a compile error ambigous name detected and the following line is highlighted
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
I know its because this is used twice but I am not sure what to do in order to fix this.
I want to include a progress bar in my macro and have got the code from another website. However, after the progress bar is displayed i cannot get it to move to the next line of code in the module. In the example i've got the code in the user form window simply calls a sub called "main" and continues on through that sub. Whenever i call one of my sub routines an error box states" ambiguous name detected". This never happens with the sub called "main"? Why is this happening?
Compile Error: Ambiguous name detected: Worksheet_Change
How can I resolve this? Is there a way to combine these two (2) statements?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$O$3" Then Range("B2:L13").ClearContents Range("A17:A27").Copy Sheets("Letter").Range("A16:A26").PasteSpecial xlValues Application.CutCopyMode = False End If
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "TextBody" Then Range("A17:A27").Copy Sheets("Letter").Range("A16:A26").PasteSpecial xlValues Application.CutCopyMode = False End If
I have an Excel 2003 program that contains macros. One of the macros hides certain command bars and disables the worksheet menu bar. On close the opposite is true. The problem is, if a user uses the disable macros when opening then the worksheet menu bar and other command bars are still available. I would like to hide all of the data sheets and display another sheet that would normally be hidden displaying a message that the macros have to be enabled for the program to work correctly if disable macros is chosen. When the enable macros are used I would like the Error page to be hidden.
I have a user that keeps a maintenance log in an Excel worksheet and sends an updated copy once a week to a board member. Two weeks ago, the board member started complaining that he was prompted to enable/disable macros on opening and became worried when my user stated that no macros were used in the book. He is now concerned that we have sent him a virus.
I know the file is clean because I've scanned it, and when I look at the file in VB, there are no modules or classes present just the Sheets 1-3 and the ThisWorkbook file. None of these objects have any code in them. My user does have some macros in PERSONAL.XLS but they are not used in the workbook in question.
No one else gets the prompt for enabling/disabling macros. Even if I set my security to prompt for any macros, I get no message. I'm convinced that there must be some setting in his Excel that is causing this individual to get this message. Is there anything else other than a macro that would cause this?
Is there a way to hide a macro from the list where you choose which to run, but not in the VBA editor? The userbox I just created calls upon 2 different macros, and has a macro to bring up the userbox. I need a way to hide the macros in Module3 from selection, but keep the macros in Module4 available to choose to run.
I have two macros. Macros 1 opens another excel file, counts the number of rows it has, inserts that number of rows into the master file and then copies the data over. Key code as follows (x3 for 3 worksheets)... For k = 1 To numrows Selection.EntireRow.Insert Next k
Macros 2 'cleans' the appended data by systematically going through each row, checking if certain cells have data, and if not deletes the rows. Key code as follows (x3 for 3 worksheets)...
For l = lastrow To 12 Step -1 If WorksheetFunction.CountA(Range("B" & l & ":C" & l)) = 0 Then Rows(l & ":" & l).Select Selection.Delete Shift:=xlUp edelrows = edelrows + 1 End If Next l
Here's the weirdness. macros 1 runs fairly quick the first time out (few seconds). Macros 2 takes about 2 minutes to run (which I'm fine with). However, when I run macros 1 AFTER running Macros 2, Macros 1 goes from taking a few seconds to a few minutes.
how to use excel 4 macros. I do not even know where to put them. I have inherited some spreadsheets that have both Xcel 4 Macros and vba macros in them. (Well, I get a warning that I cannot switch them off when I disable macros on opening a workbook). I cannot even find the offending version 4 macros so that I can re-code them in VBA.
I have 12 workbooks (one for each month), they have a list of assets to our company and a running total of all expenses for the month that they incurred. The 13th workbook is a yearly analysis of each asset. I need to transfer all charges into this worksheet.
So for example:
Worksheet 1 (January)
Column A Column H Asset # Total Expense 5021 $3,041.52 970289 $242.08
Column A Column B Column C Column D Asset # Asset Description January February 5021 Rivet Machine $3041.52 $345.65
So hundreds more machines for twelve months can take awhile to populate this info and very confusing when dealing with separate worksheets.
I need to write IF statement with 4 criteria, or at least I think IF will do the trick. It would be difficult and not very visual to describe my question here, therefore I have attached a dummy workbook with the comments. Basically I have got 2 values in 2 columns. Next 2 columns will hold letter "x". There are 4 possible variations how "x" will appear in those two columns: first, second, both or none. So depending where the "x" is, I need to return one of the 2 values.
the biggest problem is that this formula does not work as it is. Or is there some other function than networkdays that i could use?
The purpose of the formula is to count how many "objects" that are in service have been there for over 20 days. There a a few other criteria also, but sumproduct takes care of that. Can networkdays even be used the way i´m trying to?