I am trying to write a code to copy information from one worksheet to another that has IF Statements because of criteria that needs to be met in certain cells. But for some reason, it's not picking up the 2nd IF statement. It's giving me every type. Here is the code.
Sub BuyertoIssued()
Dim ws As Worksheet
Set ws = Sheets("Buyer to Issued")
ws.Rows("2:" & Rows.Count).ClearContents
a = Worksheets("Bid Worklog").Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To a
If Worksheets("Bid Worklog").Cells(I, 1).Value = "Active" Then
If Worksheets("Bid Worklog").Cells(I, 29).Value = "IFB" Then
If Worksheets("Bid Worklog").Cells(I, 53).Value > 15 Then GoTo CopyRow1
End If
CopyRow1: Worksheets("Bid Worklog").Rows(I).Copy
Worksheets("Buyer to Issued").Activate
b = Worksheets("Buyer to Issued").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Buyer to Issued").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Bid Worklog").Activate
End If
Next
Application.CutCopyMode = False
End Sub
I've read about CASE statements, but I'm confused on that part. What is so weird, is that this was working, but then I changed the cell locations so now it's not picking it up correctly. Any help would be appreciated.
Thank you.
Bookmarks