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.