Re: [ExcelVBA] cut and paste cells with code

 

Hey Paul thanks for the input but the subtotals are populated as values in the report and not as formulas so I'm not sure the code below would work.

If left(Range(CurrentColumn & i).formula = subtotal then

But this brought my attention to another piece of code I use for something that might work if modified, problem is I do not know how to modify the "Then" argument to cut and PasteSpecial ValuesOnly. See this code and let me know if you see a solution:

lrow = Cells(Rows.Count, 12).End(xlUp).Row

For i = lrow - 1 To 2 Step -1

If IsEmpty(Cells(i, 3)) Then Rows(i).Delete

Next i

In this example I would want to cut and PasteSpecial ValuesOnly to the cell 1 column to the right.

How is this possible?

__._,_.___

---

Posted by: mgarza@fellowes.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___