# Macro To Move Range Of Cells When Value Of One Cell Changes?

Oct 14, 2013

I have an excel file that contains data from bank transactions.

In column A at irregular intervals is a cell with " User Group:" It depends on how many transactions there are in a batch, could be 1 or up to say 200 as to when the next "User Group" cell is found.

After that also in column A is "Item" then "Lodgement Ref" then at the end "Batch Totals"

i.e.
User Group:
Item
Lodgement Ref
Batch Totals:
User Group:
Item
Lodgement Ref
Lodgement Ref
Lodgement Ref
Batch Totals:

I want to find each instance of "Item" then move that cell and every cell over to column CK down to and including "Batch Totals" i.e. A3401 to CK3410 to CM 3400 so it lines up with the top of the transaction block.

There are over 60,000 lines so it's worth trying to find a solution as I can then use the methodology to make other refinements in the spreadsheet.

## Move Cell/range Of Cells

Aug 12, 2009

I've been trying to figure out how to use a formula that would enable me to copy/copy & move a range of cells right one column if a certain criteria is met.

Basically, if a criteria is met, I want to 'copy' everything from a row to another row, but offset it by one column (so that what was in, let's say, a1 would be in b2).

I've been tinkering with index(), if() and offset() in various combinations but think I must be missing something.

## Move Range Of Cells Based On Cell Criteria

Nov 16, 2007

I'm trying to do is loop through a range of cells, and if the cell meets a condition I want to move it and 2 cells to the right of it left by one cell.

Sub MoveRangeOfCellsBasedOnCellCriteria()
Dim myrange, cell As Range
Set myrange = ActiveSheet.Range("H2", Range("H65536").End(xlUp))
For Each cell In myrange
If IsNumeric(Left(cell.Value, 1)) _
Or Left(cell.Value, 5) = "UNIT " _
Or Left(cell.Value, 4) = "THE " _
Or Left(cell.Value, 5) = "FLAT " Then
Else
cell.Range("A1:C1").Select
Selection.Cut
cell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
cell.Offset(1, 1).Range("A1").Select
End If
Next cell
End Sub

## Macro To Move A Range Of Data Over 1 Cell, If A Certain Condition Exists

Mar 4, 2008

I am trying to create a macro that will look in Column B for the word "RPLCASE." Whenever "RPLCASE" appears in Column B, the cells in that particular row will move over (Right) one space. I am simply trying to align the data from a file that I FTP'd from Net Term to Excel. You can see how the data should look in the 2nd example.

14-Feb-08JERRPLCASE671150536:116:56RPLCASE78308147:077:54RPLCASE89431228:228:57RPLCASE910592289:159:59RPLCASE10114732310:0010:48RPLCASE1112146811:4511:58RPLCASE12136563612:0612:56RPLCASE13144122113:0313:58RPLCASE14154642314:0114:23**********--------------TOTALS4632228LDLPKGPIK671361126:046:58PKGPIK781461247:007:56PKGPIK8963598:168:55PKGPIK9101591309:019:59PKGPIK101115113910:0010:54PKGPIK1112968711:3211:59PKGPIK121319916012:0012:59PKGPIK131412310313:0013:59PKGPIK141518716414:0014:59PKGPIK15161119715:0015:54PKGPIK16173316:3016:31**********--------------TOTALS13741178

## 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?

## Macro To Move Cells From One Sheet To Another Not Working?

Jan 24, 2014

I have two sheets and need information from Sheet titled Add-Del_chng positions to be moved to the sheet titled Cost Distribution.The issues here are :

1. The values in Cells A through J should be moved only if col Z value is 'hard coded"

2. The values should be moved to the 13th row.

3. This should happen every time the value is input into col Z of sheet titled add_del_chng.

Currently the macro does not run unless I go into the code and press play. I need this to happen automatically.

## Macro To Move Visible Cells After Subtotaling

Apr 13, 2008

I'm working with a large master list of part numbers, and matching data to these numbers from a varying data table via vlookup. I have to vlookup to the actual part number, (13,000 numbers), then subtotal the data based on the "Rollup" part number. (eg: Two different old PNs have now "rolled up" into a single part number. I am pulling sales data from all of the old numbers, and subtotaling the sales to the new number.) Too much information.

Here's my issue. After subtotaling on the rollup number, I want to copy and paste ONLY the rollup numbers and associated data to a different sheet. This should be easily accomplished by going to level 2 of the subtotals page, hiding all the old PNs and their data, selecting the remaining visible cells, then "Go To", "Special", "Visible cells". Normally, you could copy only the visible cells, and paste them wherever you want. But because of the total length of the subtotaled worksheet, (nearly 25,000 rows), I get the error message, "Micrsoft Excel cannot create or use the data range reference because it is too complex."

You can overcome this by selecting smaller ranges of data, and copying and pasting a little at a time, but since the "visible rows" will vary, I can't figure a way to incorporate this into a macro. I've tried setting specific ranges in the macro, and copying and pasting fewer cell at a time, but if the range named in the macro is a hidden cell, the macro won't select any of them.

Here's an example of what I've got so far. I realize it's not the most efficient code, but I'm working with limited knowledge and ability.

## MACRO To Move Two Cells In Another Sheet Via Command Box?

Sep 25, 2013

I need a macro code via the command box to move Sheet 1 H30 and I30 to Sheet 2 B57 and F57, RESPECTIVELY.

## Move To Next Cell Below Without Using Range

Jul 2, 2008

Is there other syntax that can be used other than:

Range("A23").Select?

I'm trying to move to any cell below some text. So, it will find "Total" and move the cell below.

Also, is there any way to specify to select cells without specifying the actual cell name?

## Macro: Move Blocks Of Cells From One Column Into The Succeding Columns

May 7, 2004

i think this will be simple for most of you. i need a macro that will move blocks of cells from one column into the succeding columns. say i have one column of 1000 values and i need to break that up into columns of 50.

## Move Formula Range One Cell Down?

Jun 19, 2014

how to move formula range without inserting any rows. For example, I have a sum(a1:a3) and I need to have sum(a2:a4). I have hundreds of these little formulas through the spreadsheet and they are driving me crazy. Is there any way I can select a block of data and have a macro simply shift all formula ranges within that block one down? Copying the formulas down and then moving the result in place of the original doesn't work as I have formulas relying on these results and I will get #REF errors. I bought an Excel VBA for dummies, but have been so swamped with work that I haven't had a chance to look at it, or even to think about where I would begin to look.

## Move Range To Last Cell On Another Sheet

Aug 22, 2008

Im trying to create a macro that when ran it copies all information from that row and puts it on a different worksheet. It needs to be put on the next available line in the new worksheet. and then the information deleted off the original and all rows moved up to fill in the gap. the rows all contain 2 formulas i'd like to keep specific to the row number Also it contains formulas id like to keep but change the cell numbers according to which row it is copied over to.

## Move To Next Blank Cell When Pasting Range

Jun 10, 2009

VBA to find the next appropriate blank cell in column "A" when copying ranges of varying sizes and pasting them in a new worksheet one after the next.

Currently I have recorded a macro that uses the code below to get to this location, but I am worried this will break when I get new data of a different range size;

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 'my initial range selection
Selection.Copy
Windows("myfile.csv").Activate
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select 'finds last cell of my paste
Range("N69").Select 'I hit the down arrow once to get to new blank row
Selection.End(xlToLeft).Select 'to go to begining/col A of new row for next paste

I have tried playing around with

ActiveCell.Next

but can't get it to work.

## Using Macro To Move A Cell

Dec 19, 2013

I've been using the record macro function to accomplish a lot of my formatting tasks for my work reports.

I'm running into a snag that I'm not sure how to fix. Essentially I want the program to recognized the term "Grand Total" and the cell to the right of it. Then I want those two cells to be moved to the far left.

The # of rows will continuously change but he column shouldn't change.

I've tried naming the cell selection to have it moved but I can't seem to make it work.

When I use the record macro function and do a CTRL F search for "grand total", excel doesn't seem to recognize that I want that cell and the cell to the right to be the ones to move. Instead, whatever row of cells I create the macro with, it wants to duplicate the move with the same exact cell.

## How To Move Multiple Cells Into One Cell

Aug 26, 2013

I have come across a format issue I need to deal with it at work.

I have a list of data like this:

A
1234567
8956423
4561237
7531596
8524561

In Column A, I have about 2,000 lines of information. What we want to do at work is create this information to be held in one cell at the top of the excel and in numerical order.

Like this:

A
1234567, 4561237, 7531596, 8524561, 8956423.

## Move 2 Cells Directly Below The Cell?

Jan 1, 2012

I have the following code that will go down through column "L", look for the value "ATS", and if found will move it to the right 1 cell. this works find,

My need is to also move the 2 cells directly below the cell containing "ATS", then clear the contents of the "Original" 3 cells before going to find the next instance of "ATS".

Sub Move_Values()
Dim myrange, cell As Range
Set myrange = ActiveSheet.Range("L4", Range("L5000").End(xlUp))
For Each cell In myrange
If InStr(cell.Value, "ATS") > 0 Then
cell.Offset(0, 1).Value = cell.Value
cell.ClearContents
End If
Next cell
End Sub

## Move Cells Down To Selected Cell?

Jul 31, 2012

I have 2 col A & F. F col associate with date values & Col A has some color cells.I want to move down those color cells to a selected non-color cell row when run a macro.

I have code which perform to move color cells down to selected cell but problem is, if i have A4 & A6 color cells and i selected F2 cell & run macro then color cell A4 & A6 move down to cell A2 but cell A3 move to place A6. The sequence is

A1A2A4A6A5A3A7A8 & so on but i want cell A3 just push down the order & sequence will be

A1A2A4A6A3A5A7A8 & so on My code is as

Code:
Public Sub Move_colored_cells_rows()
' Instead of moving the entire row , 10 columns will be moved
Const NUMBER_OF_COLUMNS = 10

[Code]....

## Remove Cell & Move Cells Below Up

Mar 17, 2008

I would like to move the data in one column up by 1/2 a row without moving the other columns/rows in the spreadsheet

Here is an example I made quickly in Photoshop - the above image is what I currently have in Excel, and the lower image is what I would like to achieve, with the column shift that I would like circled in red

(the empty space under the column heading is just an artifact from the edit, it doesn't have to be there)

## Move Cell Comments With Cells

May 3, 2008

I have a cell comment on a series of columns and want to show only one column at a
time. For this reason I hide the ones not used, but the cellcomment doesnt move and
is still at the original place. How I move the comment when the original colums between are hidden ?

## Move Cell Locatin In A Macro

Mar 30, 2009

Below is my the macro that I recorded. I want to copy and paste the same information to a new location everytime. The macro tells it to go to cell IV1, end left, then I want it to go right one cell regardles of the cell location. Here it tells it to got to ("K1"). It will do this everytime and I do not want it to go to K1, just move right one time and then paste the information.

## Macro To Move Data From A Cell Into New Row

May 12, 2014

I have an issue with groups of data in a row, that I need to copy into a new row beneath the original. I need a formula or VBA that will perform this function:

If any data is present in columns AG-AK, then copy that data into a new row below, into cells AB-AF. Also copy column B (this data is always present, it is the name of the project data contained in the original row)

If any data is present in columns AL-AP, then copy that data into another new row below, into cells AB-AF. Also copy column B (this data is always present, it is the name of the project data contained in the original row)

## Code To Move The Cells Right Depending On The Value On One Of The Cell

May 4, 2007

I have attached the sample file where I have noted what I want as a comment. I need to check for the value " Function Name: RF Pick" if this is there then the code should move 2 rows down check whether that row has the value " Each" if its there just move one row down and move the cells as I need in the output.

## VB Code Required To Move Macro To Next Row Down Cell

Apr 18, 2014

I have 'sheet 1' (data collection sheet) and 'sheet 2' (form filling sheet)

I've recorded a macro which sends data from 'sheet 2' to 'sheet 1' (linked to a submit button on 'sheet 2')

I want the macro to allow the next form filled information to be transferred onto the next line down on 'sheet 1'.

The current code is:

[Code] ......

## Don't Calculate Row Using Macro And Move To Next Row If Specified Cell Is Empty

Feb 17, 2014

The following macro does well at concatenating 2 constant values and the values in columns A and CF and places it in the CP field. What I need to know is is it possible to modify this code so if there is NOT a CF field cell value (that is it is blank) that the formula does not run and moves on to the next row? That is, the CP1 cell remains blank?

## Macro To Move A Cell Right Every Time It Runs

Mar 12, 2008

I have a spreadsheet with sales figures for a company over a few months. I want to create a macro that will insert a new month after the last month. I have got it to work for the first month but after that it will just insert 2 black cells after.

i have a named cell called Average_slales_per_month that is next to the last month all the time.

## Macro To Move Cell Down A Row Based On Criteria

Feb 20, 2009

I would like a simple macro that would actually move a cell based on criteria. In my case it would be: In row A, if a cell starts with 'Agent Name' then that cell needs to move down one cell replacing the contents of that cell.

## Macro To Move Data With Trigger Cell

Feb 21, 2010

I have a single workbook with five spreadsheets. My goal is to move data along a path (or work flow) from one sheet to the next by using a "trigger" pulldown menu choice.

Sheet1 = Prospects
Sheet2 = New Sale
Sheet4 = Won
Sheet5 = Lost
Sheets 1, 2, and 3 use the same data layout for column A - K.
Sheets 4 and 5 have the same A - K as above and also have columns L - R in common.
The last column in sheet 1, 2 and 3 is a pulldown menu (New, Upgrade, Won, Lost).

Data rows on each sheet start at row 7.

The goal is to use the pulldown choice to remove the data from the current sheet (ex: Prospect) and add it to the next open row in the required sheet (ex: New or Upgrade). I also need to be able to make a similar move from New/Upgrade to Won or Lost.

## Macro - Move To Next Empty Cell In A Column

Sep 30, 2010

In columnA I want to jump to the next blank cell in a list that continues to grow. So the first time I run the macro I want to go (blank) cell A5 to paste in some data. The next time I run it, it would need to go to cell A6 and so on.

When I do this manually, I simply hit ctrl down-arrow (takes me to the last cell w/data) and then one more down-arrow to take me to the empty cell below.

When I do this in the macro it seems to remeber the cell as an absolute reference (if that's the term) and so it just copies info in the same location as previous, instead of the next empty cell.

## 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.

## Verify Data In Specific Range Or Move To Next Open Cell Down And Past Value?

May 9, 2013

I have a command button that will run paste a value in a specified cell but I also need it to check for the next open cell and paste the data if the previous cell in a specifid rage is already filled with data. Here is my code I have below. *jumps with Joy* My Range is E6 to E10

VB:
Private Sub CommandButton1_Click()
Dim f As Double
Dim t As Double

[Code].....