If Column A contains "Ohio" then offset by 3 cell....

[kerrya98]

I am looking to create a Macro that says: look at all of the data in column E:E and if you find a cell that has the word "Ohio" in the string of information, then offset that cell by 3 to the right and make that cell equal to "4"

Sub Test()

Columns("E:E").Select
Dim rng As Range, cell As Range
Dim worksh As Worksheet
Set worksh = Worksheets("Axys Layout")
Set rng = Range("E:E")
For Each cell In rng
If InStr(1, cell, "Ohio", 1) Then
cell.Offset(, 3).Value = 4
End If
Next Ecell


End Sub

This is not working and I'm not even sure that I am on the right track! Any advice would be appreciated!!

Thanks,
Shannon

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[kerrya98]

This worked perfectly!! thank you!

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.

[AB33]

Your code works too. You need to change Next Ecell in to cell(Get rid of E)

Please Login or Register  to view this content.