Change X by Date (but selct column based cell value)

[marreco]

Hi.

I nedd loop to verify E2, = 1 case 1 selec column (A8:CC8), where number 1 and change X by date.

verify E2, case 2 selec column (A8:CC8), where number 2 and change X by date.

verify E2, case 3 selec column (A8:CC8), where number 3 and change X by date.

And so

Sub x()
Dim Rng As Range, rCell As Range
Dim x As Long
MyFirstRow = Selection.Rows(8).Row

 Set Rng = Range("A8:CC8")
    For Each rCell In Rng.Cells
       If rCell.Value = Range("E2").Value Then
        'rCell = Cells(MyFirstRow, ActiveCell.Column).Select
        'Do activecolumn = "X"
        '"X" = Date
        'loop until <> "X"
       End If
    Next rCell
End Sub

Thank you!!

[judgeh59]

I might be having a bit of languange issue but this may get you closer to what you are trying to do....I hope this helps...

[marreco]

Hi.

Verey very godd!!

Thank you very much!

[judgeh59]

glad I could help...and thanks for the points....