Lookup cells in one column and clear cells in another
 

I need a macro to lookup the cells in column "N" that equal zero and clear
all corresponding cells in columns "M" and "J".

Lookup cells in one column and clear cells in another
 

Josh
Do you mean those cells in Column N that have a zero ("0") in them or
those cells that have a mathematical value of zero? Note that a blank cell
has a mathematical value of zero. HTH Otto
"JoshW0000" wrote in message
...
I need a macro to lookup the cells in column "N" that equal zero and clear
all corresponding cells in columns "M" and "J".

Lookup cells in one column and clear cells in another
 

Otto,

I mean the cells that have "0" as a mathematical value. Basically, I'm
dragging and dropping formulas in thousands of cells in columns "J" and "M"
and there is to be a space in between each group. The cells in column "N"
will be blank. I just need a macro to clear "J" and "M" where "N" is blank.

Sorry I should have been more specific.

"Otto Moehrbach" wrote:

Josh
Do you mean those cells in Column N that have a zero ("0") in them or
those cells that have a mathematical value of zero? Note that a blank cell
has a mathematical value of zero. HTH Otto
"JoshW0000" wrote in message
...
I need a macro to lookup the cells in column "N" that equal zero and clear
all corresponding cells in columns "M" and "J".

Lookup cells in one column and clear cells in another
 

Josh
This little macro will do that. I assumed your data starts in Row 2.
Sub ClearJM()
Dim LastRow As Long, LastJ As Long
Dim LastM As Long, rColN As Range
Dim i As Range, rJM As Range
Set rJM = Range("J1,M1")
LastJ = Range("J" & Rows.Count).End(xlUp).Row
LastM = Range("M" & Rows.Count).End(xlUp).Row
LastRow = Application.Max(LastJ, LastM)
Set rColN = Range("N2", Range("N" & LastRow))
For Each i In rColN
If IsEmpty(i.Value) Then
rJM.Offset(i.Row - 1).ClearContents
End If
Next i
End Sub
"JoshW0000" wrote in message
...
Otto,

I mean the cells that have "0" as a mathematical value. Basically, I'm
dragging and dropping formulas in thousands of cells in columns "J" and
"M"
and there is to be a space in between each group. The cells in column "N"
will be blank. I just need a macro to clear "J" and "M" where "N" is
blank.

Sorry I should have been more specific.

"Otto Moehrbach" wrote:

Josh
Do you mean those cells in Column N that have a zero ("0") in them or
those cells that have a mathematical value of zero? Note that a blank
cell
has a mathematical value of zero. HTH Otto
"JoshW0000" wrote in message
...
I need a macro to lookup the cells in column "N" that equal zero and
clear
all corresponding cells in columns "M" and "J".

Lookup cells in one column and clear cells in another
 

Otto,

It's telling me "Compile Error: Expected End Sub". Any suggestions?

"Otto Moehrbach" wrote:

Josh
This little macro will do that. I assumed your data starts in Row 2.
Sub ClearJM()
Dim LastRow As Long, LastJ As Long
Dim LastM As Long, rColN As Range
Dim i As Range, rJM As Range
Set rJM = Range("J1,M1")
LastJ = Range("J" & Rows.Count).End(xlUp).Row
LastM = Range("M" & Rows.Count).End(xlUp).Row
LastRow = Application.Max(LastJ, LastM)
Set rColN = Range("N2", Range("N" & LastRow))
For Each i In rColN
If IsEmpty(i.Value) Then
rJM.Offset(i.Row - 1).ClearContents
End If
Next i
End Sub
"JoshW0000" wrote in message
...
Otto,

I mean the cells that have "0" as a mathematical value. Basically, I'm
dragging and dropping formulas in thousands of cells in columns "J" and
"M"
and there is to be a space in between each group. The cells in column "N"
will be blank. I just need a macro to clear "J" and "M" where "N" is
blank.

Sorry I should have been more specific.

"Otto Moehrbach" wrote:

Josh
Do you mean those cells in Column N that have a zero ("0") in them or
those cells that have a mathematical value of zero? Note that a blank
cell
has a mathematical value of zero. HTH Otto
"JoshW0000" wrote in message
...
I need a macro to lookup the cells in column "N" that equal zero and
clear
all corresponding cells in columns "M" and "J".

Lookup cells in one column and clear cells in another
 

Nevermind Otto, it was a "ID10T" error. The macro works great! Thanks!

"Otto Moehrbach" wrote:

Josh
This little macro will do that. I assumed your data starts in Row 2.
Sub ClearJM()
Dim LastRow As Long, LastJ As Long
Dim LastM As Long, rColN As Range
Dim i As Range, rJM As Range
Set rJM = Range("J1,M1")
LastJ = Range("J" & Rows.Count).End(xlUp).Row
LastM = Range("M" & Rows.Count).End(xlUp).Row
LastRow = Application.Max(LastJ, LastM)
Set rColN = Range("N2", Range("N" & LastRow))
For Each i In rColN
If IsEmpty(i.Value) Then
rJM.Offset(i.Row - 1).ClearContents
End If
Next i
End Sub
"JoshW0000" wrote in message
...
Otto,

I mean the cells that have "0" as a mathematical value. Basically, I'm
dragging and dropping formulas in thousands of cells in columns "J" and
"M"
and there is to be a space in between each group. The cells in column "N"
will be blank. I just need a macro to clear "J" and "M" where "N" is
blank.

Sorry I should have been more specific.

"Otto Moehrbach" wrote:

Josh
Do you mean those cells in Column N that have a zero ("0") in them or
those cells that have a mathematical value of zero? Note that a blank
cell
has a mathematical value of zero. HTH Otto
"JoshW0000" wrote in message
...
I need a macro to lookup the cells in column "N" that equal zero and
clear
all corresponding cells in columns "M" and "J".