Hello, I am new to the forum and hoping someone can help me out. I am trying to iterate through an if statement and paste certain contents to another sheet - that part is working. However, I can't crack the code on printing to the next avaialble cells so that I don't overwrite my older data.
Here's what I've got, which is throwing an error (object variable or with not set)
Sub RECORD_DATE()
Dim MyLastRow As Range
MyLastRow = Range("A65000").End(xlUp).Offset(1, 0)
For Each c In Worksheets("TRACKING").Range("S5:S200")
If c.Value = "MWI In-Progress" Then
Worksheets("MWI").Cells(MyLastRow, 2) = c.Offset(0, -2).Value
Worksheets("MWI").Cells(MyLastRow, 1) = c.Offset(0, -15).Value
MyLastRow = MyLastRow + 1
End If
Next c
'read next cell
End Sub
I am very new to VBA, so if I am missing an obvious convention, it's becasue I have no formal training. Thanks for your help!
Sypris
Bookmarks