cut and paste looper that looks at columns for ranges

[amartin575]

Hello,

I have the attached file that has ranges in column DK and DL. I need a macro that will loop through the columns. If there is a value(range) in column DL, cut the range in that cell, and paste it into the range given in column DK adjacent to that cell. If the fields are blank leave the data along and go to the next row until it goes through all of the data on the tab. To reduce size to load I had to paste value the tab so formulas are removed but for the code we do not need that. I can paste the code into the file I need it for. Thanks for any help in advance.

[amartin575]

In the file the ranges in DK and DL should say 'CY & PY Sales (2)' not 'Data Sample'. I just noticed the different tab name. Hopefully someone will be able to help.

[JOHN H. DAVIS]

Does this help?

Please Login or Register  to view this content.

[amartin575]

Thanks. The macro did cut and move the data in DL into DK but that isn't exactly what I meant. In columns DK and DL there is a formula that would tell me what the range of cells is within a data set that needs to be cut and placed somewhere else. For example. Cell DL17 has 'Data Sample'!$Y$16:$AH$16. That is telling me the range that needs to be cut. In cell DK17 there is another range 'Data Sample'!$Y17:$AH$17. That is telling me where the range that was just cut needs to get pasted to. I think the code you show works it just needs to be modified to use the information in the cells as the range in the code to go find and cut and then the next range in the code to go to paste to.

[amartin575]

This is the formula used in the DL column to give me the range of data needed to cut.
=IFERROR(ADDRESS(ROW(A20)-1,$DJ20,,,"CY & PY Sales (2)")&":"&ADDRESS(ROW(A20)-1,VALUE($DJ20+$DH20)),"")
This is the formula used in the DK column to give me the range the data needs to get pasted to.
=IFERROR(ADDRESS(ROW(A20),$DJ20,,,"CY & PY Sales (2)")&":"&ADDRESS(ROW(A20),VALUE($DJ20+$DH20)),"")

Any ideas?