removing data based on other cell information

[S Himmelrich]

I've created the following macro that removes data based on ofther
cell information. This is similar to duplicate row code, but I'm
looking to define which columns I evaluate. Currently, this macro
looks at just column A or 1. I need it to look at column A, C, F &
G. My question is more syntax based I believe as I'm at a beginner
level in creating VB/Macro code; otherwise this is working as needed -
can anyone assist on the range on this one?

'Removing Dupicates
Dim rng As Range
Dim i As Integer
Set rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1) Then
Cells(i, 6).ClearContents
Cells(i, 7).ClearContents
Cells(i, 8).ClearContents
Cells(i, 9).ClearContents
End If
Next

 

[sbitaxi]

I've created the following macro that removes data based on ofther
cell information.  This is similar to duplicate row code, but I'm
looking to define which columns I evaluate.  Currently, this macro
looks at just column A or 1.  I need it to look at column A, C, F &
G.  My question is more syntax based I believe as I'm at a beginner
level in creating VB/Macro code; otherwise this is working as needed -
can anyone assist on the range on this one?

'Removing Dupicates
    Dim rng As Range
    Dim i As Integer
    Set rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
    For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1
    If Cells(i, 1).Value = Cells(i - 1, 1) Then
    Cells(i, 6).ClearContents
    Cells(i, 7).ClearContents
    Cells(i, 8).ClearContents
    Cells(i, 9).ClearContents
    End If
Next

Hello:

Try this example, it selects multiple separate columns.

Sub RngSelect()
Dim Rng2 As Range

Set Rng2 = Union(Range("A:A"), Range("L:L"), Range("F:F"),
Range("S:S"))
Rng2.Select
End Sub

 

[Bernie Deitrick]

This will process the cells in columns A, C, F, and G: what wasn't clear was if you wanted to clear
the cells relative the those cells or always from the same columns: F, G, H, and I.

Dim rng As Range
Dim i As Integer
Dim j As Variant
For Each j In Array(1, 3, 6, 7)
Set rng = Range(Cells(1, j), Cells(Rows.Count, j).End(xlUp))
For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i, 6).ClearContents
Cells(i, 7).ClearContents
Cells(i, 8).ClearContents
Cells(i, 9).ClearContents
End If
Next i
Next j

 

[S Himmelrich]

How would this fit into my current macro?

Hello:

Try this example, it selects multiple separate columns.

Sub RngSelect()
Dim Rng2 As Range

Set Rng2 = Union(Range("A:A"), Range("L:L"), Range("F:F"),
Range("S:S"))
Rng2.Select
End Sub- Hide quoted text -

- Show quoted text -