¿Cómo puedo recorrer un enunciado If / Then?

Tengo un cuadro desplegable primario en la Columna I y un cuadro desplegable secundario en la Columna J que cambia según la Columna I.

Si la columna I cambia, me gustaría que la columna j se restablezca en lugar de mantener su valor original.

Tengo este código funcionando para mi primera fila

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "I2" Then Range("J2").ClearContents End Sub 

¿Cómo puedo hacer que pase por cada fila?

Muchas gracias, James

¿Quiere decir que cada vez que se cambia un valor en I, quiere borrar el valor correspondiente en J? Es mejor restringirlo a un range específico de I / J: esto hará toda la columna.

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.column = 9 Then target.offset(,1).ClearContents End Sub 

Verificaría si el range Target se cruza con la columna I , luego recorro todas las celdas en el range modificado. Puede usar la propiedad .Row dentro del ciclo para borrar la celda correspondiente:

 Private Sub Worksheet_Change(ByVal Target As Range) 'Did something change in column I? If Intersect(Target, Me.Range("I:I")) Is Nothing Then Exit Sub End If Dim test As Range 'Loop through all of the changed cells. For Each test In Target 'If the cell is in column I... If test.Column = 9 Then '...clear column J in that row. Me.Cells(test.Row, 10).ClearContents End If Next End Sub