VBA Macro To Select Cells With Certain Value And Perform Action On Adjacent Cell

Mar 10, 2014

Converting old reports to usable excel format. I am having trouble using VBA to set up a looping macro that would search Column A for cells with the text string: "ACTIVITY TOTAL". If cell has that value I would like to perform text to column action on the adjacent cell (R0C1). The macro recording for the test to column settings i need is :

Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

I have attached a sample of what I am currently working with. The actual file has roughly 6000 lines of data, so I would like the macro to go through all lines.

Attached File : LoopingVBA.xlsx‎

View 3 Replies


ADVERTISEMENT

Adjacent Cell In Row Action Not Then Repeated

Jun 13, 2014

Per the table below, I compute how many months to average project costs over, establish month in which the costs begin, and these accumulate in the work in progress (WIP) end columns, however in the month the final stage (to hit 100%) of costs are complete, the project is invoiced and the WIP is released - Noting the month in which the last costs are incurred are not added to total to reverse out. The 3 projects and final columns demonstrate the different scenarios and the results I would expect to see, I just can't formulate anything to release the previous months WIP without it repeating the negative for the rest of the year - if that makes sense?

Sheet1 *ABCDEFGHIJKLMNOPQRSTUVW1
*********Project start point*Forecast costs incurred*Work in progress2**% project complete
****** * * * * * * 1 * * * * * 2 * * * * * * * 3 * * * * * * *4 **********3
ProjectJun-14Jul-14Aug-14Sep-14CostsStagesMonths*Jun-14Jul-14Aug-14Sep-14

[Code] .......

View 2 Replies View Related

VBA Check Name In Range If Not Perform Action?

Apr 12, 2013

If a name is entered in cboRepName combo box, I want to check if the name matches the list of names in the named range "Names" found in sheet repInformation. If the name is not found, then perform tasks.

Here is what I have so far, of course is not working, but I think I am close.

Code:
Private Sub cboRepName_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim repName As String
Dim nRange As Range

[Code].....

View 2 Replies View Related

Using Double-click On Mouse To Perform An Action?

Aug 18, 2009

I have an excel file with a column (I) which lists the total number of businesses in a different tab (DATA) that meet certain restrictions (these restrictions being listed in the same row in different cells). When the cell under coluimn "I" is double-clicked, it pulls the businesses from tab DATA that meet the restrictions for that row and shows them all in another tab.

I don't know the person that created this and was wondering if there is a way to figure out what is being done to make this happen? I looked in macros, but didn't see anything relating to this. Anyone know how this is done?

So you know, I have tried double-clicking other cells, but nothing happens - not even editing into the cell (altho this can be done from the toolbar up top).

View 4 Replies View Related

Perform Action Based On Choice From Validation List

Sep 22, 2009

In all the cells in column F I have a validation list with several predefined choices, but at the bottom of this list I want an "Other..." option, which when chosen, enables the user to enter a new string in that cell if none of the predefined did not match.

View 7 Replies View Related

Perform Copy / Paste Between Sheets With Command Button And Add Message Box To Indicate Invalid Action?

Aug 23, 2013

I am trying to develop a system to allow me select different parts from multiple sheets and then add them into a bill of material on a separate sheet.

[URL] ...........

I have written some VB script the best I can and it includes a 'commandbutton' to make it easy for the user of the workbook to use.

This is how it works:

Go to 'Step 1 - Manifold 8640' tab and highlight one of the yellow cells.Once you have selected a yellow cell, you then click the 'select' button above.The value (along with other values) are copied to the 'Smart Calc' sheet.Then you go to 'Step 2 - Gland Plate' tab, select a yellow cell, click the 'Select' button.Notice how the 'Step 2 - Gland Plate' value is entered into a different group in the 'Smart Calc' sheet - this is great................BUT

The issue I am having is:

If the user goes to 'Step 1 - Manifold 8640' tab, highlights the desired yellow cell then presses the 'Select' button twice, it will add two lines of data in the relevant 'Step 1 - Manifold 8640' section....This is ok.But when the user clicks a third time, the 'Step 1' data will overflow into the 'Step 2' section of the 'Smart Calc' tab...because the script tells the data to look for the next available line to write to. This is what I am trying to avoid!

Instead, i would like a message box to popup to indicate to the user that they cannot add anymore data into into the 'Step 1' or 'Step 2' sections of the 'Smart Calc' tab until they clear the data from within the relevant section in 'Smat Calc'.

I would like to set limits on where each 'Step 1' or 'Step 2' data is written to the 'Smart Calc' sheet (so it is within its relevant section). As you can see the script basically looks for the next available cell but this isn't really good when the data 'overflows'.

Note that you are able to highlight the yellow cells in the 'Smart Calc' tab and press the delete key, it will delete the data to clear the line. That is how i designed it to work so if the user makes a mistake they are able to just delete the relevant line and enter new data.

View 1 Replies View Related

Select Non-adjacent Cells

May 30, 2008

I've always been able to select non-adjacent cells in spreadsheets, but today noticed that I can't. I need to be able to do so to collect data from one spreadsheet to another for my monthly accounting reports. It makes collection of specific data fast and simple. Without this function, it takes far longer to do reporting and is very un-reliable. With the function working, I click on the cell ranges which are black, leaving the cell ranges which are red alone. We use black and red to identify charges which appear or do not yet appear on our monthly VISA statement.

I select all the black charges along with their corresponding account codes, then double-check the page before copying the non-adjacent ranges to make certain that all of the charge amounts and account numbers which are black on the page are selected and no red ones; then copy and paste the data into another sheet. It often makes collection very quick and easy.

When there are lines interspersed throughout a sheet with black and red charges strewn here and there, it is very easy to select only the black data and skip the red. Doing so by copying the entire range then deleting the red is laborious, and time-consuming.

What has happened to Excel's ability to select non-adjacent cells? Today, I can't select even two separate cells, using Excel's ability to do so by holding down the CTRL key, as I have in the past.

I'm using Excel 2007, on Windows Vista 64 bit; and I've made sure that my Insert function is turned off (thought that might change things?) and my Scroll Lock is turned off (I've bumped that many times in the past and found Excel doing weird things when trying to navigate a spreadsheet with the arrow keys).

View 9 Replies View Related

Select A Range Of Non-adjacent Cells

Jun 29, 2006

I have a series of data values in non-adjacent columns in an excel spreadsheet.

In the following example, assume the | (vertical bar) refers to the start of
a new cell:

F|45|A|30|F|15|F|10

Using the SUMIF formula, I want to add all numbers which are preceded by a
cell containing the letter F.

SUMIF(A1:G1,"F",B1:H1)

What I need to do is specify a range of every second cell in the row (starting with Cell A1) for validating they equal F, and a range of the alternating cells (starting in column B1) for the range containing the data to add. How can I specify these ranges (I can't name each cell individually as I have more than 30 cells to add up in my real life situation and the IF function allows selection of no more than 30 values)?

View 12 Replies View Related

Select Adjacent Surrounding Cells

Apr 23, 2008

If I write some VBA that selects a specific cell, for example the highest value in a coumn of data, how do I then copy a given (say 3) cells above and below (and including) this selected cell.

View 6 Replies View Related

Select Cells Based Value In Adjacent Column

Jan 4, 2008

How would you select cell values from differing rows based on the name in an adjacent column. ie, if it says John, add that data to the source data, if not move on.

View 5 Replies View Related

Macro To Populate Cells With Formula Based On Adjacent Cell?

Mar 31, 2014

I have a spreadsheet with data populated down column B. This size will vary from day to day so is there a macro I can run that will populate Column C with a formula based on their being data in the adjacent cell.

View 2 Replies View Related

Excel 2007 :: Make Connection To SQL And Perform SELECT

Jun 2, 2014

Essentially all I want to do is create a procedure/function in Excel such as =SQLdata(3), where 3 could be customer ID and then the function would make a connection to SQL and perform the SELECT etc procedure and return the CustomerName in the cell with that formula.

I have excel 2007 and MS SQL where my data is stored. I understand that I need to make the connection to my SQL database, but I really do not know how to do this.

View 4 Replies View Related

Call Or Go Back To Macro After User Action Such As Clicking In A Cell

Sep 27, 2012

I am about to write a small macro to do a iteration calculation. I would like though for the user to select me a cell so that the macro uses the value in that cell to start calculations. Now, what I think would be the problem is how do I code a "time" or notice an action such as clicking in a cell to continue with the macro.

Would it be by inserting a pause in the code of a certain time so that gives the user time to click and wait for the code to start? If so, how would much time is enough? Is there another thing that could restart the code such as "noticing a click in a cell" command in VBA?

View 1 Replies View Related

Excel 2003 :: Macro Breaks Because Can't Copy Cell And Then Cannot Select Cells In Workbook

Oct 21, 2013

i have a macro that opens 10 other workbooks and copies cells onto a "master" workbook. Until recently, everything worked fine. Suddendly, while it opens the 9 books and copies as it is expected, but when it opens the 10th wb, the macro breaks at a very simple copy/paste.

The weirdest thing is that after it breaks, I cannot select any cells neither in the opened wb nor in the master wb. This continues even after I press the "reset" button in the vba. So, I am only able to select objects (text boxes etc) in my wb and not any cells.

Also, the "arrow" icon on the design toolbar is not active. And I've tried pressing and de-pressing the F8 key, but I still cannot select any cells.

I have option explicit in the beginning of my macro. And i'm using excel 2003.

View 2 Replies View Related

Excel 2010 :: Macro To Copy Two Adjacent Cells Every 7th Row

Mar 15, 2014

I need to copy two adjacent cells down every 7 rows in the same column.

Would do it manually but have some 4000 rows.

View 2 Replies View Related

Copy Non-adjacent Cells In A Row From One Spreadsheet To Adjacent Rows In Another

Jan 5, 2014

I have a workbook with 30 worksheets. Each sheet has 84 rows of data (start in 15 columns (A to O). I would like to create a summary sheet that only shows the most important data from each sheet.

The summary sheet would have 12 lines of headers and formatted crap at the top.
The Summary sheet header columns would be:

Site (A), Date (B) Health (C), Status (D), Critical (E), Task (F),
Dependencies (G), Owner (H), T-Date (I), Task Date (J), Mitigation Date (I)

The data in the sheets are not in that order, of course.

That
1. puts the name of the sheet I am copying from in column A
2. the deadline date in Column B (that date is always in C10 of each worksheet)
3. and copies Cells from Column A,B,G,H,I,O in any row in which the value in A is not "good" into columns C through H. I would like to paste those rows into the summary sheet. I have code that loops through the sheets and rows in each sheet to find the rows to copy. I can copy cell values directly from the active sheet to the summary sheet, but because I am copying a cell at a time, it takes 7 minutes. Yes I am impatient :)

Here is the code snippet where the copying is done:

Dim sh As Worksheet 'current worksheet
Dim DestSh As Worksheet 'worksheet in which to paste summary
Dim Last As Long
Dim CopyRow As Long 'row to copy
Dim LastCopyRow As Long

[Code] ........

ExitTheSub:

Application.Goto Sheets("KMARollup").Cells(1)
End Sub

I think there must be a way to use ranges to build an array of cell values and paste only once but I am lost here.

View 2 Replies View Related

Macro Request - If Macro Is Unable To Perform One Of Its Jobs Then Move Onto Next Line

Oct 3, 2012

I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.

However, if the user is not online, the query is unable to refresh and the macro just hangs.

Is there a code which will enable me to say " if unable to refresh then move on to the next line"?

here's the code below.

Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub

View 2 Replies View Related

Sum Cells Whenever Adjacent Cell Contains Text

Feb 22, 2014

Here's what I'm working with:

??
5
3
4
1
Total 13

5
6
7
2
Total 20

Is there any way I can sum only the cells in the right column where the left column contains "Total"?

View 4 Replies View Related

Name Cells From Adjacent Cell Contents

May 16, 2007

I want to create a macro that will run through a column and assign a name to each cell in that column that reflects the contents of another cell within each row.

for example, cell A1 = "Gerry", A2 = "Rob", A3 = "Ryan"
I would then like the Name of B1 to be "Gerry", B2 to be "Rob", etc (but to retain original contents).

Is this possible using VBA?

View 3 Replies View Related

Macro That Will Clear Contents Of Cell Based On Format Of Text In Adjacent Cell

Feb 18, 2009

Been racking brain, searching through the forum here, and my Excel 2003 Bible all day trying to figure out this problem to no avail. I would like to clear the contents of any cell in a given range if the cell immediately to the right of is formatted as bold.

View 2 Replies View Related

Macro To Copy Data From One Cell To Another If Adjacent Cell Meets Certain Requirements?

Feb 19, 2014

Basically I have three columns in a work Sheet F, G, & H. F is empty, G contains text and column H has both text and numbers.

I want to be able to automatically copy the value from Cell H to Cell F if cell G contains the word cost.

I would also like to delete all rows where Column G & H contain two dashes -

View 7 Replies View Related

Macro To Copy Value From Adjacent Cell?

Jul 14, 2012

Macro to find blank cells in column I , wherever it finds a blank cells , cell value in column F adjacent to blank cell gets copied in column I ......

View 3 Replies View Related

Select Adjacent Range ..

Jul 30, 2008

I only want to select the adjacent range from

Range("A2", Range("A2").End(xlDown)) to the left

View 11 Replies View Related

Copy Cell Values In One Cell Based On Value Of Adjacent Cells

Feb 20, 2014

What I want to achieve: those cells have number 1 ( in column E) , adjacent cell values ( In Column D) are copied to G12 in the following format:: Mark,Lark ( i.e. cell value , cell value, etc)

is it possible ( with a command button) Sample attached

View 4 Replies View Related

Find Cell, Copy Adjacent Cell Or Cells To Clipboard

Jun 14, 2007

Heres what I want to do in VBA

1. Put a value in cell H1 (text and numbers)

2. Find a matching value in column A (starting in row 2), error message if the is not a match.

3. Copy the adjacent cell column B (rows vary) to the clip board. It would copy until it found the first blank row.

I have attached a scaled down version of the spreadsheet, the one I use has 100's of codes. I know some VBA but not much. I searched the forum but could not find anything.

View 4 Replies View Related

Combining Cells Based On Value Of Adjacent Cell.

Jan 11, 2009

I have been reading through trying to find a similar post but the nearest i could find was one dealing with numbers rather than text. This is how the workbook looks.
Column A contains a list of numbers based on vehicle types. Column B contains a list of vehicle names.

A B
1 Car,
1 Taxi,
2 Bus,
2 Lorry,
3 Skateboard,
3 Bike,
1 Motorcycle,


What I am looking for is the best way to combine the text from column B depending on the value of column a. the finished results would then end up as: "Car,Taxi,Motorcycle,", or "Bus,Lorry," etc. This is just a simple list.. The one I am working with has around 2500 entries. I have been trying to do this using the CONCATENATE function and IF statement but it's just not working..... My head is ready to explode

View 2 Replies View Related

Clear Cells On Adjacent Cell Change

Mar 13, 2012

I have text in column F (cells 20 to 199) that changes automatically based on pre-determined time constraints (this is done via an IF formula). I want the 4 cells adjacent to F to clear contents when the text in F changes. For example when cell F126 changes text automatically, G126, H126, I126 and J126 all clear. If cell F99 changes, cells G99, H99, I99 and J99 clear. And so on.

View 9 Replies View Related

How To Switch Cell Contents Between Two Adjacent Cells

Sep 18, 2012

I have a list of 20,000 addresses and because of the way the sheet gets populated by different departments, the COUNTRY CODE and POSTAL CODE columns get their data reversed.

Instead of 48193 US, it gets put in as US 48193.

Since i have some many, and they are not in order at all (I could probably sort by COUNTRY CODE and get 95% of the in order (except for those pesky Canadian codes), is there a macro way out of this?

Even if I select two adjacent cells and run the macro and have the contents switch. Or if there is a way to do the 95% all at once.

View 9 Replies View Related

VBA Macro To Move Data To Adjacent Cell

Mar 26, 2013

writing a Macro which will move data from a cell to an adjacent cell.

E.g Column B has only data in certain cells, I would like the Macro to work down the column and every time it encounters data in Column B to move it into the adjacent cell into Column A.

View 4 Replies View Related

Macro To Perform Multiple Jobs?

Jul 30, 2013

I need a macro which will perform 5 simple tasks on my Customer sheet once a button is clicked:

1) Change Cell C15 (Drop down box) Value from "Confirmation" to "Delivery Note"
2) Put the current date in Cell H43 (I do not want this to update everytime i re-open the spreadsheet however) - is this possible?
3) Value of H23 to be the same as C16 on the Delivery Sheet ( guessing this will be =Delivery!$C$16)
4) Print Customer sheet
5) Print Delivery sheet

I'm guessing the hardest part is to stop the date changing?

View 3 Replies View Related







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