Macro To Copy Row And Change Value Of Cell Based On Cell Value?

Oct 7, 2011

Basically, I need to reformat a set of data (see before and after). A specific column should only contain 1 value, if there is more than 1 value it will be separated by a comma. If this column contains more than 1 set of data then I would need to insert a row and duplicate the information based on how many different sets there are. All the copied data should remain the same with the exception of the "Key" column, it should only have 1 value and each copied row should contain the corresponding value in the key field.

BTW - it could be on the same sheet or a different worksheet (doesn't matter)

Name Number KEY Date
Name1 1 a,b,c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one,three 12/1/2011

Name Number KEY Date
Name1 1 a 12/1/2011
Name1 1 b 12/1/2011
Name1 1 c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one 12/1/2011
Name 3 5 three 12/1/2011

View 2 Replies


Copy Entire Row To New Sheet Based On Cell Change

Feb 10, 2013

I am trying to copy an entire row to another tab based on when a cell changes. The column where the change will come from in colum N. I am using this code based on what I have read on this board, but cannot seem to get it to work correctly.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LC As Integer, iCol As Integer, Found As Range
iCol = 14 'column containing K
LC = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
If Target.Column = iCol Then
Select Case Target.Value


In the end what I would like to do is everytime there is a change in column N, the macro copies the information from that row into the other tab. I would like the information to overwrite anything that is alraedy in that tab as well. So if someone accidentally putc in a C instead of a K, it will not keep that information in the wrong tab.

View 7 Replies View Related

Text Copy To Another Sheet Based On Change Of Actual Cell

Jul 20, 2013

I have this code on my sheet1:

Private Sub Worksheet_change(ByVal Target As Range) Dim KeyCells As Range
Set KeyCells = Range("K:K")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If ActiveCell.Value = ActiveCell.Offset(0, -6).Value Then
ActiveCell.Offset(0, 1).Value = ((ActiveCell.Offset(0, -4).Value) * (ActiveCell.Offset(0, -5).Value)
End If
End Sub

Now I would like to add another code: When I will change value in actual cell (sheet1) then copy value from cell A1 (sheet1) to the first free cell in column A (sheet2). I still have problem with error that I am out of range if I tried to copy it to sheet2.

View 2 Replies View Related

Run Macro Based On Cell Change

Jan 7, 2007

I am working on a training scheduler. In which a sheet contains the details of the trainings that are scheduled now i need that if any training is canceled then a mail needs to be sent (Status is updated in cell). I have code to send mail however the problem that i am facing is that how can i execute this macro when training is canceled. I did a search and found the following thread

How to call a macro based on a value of cell?

but the code given in the thread uses a specified cell address to execute the macro. Where as in my case I can not provide a specific cell address as any training can be canceled.

View 9 Replies View Related

If Statement In Macro: Macro To Change A Range Of Cells Colours Based On A Single Cell?

Mar 16, 2007

1st - Need a macro to change a range of cells colours based on a single cell having a value greater than 0.001. ie. cells A1 - G1 need to change to grey based on cell F1 having a value greater than 0.001 entered in it?

2nd - Also a macro for deleting the text contents of cell C1 based on cell F1 having a value greater than 0.001. Therefor if cell F1 has a number greater than 0.001 it changes the colour of celss A1 - G1 and also deletes the text in cell C1?

View 2 Replies View Related

VBA Macro To Auto Change Cell Color On Protected Sheet Based On Input

Apr 13, 2009

I have a macro code for conditional formatting. The first 2 lines of the macro are

Private Sub Worksheet_Change(ByVal Target As Range) ....

View 9 Replies View Related

Copy Based On Cell Contents Macro

May 13, 2013

Basically lets say I have in cell A1 to A10 floor access data i.e. Users who used their ID cards to access a room.

Now the data always starts with either Rejected or Admitted then the user's name and then the card number and the access floor etc. the card currently has.

What I am looking for is that the macro should first check if the cell has Rejected or Admitted written in it - this I can do myself using =Left(A1,8) which should give me the helper column I need.

Then based on this I want it to only copy the name of the individual i.e. it should look in the cell and only copy whatever is written between "Rejected" and "(Card". The cell data is something like this:

Rejected Doe, John (Card #123456) at ABC 123 Floor1/Floor2/Floor3/Floor4 Door 1 [In] [Clearance]

View 4 Replies View Related

Repeat Copy Paste Macro Based On Value Of Cell

Mar 4, 2014

I need to repeat the following copy past macro the number of times equal to the value in column B and repeat the process for rows 3 through 27. It would end up being a loop with in a loop. The data in C3:H3 will be pasted onto the "Fixt#" sheet as many times as the value in column B3. The idea is to create an individual entry on the "Fixt#" sheet for each row on the "Totals" sheet.

Sub Create_Fixt_SheetI()
' Create_Fixt_Sheet Macro
ActiveSheet.Range("B" & Rows.Count).End(xlUp).Offset(1).Select
Application.CutCopyMode = False
End Sub

View 3 Replies View Related

Macro - Copy And Paste Based Upon Cell Formatting For Limited Time

Jun 27, 2013

Here is what I am trying to do in lay terms:

If A2 and B2 on Sheet("Master") are not highlighted, copy and paste them into Cell A3 and B3 on Sheet("Job List - Numeric"). Do this up to Row 50 on Sheet("Job List - Numeric"). Once Row 50 is filled, jump to pasting to D3 and E3 on Sheet("Job List - Numeric") and continue up to Row 50 and so on....

I need to do this on one sheet in numerical order based upon Column A and another sheet in alphabetical order based upon Column B.

Here is what I have in code so far:

Sub Final()
Application.ScreenUpdating = False
Dim c As Integer
Dim x As Integer
For Row = 2 To 145
Range(ActiveCell, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select

[Code] .......

View 3 Replies View Related

Macro - Copy Data Based On Info In Cell From Separate Workbook

Jun 4, 2014

I have an invoicing spreadsheet, what I want is to have a main working page and then tabs after separated by vendor, but save myself a bunch of manual work in the future.

I want to be able to work in the main tab and the other tabs automatically update with the new info.

So I want the macro to search the text in the first column and if it finds "AIM Land Services Ltd." then I want it to populate the appropriate tab, in this case "AIM", with all the respective information after it ie: A-O. But I dont want it to select any other vendors/ info.

This is what I have:

Sub MoveData()
For Each cell In Range("A1:A1") ' Where to look for the date
If cell.Value = "AIM Land Services Ltd." Then ' The date
Range("A5:O350").Select ' What is the range to copy
Selection.Copy ' Copy it
Sheets("Invoice_Log").Select ' Select the Sheet it applies to
Range("A5").Select ' Where to paste the data

[Code] .........

View 1 Replies View Related

Macro To Copy Folders To Path Of Open Workbook Based On Cell Values

Aug 3, 2014

I have an Excel sheet that contains a few thousand folder paths in the first column. The first few cells in the column look similar to below.

C:UsersNameDesktopFolder Copy12010360
C:UsersNameDesktopFolder Copy12010361
C:UsersNameDesktopFolder Copy12010362
C:UsersNameDesktopFolder Copy12010363
C:UsersNameDesktopFolder Copy12010364
C:UsersNameDesktopFolder Copy12010365

I am trying to create a macro that will copy any folders that exist in any of the paths listed in the first column. The folders should be copied to the path of the open workbook containing the macro. Below is the macro I have currently, much of which was taken from information I found in this thread [URL]....


Sub wrapper3()
x = 1
Set fs = CreateObject("Scripting.FileSystemObject")
While Sheets("Air").Cells(x, 1) <> ""
v = InStrRev(Sheets("Air").Cells(x, 1), "")
dest = ActiveWorkbook.Path & Mid(Sheets("Air").Cells(x, 1), v, 99)


This code seems to work fine if all of the folders exist to be copied. My problem is that some do not and it is creating a "Path Not Found" error for which I need a fix. If the folder doesn't exist at the path nothing should be copied and the next path can be evaluated.

View 2 Replies View Related

Excel Macro To Copy Cell From Multiple Sheets Into Single Sheet Based On A Value

Aug 16, 2013

I have an excel document with multiple excel sheets(sheet1, sheet2...etc), now every sheet contains a cell "total".

Now I want to copy the row containing "total" from all the sheets into another sheet called "report".

View 9 Replies View Related

Excel 2007 :: Get Cell To Refer To Date That It Contains And Change Cell Colour Based On That?

Dec 19, 2012

I work for a UK charity and have a list of funders in an Excel 2007 spreadsheet.

One of the columns refers to the date on which a new application for funding can be made to that particular funder.

In many cases new applications for funding can't be made for 1 or more years since the last application - sometimes as many as 5 years later. How to get a cell to refer to the date that it contains.

For example, say I have in cell A1 "The Acme Funding Organisation" and in cell B1 (i.e. the "Reapply when?" column) a date of 01/04/2013 (British date format, i.e. 1 April 2013) then what I want Excel to do is to look at the date in cell B1 and if that date has been reached to highlight the cell red. That way I'll know that the reapply date has been reached & that a new application can be made.

View 2 Replies View Related

Excel 2010 :: Change Colour Of Cell Based On Date In Other Cell?

Jan 10, 2013

I am trying to create a sheet in XL 2010.

In Column A each cell will contain a date (differnet from other cells in that column) when inspection was last done.

Column B is when the weekly inspection is due.
Column C is when bi-weekly inspection is due.
Column D is when monthly inspection is due.
Column E is when 6 monthly inspection is due.

I need a formula to change the colour of cells B, C, D & E when each inspection is due depending on the date entered in A

I am hoping its possible that the cell colour can stay for 2 days after the due date and then return back to blank after the second day.

For example if cell A1 has a date of January 1 2013 then on January 8 2013 cell B1 turns red then on January 10 2013 the cell returns back to normal.


Inspection Date
Weeekly Due
Monthly Due
6 Monthly Due

January 1 2013
Change red Jan 8 & return blank Jan 10
Change red Jan 15 & return blank Jan 17
Change red Feb 1 & return blank Feb 3
Change red June 1 & return blank June 3

Ive also attached the worksheet

View 1 Replies View Related

Excel 2013 :: Change Text In Cell Based On Date In Another Cell

Apr 14, 2014

I have the the following spreadsheet: [URL] My formula in Columns A to E is the following:

=IF(ISNA(VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),"Branch Not Open",VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE))

I would like to do the following in Column A: If the date in Column C is greater than today, then Column A must also say "Branch Not Open". I have tried the following:

=IF(ISNA(VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),"Branch Not Open",VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),IF(C:C<=TODAY,"Branch Not Open, IF(AND(C:C=>TODAY,VLOOKUP(Query1_2[@Branch],Master!A:I,9,FALSE)))

But Excel does not like the formula at all.

View 1 Replies View Related

Conditional Formatting - Change Cell Color Based On Date In Another Cell

Oct 9, 2013

I have two columns. In column B is the date of "last check". I column A is the date of "next check". I would like to have cell A2 in yellow color 334 days after the date entered in cell A3 and than in red color 365 days after the date entered in cell A3. Same thing for cell B2 related to date entered in cell B3. Yellow color in cells announces that check will expire within 30 days and red color that check has been expired.

View 1 Replies View Related

Copy Cell On Each Change To Next Blank Cell In Column

Dec 10, 2006

I want to copy a changing value from a cell (A3) to the next blank cell in the column creating a list of numbers for a total.

View 3 Replies View Related

Change Colour And Values Of Cell Based On The Value In Adjacent Cell?

Nov 10, 2012

I need to write a condition in such a way that cell IF A1= "DBR","BPR","SLR","SKR" then change cell B1 to SPECIFIC COLOUR Each condition different colour. A1 values ("DBR","BPR","SLR","SKR") is a list of selectable values. if the condition is falls then B1 should be normal (white color cell) with 0 in it.

View 1 Replies View Related

Change A Cell To Be Positive Or Negative Based On Name From List On Another Cell

Dec 8, 2013

My goal from image is to enter a number for example in cell F4 and have in appear in L6 so simply L6=F4 but I want it to be negative if cell M2 reads "Outgo" and positive if cell M2 reads "Intake" as selected from the list. Is this possible?

View 5 Replies View Related

VBA To Clear Contents / Change Value Of A Cell Based On If Another Cell Has A Value And Continue L To R

Mar 9, 2013

I am relatively new to VBA. I am creating an attendance calendar that tracks employees calling sick, late etc.. It is a point based system. What I am looking for is, a way to clear the point value that was manually entered in a specific cell (I3), if there is a Value manually entered in (CU3). Each column in my worksheet is for a specific date ie; I3 is the cell where I enter the points (1.00) for that employee by calling in sick on 3/1/2013, (Column "I" is for 3/1/2013). After 90 days, this point accumulated by the employee does not count against them, so I need that point entered in (I3) to either = 0 or the cell contents to be cleared if there is a value entered in cell (CU3) which is 91 days after, so my (A3) cell does not add that point acquired on 3/1/2013.

I need this to run in a range (I3:I450) so if any value is entered into (CU3:CU450) it has the same result and continue to for (J3:J450) so if any value is entered into (CV3:CV450) and so on..

View 9 Replies View Related

VBA Change Cell Value To Specific Letter Based On Value Of Different Cell In Different Worksheet

Jun 6, 2014

I've done the following:

Sub BrownBH()
If Range("Brown!B4:B31") = X Then
Range("C4").Value = [#A]
Range("C4").Value = NT
End If
End Sub

However, this doesn't even work.

When somebody enters an X in a specific cell on one worksheet, it's supposed to change the value to A of a specific cell in a different worksheet. Sounds simple enough...but...

View 5 Replies View Related

Change Result Cell Format Based On Input Cell Value

Mar 24, 2007

Macro Based on an input cell’s (e.g. B12) setting of “yes” or “no”, format several other cells (e.g. B20:G20, B23:F23, C26:J26) as follows: keep the existing yellow shading if input cell is “yes”, change to grey shading if input cell is “no”. I would like this macro to run automatically whenever the input cell value is changed.

View 2 Replies View Related

Change Cell Color Based On Cell Content

Feb 12, 2010

I have a chart full of different names which I need to separate them by color when a specific entry is found in a Cell. For example the list has the store name "ZELLERS" + its branch number. (ex. ZELLERS #276 PL or ZELLERS #295 SL and so on). I would like to modify the below code so that It only check for the name ZELLERS and not the branch number. If it finds ZELLERS in any cell In the Range of C1:C500 then color it Red.

Below Code does that but I have to write the exact name as it appears in the cell otherwise it wont find it for me. Is there any way to resolve the issue? I am not an Excel Programmer but Only an Excel user.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("C1:C500")
If Intersect(Target, r) Is Nothing Then
Exit Sub
End If
On Error GoTo Endit
Application.EnableEvents = False
vals = Array("ZELLERS #276 PL", "ZELLERS #295 SL", "Gopher", "Hyena", "Ibex", "Lynx")
nums = Array(3, 46, 6, 3, 7, 4, 20, 10, 23, 15)
For Each rr In r..........................

View 9 Replies View Related

Event Change To Change The Sheet Name Based On A Cell Value

Jul 21, 2009

Im trying to use an event change to change the sheet name based on a cell value, but my issue is how can I error trap if the sheet name is a duplicate? Here is what I have so far

Sub ChangeName()
On Error GoTo errhandler
Sheets(1).Name = Sheets(1).range("d10")
Exit Sub
MsgBox "sheet name is already exists"
End Sub

View 9 Replies View Related

Change A Macro To From And Absolute Cell Reference To Selected Cell.

Feb 5, 2010

i am currently using the macro below to import text files into a spreadsheet. Currently, it begins the import in cell A1 which is what I recorded it to do. how do I change the code to begin the import on the active cell?

View 2 Replies View Related

Change Cell Based On Status Of Another Cell

May 25, 2013


We are looking to have the unit number yellow box (A1) change to match the unit status box color (I15:I19) with RED being first priority then ORANGE, YELLOW and final GREEN. If any-one box is say 'Inspect" ORNAGE and the others are all GREEN, the unit number should go ORANGE; and so on. If we can get this working then we want to do a MASTER that matches in the same way that would just have unit numbers. There will be several hundred by the time we're done!

View 2 Replies View Related

Separate Cell Change Based On Value In Cell

Sep 15, 2009

In my spreadsheet, certain transactions are labeled as "Fees" in Row G. I need any amounts in Row D to be negative if they are labeled as "Fees" in Row G.

I could simply find them manually and make them negative, but the logic needed in this question will help me with similar problems I am facing.

I am thinking it is probably some combination of the "IF" command.

View 9 Replies View Related

Change Cell Value Based On Another Cell Value Code

Sep 3, 2006

working this formula out for use in conditional formatting;

Make E9 show E9+H12 if H9>0

I've got the following formula to conditionally format E9 to red fill when H9>0, but it won't change the contents of E9 to E9+H12 under the same condition;


View 6 Replies View Related

Excel 2010 :: Copy Data From One Cell Based On Color Of Another Cell To Different Worksheet

Jan 30, 2014

I have an Excel 2010 spreadsheet consisting of many worksheets (20 or so). Each of these worksheets contain detail level data regarding different projects. One of the columns in these worksheets is the 'Status' column (column F). There is conditional formatting on this column where if the text is 'G' then change background to a green color, 'Y'=yellow, 'R'=Red and 'U'=Grey.

The first worksheet is a summary sheet that I would like to pull information from each of the detail worksheet's columns B, D, E, G and H if the status column (Column F) is 'R' or 'Y'.

The number of rows in the detail worksheet can change each week (as few as 0 and as many as 100)

View 2 Replies View Related

Search Column For Cell Starting With X Then Copy Row To A New Tab Based On A Cell Value

Jan 13, 2014

I have an tab with 20,666 rows that I need to separate into different tabs based on what a cell in a specific row starts with.

Data Tab
001-020-002-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-005-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-006-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-007-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-008-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447


So what I am looking to do is search the APN row in the Data Tab that starts with the number from the APN # row in the APN Tab and then copy the row to a new/existing tab named after the Description on the APN Tab.

I think that I have explained what I need to do

View 8 Replies View Related

Copyrights 2005-15, All rights reserved