added 48 characters in body

edited Jul 12, 2018 at 20:03

user10003190

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

 Set RidGrTotal = Range("B1:AH3000")  isum.Sheets("pivot custom").Activate  For Each cell In RidGrTotal   If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents  Next  Set RidGrandTotal = Range("B1:AH3000")  isum.Sheets("Pivot to MW").Activate  For Each cell In RidGrandTotal   If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents  Next

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

Set RidGrTotal = Range("B1:AH3000") isum.Sheets("pivot custom").Activate For Each cell In RidGrTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next Set RidGrandTotal = Range("B1:AH3000") isum.Sheets("Pivot to MW").Activate For Each cell In RidGrandTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

 Set RidGrTotal = Range("B1:AH3000")  isum.Sheets("pivot custom").Activate  For Each cell In RidGrTotal   If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents  Next  Set RidGrandTotal = Range("B1:AH3000")  isum.Sheets("Pivot to MW").Activate  For Each cell In RidGrandTotal   If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents  Next

Post Closed as "Duplicate" by David Zemens excel

How can I avoid using Select in Excel VBA?

occurred Jul 12, 2018 at 18:52

cleaned up code

Source Link

edited Jul 12, 2018 at 18:46

PeterT

8.6k
1
19
46

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

Set RidGrTotal = Range("B1:AH3000") isum.Sheets("pivot custom").Activate For Each cell In RidGrTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next Set RidGrandTotal = Range("B1:AH3000") isum.Sheets("Pivot to MW").Activate For Each cell In RidGrandTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next

Set RidGrTotal = Range("B1:AH3000") isum.Sheets("pivot custom").Activate For Each cell In RidGrTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next Set RidGrandTotal = Range("B1:AH3000") isum.Sheets("Pivot to MW").Activate For Each cell In RidGrandTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

Set RidGrTotal = Range("B1:AH3000") isum.Sheets("pivot custom").Activate For Each cell In RidGrTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next Set RidGrandTotal = Range("B1:AH3000") isum.Sheets("Pivot to MW").Activate For Each cell In RidGrandTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next

I copy and paste one sheet to the other, but the amount of data always changes. Whenever I paste, a column at the end of the sheet labeled 'Grand Total' appears but it messes up the data on another sheet so I want to delete it. It deletes from the second code but not the first. I need help figuring out why the first doesn't work.

Set RidGrTotal = Range("B1:AH3000") isum.Sheets("pivot custom").Activate For Each cell In RidGrTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next Set RidGrandTotal = Range("B1:AH3000") isum.Sheets("Pivot to MW").Activate For Each cell In RidGrandTotal If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents Next

edited title

Link

edited Jul 12, 2018 at 18:44

user6749601

VBA column will notdoesn’t delete whenever header appears on sheet

Source Link

asked Jul 12, 2018 at 18:40

user10003190

Loading

Collectives™ on Stack Overflow

Return to Question

VBA column will notdoesn’t delete whenever header appears on sheet