Running A Macro When A Certain Value Is Found Anywhere In A Certain Column
Nov 26, 2008
I’m working in Excel ’03 with a large table. I’m hoping to run a macro against a cell with value ‘X’ whenever that value is found within a particular column. I’d like this to be relative and not tied to a particular column so I can tweak it as needed down the road and run it against different columns.
In the example below, lets say I’m working with column B. I’d like something that would go through every cell in the column and run a macro when it comes across a particular value. Let’s say this value is x.
__A B C D E F
1 a x a a a x
2 b a b b b a
3 c x c c c c
4 f f f x f f
5 s s s a s s
6 g x g g g x
7 a a a a a a
8 s s s s s s
So, in my example, the macro would be run on B1, B3, and B6. And, if I wanted to go back in later, I could run this on column D and the macro would run on cell D4.
I have sent an Excel application to a colleague's computer. When she tries to access/run any of the macros (assigned to buttons), Excel displays and error inidcating that they are not found.
Looking under Tools/Macros they are there.
On my computer the a macro name is for example "Submit", preceded by the full path and file name. On the colleagues computer they show up as "Module5.Submit" (with the current path and filename), where the module number is the actual module number displayed in the VB Project.
Is there a VB setting that is responsible for including the module number and how would I turn this off?
I would like a macro to order the columns as per the hardcoded list. If the column is not found than add the column at the position as per the hardcoded list. Below macro does the first part of re-ordering however if the column is not found how do I add an empty column:
Sub Reorder_Columns() Dim ColOrder As Variant, i As Integer, Found As Range ColOrder = Array("LogicalFileName", "LogicalFilePath", "UploadedDate", "UploadedBy",
I am trying to clean up and simplify my macros by compartmentalizing frequently repeated commands. I like to search for text in column headings and define the cell containing it as a range that I can later use .column or .row commands on, so my macros are a bit more flexible. The code I currently use for this is
Dim XColumn As Range ‘the cell containing the text “X” Cells.Select Selection.Find(What:="X", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Set XColumn = ActiveCell
I would like to be able to create a Macro (possibly name FindSetCell()) that will accept arguments and achieve the results of the above code in other macros I think the command might look something like FindSetCell(“text to be searched for”,”name of newly Defined Range”) But I have not figured out how to code it
I am trying to make a macro that will query a column J4 for a date, if the date is found say "Wednesday, July 4, 2012" (J8) get the text from Column K8 "Independence Day" and insert the text in Cell (H1).
The Macro Prints sign in sheets with the date in H2, it only prints Monday through friday. Then skips the weekend and the next date will start the following Monday.
The Federal Holiday schedule is in column range J (Date) and K (Holiday)
I have a string of numbers and characters and I have a Macro that I copy-pasted from somewhere online that REMOVES any character that is not a number.
Is a great Macro that transforms: "-a209 03 . 1 - 22 46" to 2090312246 I can send the code on request.
However the problem comes when running the macro into that string excel transforms it DIRECTLY into a Numeric. That is we are missing the first two, or first characters when they are zeros.
For example: "007 01 1.32.08" becomes 70113208 in stead of: 0070113208
And this is a problem.
I have tried to define the cell as text before running the macro. Fails. I have tried to re-define the cell afterwards as text but the zeros do not appear. Fails.
Including in the Macro a last minute section that forces the cell to remain as text...(seems easy! but I have do not know how to program in VBA)
I have some code here that I am using to find matches in Column D and then remove colored cell once the match is found. I am in putting the data line by line from a Barcode scanner and only want to run the macro if the date in Column A is today. Here is the code I am using.
Column B represents 600 prices. (different for each material)
Column C represents 107 materials that are present in column A and have to be removed along with their prices in column B.
Now i want to remove the materials that are in column A and C along with their prices, so i won't damage the order in the file.Meaning if i delete a row in A and shift the other materials up or down, and in the same time column B remains unchanged, the remaining materials will have different prices...and that's not good.
Here in our department we made a pretty elaborate macro that takes a report and sorts them out to 17 different sheets in a one workbook. This Macro pulls a file from a specific location on our server and then opens the CSV sorts it out color codes all the important information and saves it back onto the server under you specific initials.
They are four PC's along with our Managers laptop that run this Macro daily.
About 3 weeks ago my Managers laptop stops running the Macro completely and hangs in the middle of the whole thing. Eventually crashing Excel.
We try to remove the modules and re-import them back into the personal macro workbork but this does not work. The Macro's did not change and still fully function on the other four desktops to this day.
I uninstall Office on my Managers laptop and reinstall. Import the Modules again and still hangs up in very same spot it did 3 weeks ago.
I've tried to lower the macro security to the lowest level also and I've still had no luck with this laptop. I don't understand. The Macro's function perfectly on other PC's but will not function on this laptop.
I have a Sheet sheet1 and I want to run a macro when the cell D2 in Sheet1 is equal to 10,7,5,and 3. I only want this macro to run when those values are reached the macro then puts the data onto a sheet called wps. The macro is run as a module and is a sub macro.
I have a set of data (time in minutes) below (fig 1) that I need to use if the total time between two entered times matches a coloms total. If it matches I want Excel to use the data in that colom to affect the data in another (fig 2) colom adding the times to each cell.
Looking at both figs. below I want Row B, Colom A in fig 2 to add Row A, Col A to Row A, Col A in fig 1 since both are the total of 19.
fig 1 Coloms A B C D Row A 5 5 6 6 Row B 5 6 6 8 Row C 4 5 6 7 Row D 5 4 4 5 Total 19 20 23 26
fig 2 Coloms A B C D Row A 1:00 2:00 3:11 4:01 Row B Row C Row E Row F 1:19 2:20 3:33 4:27 Row F-A= 19 20 23 26
i'm suppose to create a code that searches a specific phrase/word in a row, then from that row, i want to mark the entire column, so that i can copy it and paste it in a new sheet
eg. find 'NE_KENNUNG', once it's found, mark the whole column "C"(the column may vary), copy the whole column, paste on to a new sheet
here's what i've written so far.. -------------------------------------------------------------
I need a VBA code that will search column H for any value that DOES NOT start with "9" (this is a character field). If it finds a cell that doesn't start with "9", I would like it to delete the entire row. It will need to repeat this process for every cell in Column H that has a value and then stop.
this two column compare for duplicates and I manage to highlight (actually not bold) the number that is duplicate but I dont want to highlight the 2nd, 3rd & so on duplicate number in c3 (highlight 1 only from the 3 numbers most of the times got 2 only) . (row start from c3 to c2000 and d3 is up to d2000 also). I already use CF for highlighting the duplicate in C3 which my formula in CF is
=IF(ISERROR(MATCH(c3:c3,$c$3:$c$780,0)),"",c3:c3) I just try to do this formula and it works, but I dont know how to command not to highlight the 2nd, 3rd & so on duplicate number in C3 (C3 only can have duplicate number within the column; D3 doesn't have any repeat number in the D column.
I need to do the same formula command for other 2 partner columns (compare for duplicates this two columns & the 1st column if have to many duplicates highlight the first number that have more than 1 duplicates only) cells need to do again is for E3 & F3; G3&H3; until AU3&AV3..
is it possible to count how many highlighted cell (not bold) there is in a column (I mean total highlighted cell) and put the answer in cell C1, E1, G1, I1 ... AS1 , AU1. Tq again..
What I would like to do is if a string e.g. "*12/18/09*" is found in column A, then place "1" in column B. There are many rows that I would like to search. Either a formula or VBA would be fine.
This two column compare for duplicates and I manage to highlight (actually not bold) the number that is duplicate but I dont want to highlight the 2nd, 3rd & so on duplicate number in c3 (highlight 1 only from the 3 numbers most of the times got 2 only) . (row start from c3 to c2000 and d3 is up to d2000 also). I already use CF for highlighting the duplicate in C3 which my formula in CF is
=IF(ISERROR(MATCH(c3:c3,$c$3:$c$780,0)),"",c3:c3)
I just try to do this formula and it works, but I dont know how to command not to highlight the 2nd, 3rd & so on duplicate number in C3 (C3 only can have duplicate number within the column; D3 doesn't have any repeat number in the D column.
I need to do the same formula command for other 2 partner columns (compare for duplicates this two columns & the 1st column if have to many duplicates highlight the first number that have more than 1 duplicates only) cells need to do again is for E3 & F3; G3&H3; until AU3&AV3..
is it possible to count how many highlighted cell (not bold) there is in a column (I mean total highlighted cell) and put the answer in cell C1, E1, G1, I1 ... AS1 , AU1. Tq again..
I need a VBA script that can display a search box on multiple sheets within the same workbook similar to using ctrl + F and search values in column B only. If there is text or the row happens to be empty then it should skip that and only search numbers. Also the numbers in column B range from 50000 to 89000 and if there is a wrong number entered then I want to have a pop up box saying Error: invalid value or something like that.
Sub search_box() Range("B49000").Select Cells.Find(What:="some#", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Cells.FindNext(After:=ActiveCell).Activate End Sub
I would like to use the following code to see if the word "reservoir" shows up in any of the rows in a certain column. If it does I want to insert the formula = SUM(D7:D257)*0.1 into cell C2 and if it doesn't then I want to put a 0 into cell C2. I've tried many routes but can't get past the error if it can't find the word.
I'm writing some code where I need to know the column in which a specifc text string occurs. Because of the nature of the sheet, the string will only appear in one column, but that could be in almost any column on the worksheet.
For example say the text string is "Year 1", I need to find the column with this string, and then offset down to a predetermined row, or offset over to the appropriate column (something like below).
With Selection .Offset(0, x).Select If List.Selected(0) = True Then y = i - 1 With Selection .Value = Salary * Inflation1 ^ y End With Else
I would like to know how is it possible to only run a macro with IF command if a path is found in a computer. My desktop user is example, jc855, and my coworker is jc886.
I would like to start the IF command such as, if C:Usersjc855 & C:Usersjc886 found, then keep going, otherwise, message box : "You are not authorize to run this macro".
By having this path, people will be able to download this macro but the access is only granted if their user is added thru the VBA. (which only me can access to edit it).
I have 10 worksheets in my workbook. The two that I'm concerned with in this post are "Main" and "Completed". If Column AA in "Main" contains the word "Complete" (which is from a drop down list) I want to copy the entire row from "Main" and paste in the "Complete" sheet without over-writting previous pasted rows.
Back in sheet "Main" I want the data in that row to be cleared with the exception of Column A as it contains a formula for sorting blanks. If I delete that row it will mess up my links on other sheets.
I'm using this code to find values of "FEP MHS" or "LSD MHS" in column S and if column S containes either of these values it deletes the entire row from the spreadsheet. I need this to work on a spreadsheet that runs on a daily basis and each day it contains a different number of rows. I have used this code to successfully delete most rows that contain these values in Column S but for some reason it does not delete all the rows, typically leaving 6 - 7 rows that contain these values. I'm using Excel 2007 I need code that finds the last row used and deletes the entire row if these values are present.
Dim CelRSLHMHSD As Range, RngRSLHMHSD As Range, iRSLHMHSD As Long Set RngRSLHMHSD = Columns("S").SpecialCells(xlConstants, xlTextValues) For iRSLHMHSD = RngRSLHMHSD.Count To 1 Step -1 If RngRSLHMHSD(iRSLHMHSD).Value = "FEP MHS" _ Or RngRSLHMHSD(iRSLHMHSD).Value = "LSD MHS" _ Then RngRSLHMHSD(iRSLHMHSD).EntireRow.Delete Next iRSLHMHSD
I need to create a macro that will loop through a list of names on Sheet 1 / Column A, and if that name is listed on Sheet 2 / Column A, then it will set Sheet 1 Column B (for that one name) to "1".
The problem I've run in to is that both the lists change in length each time I have to run this (so no set range).
I've been able to get this to work with two ( nested) loops, where the first loop goes through the Sheet 1 list and the nested Loop looks for the name on Sheet2, but it is extremely slow.
Is there any simple VBA code or formula that I'm missing that could do this? I've tried to do something with the " Find" VBA command, but I can't see how it would apply to this if the list changes in size.
I have a worksheet with several option buttons and until yesterday, I had no problem selecting them. But today, every time, I select a radio button, an error shows up stating "Cannot run Macro "Option Button_click. Macro is not available in this workbook or is disabled". When the user selects a radio button, text appears in Col B depending on what button was selected (using VLOOKUP). That stuff is still working fine. It's just as soon as I click a radio button, the error shows up.
Based on the radio button selected, user can add in information to the columns adjacent to it, and then click a button to store that information in some rows below. The code for that button is stored in the sheet module. I have tried enabling macros and disabling macros and no change has appeared. What I have noticed though is that yesterday, when i opened the workbook, a yellow bar appeared asking if I wanted to "Enable Content". Today, that bar didn't appear.
