Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete 0 - Column D and Column F
Is there a macro that will check each row in Column D and Column F for "0",
so that when both columns in the same row have "0" and only when both columns in the same row have "0" the contents "0" in that row of Column D and F will be deleted simultaneously? I know the code below will delete the contents but only if its in row D. Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = "0" Then c.ClearContents End If Next r End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete 0 - Column D and Column F
hi
i modified your code. works in xl03 Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = 0 And c.Offset(0, 2) = 0 Then c.ClearContents c.Offset(0, 2).ClearContents End If Next r End Sub regards FSt1 "EJ" wrote: Is there a macro that will check each row in Column D and Column F for "0", so that when both columns in the same row have "0" and only when both columns in the same row have "0" the contents "0" in that row of Column D and F will be deleted simultaneously? I know the code below will delete the contents but only if its in row D. Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = "0" Then c.ClearContents End If Next r End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete 0 - Column D and Column F
This works fantastically. Thank you.
"FSt1" wrote: hi i modified your code. works in xl03 Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = 0 And c.Offset(0, 2) = 0 Then c.ClearContents c.Offset(0, 2).ClearContents End If Next r End Sub regards FSt1 "EJ" wrote: Is there a macro that will check each row in Column D and Column F for "0", so that when both columns in the same row have "0" and only when both columns in the same row have "0" the contents "0" in that row of Column D and F will be deleted simultaneously? I know the code below will delete the contents but only if its in row D. Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = "0" Then c.ClearContents End If Next r End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete 0 - Column D and Column F
glad to help. thanks for the feedback.
regards FSt1 "EJ" wrote: This works fantastically. Thank you. "FSt1" wrote: hi i modified your code. works in xl03 Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = 0 And c.Offset(0, 2) = 0 Then c.ClearContents c.Offset(0, 2).ClearContents End If Next r End Sub regards FSt1 "EJ" wrote: Is there a macro that will check each row in Column D and Column F for "0", so that when both columns in the same row have "0" and only when both columns in the same row have "0" the contents "0" in that row of Column D and F will be deleted simultaneously? I know the code below will delete the contents but only if its in row D. Sub DeletezerowhenincolumnDandColumnF() Dim myLastRow As Long Dim r As Long Dim c As Range myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row For r = myLastRow To 1 Step -1 Set c = ActiveSheet.Range("d" & r) If c.Value = "0" Then c.ClearContents End If Next r End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy column header to next column, delete & delete every nth colum | New Users to Excel | |||
Search from bottom of column up column and delete to top | Excel Programming | |||
Delete Rows if any cell in Column H is blank but do not Delete Fir | Excel Programming | |||
Find Column heading and then Delete entire column | Excel Programming | |||
Delete All Rows That Column A value is not in Column A of Sheet2 | Excel Programming |