I am trying to delete columns 'A' and 'B' based on if there is some data in
column 'C'. I am trying to write a macro to accomplish this. Any help is
appreciated.

Hello,

Think logically:

if there is something in column C, must delete column A
.... so, delete column A
Now, the old column B has become column A
.... so, again, delete column A


Hope this helps !

--
Herve Hanuise
http://www.affordsol.be


"NewBee" wrote:

I am trying to delete columns 'A' and 'B' based on if there is some data in
column 'C'. I am trying to write a macro to accomplish this. Any help is
appreciated.

Hi,

You don't give too much information so use this cautiously becuase it will
cler row A & B if it finds anything in row C. Right click the sheet tab, view
code and paste it in

Sub stance()
Dim myrange, copyrange As Range
Lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row
Set myrange = Range("C1:C" & Lastrow)
For Each c In myrange
If c.Value < "" Then 'Change to a particular value
If copyrange Is Nothing Then
Set copyrange = c.Offset(0, -2).Resize(, 2)
Else
Set copyrange = Union(copyrange, c.Offset(0, -2).Resize(, 2))
End If
End If
Next
If Not copyrange Is Nothing Then
copyrange.ClearContents
End If
End Sub


Mike

"NewBee" wrote:

I am trying to delete columns 'A' and 'B' based on if there is some data in
column 'C'. I am trying to write a macro to accomplish this. Any help is
appreciated.

Mike I want to take the time to thank you for the solution you have provided
to me. I will execute it today and will provide you with feedback. I
appreciate the fact that you have taken the time to respond to my query

"Mike H" wrote:

Hi,

You don't give too much information so use this cautiously becuase it will
cler row A & B if it finds anything in row C. Right click the sheet tab, view
code and paste it in

Sub stance()
Dim myrange, copyrange As Range
Lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row
Set myrange = Range("C1:C" & Lastrow)
For Each c In myrange
If c.Value < "" Then 'Change to a particular value
If copyrange Is Nothing Then
Set copyrange = c.Offset(0, -2).Resize(, 2)
Else
Set copyrange = Union(copyrange, c.Offset(0, -2).Resize(, 2))
End If
End If
Next
If Not copyrange Is Nothing Then
copyrange.ClearContents
End If
End Sub


Mike

"NewBee" wrote:

I am trying to delete columns 'A' and 'B' based on if there is some data in
column 'C'. I am trying to write a macro to accomplish this. Any help is
appreciated.