Adding Additional Criteria

[loss1003]

Sub SwapperTEST()
    ActiveWorkbook.Sheets(1).Activate
    Dim cell As Range
    Dim v1 As String, v2 As String, id1 As String, id2 As String
     
    For Each cell In Range("F:F")
         
        If cell.Value = "Vendor A" And cell.Offset(0, -1) > 1 Then
            v1 = cell.Offset(0, -2).Value
            v2 = cell.Offset(1, -2).Value
             
            cell.Offset(0, -2).Value = v2
            cell.Offset(1, -2).Value = v1
             
            id1 = cell.Offset(0, -1).Value
            id2 = cell.Offset(1, -1).Value
             
            cell.Offset(0, -1).Value = id2
            cell.Offset(1, -1).Value = id1
            
         
         End If
         
    Next cell
     
End Sub

How can I add the following additional criteria to the above code.

If cell.Value = "Vendor A" And cell.Offset(0, -1) > 1 Then
If cell.Value = "Vendor B" And cell.Offset(0, -1) > 1 Then
If cell.Value = "Vendor C" And cell.Offset(0, -1) > 1 Then

 

[cgcamal]

Hi loss1003,

Try just in the way as you already have:

Sub SwapperTEST()
    ActiveWorkbook.Sheets(1).Activate
    Dim cell As Range
    Dim v1 As String, v2 As String, id1 As String, id2 As String
     
    For Each cell In Range("F:F")
         
        If cell.Value = "Vendor A" And cell.Offset(0, -1) > 1 Then
            v1 = cell.Offset(0, -2).Value
            v2 = cell.Offset(1, -2).Value
             
            cell.Offset(0, -2).Value = v2
            cell.Offset(1, -2).Value = v1
             
            id1 = cell.Offset(0, -1).Value
            id2 = cell.Offset(1, -1).Value
             
            cell.Offset(0, -1).Value = id2
            cell.Offset(1, -1).Value = id1   
         End If

       If cell.Value = "Vendor B" And cell.Offset(0, -1) > 1 Then
[COLOR=Navy]             [COLOR=Green] 'Do something[/COLOR][/COLOR]
       End If
        If cell.Value = "Vendor C" And cell.Offset(0, -1) > 1 Then
[COLOR=Navy]             [COLOR=Green] 'Do something[/COLOR][/COLOR]
        End If         
    Next cell
     
End Sub

Or depending how your code it works could be use it the following:

If (cell.Value = "Vendor A" Or cell.Value = "Vendor B" Or cell.Value = "Vendor C" ) And cell.Offset(0, -1) > 1 Then
 [COLOR=Green]   'your code[/COLOR]
End If

Hope this helps.

Regards

 

[loss1003]

That helped. But, now I need to change the criteria for Vendor B <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
If cell.Value = "Vendor B" And cell.Offset(0, -1) > 3 Then<o></o>
<o> </o>
However, I need that code to run exact time the codes for vendor A and C run.

 

[cgcamal]

However, I need that code to run exact time the codes for vendor A and C run.

Try with:

    If cell.Value = "Vendor A" And cell.Offset(0, -1) > 1 Or _
    cell.Value = "Vendor B" And cell.Offset(0, -1) > 3 Or _
    cell.Value = "Vendor C" And cell.Offset(0, -1) > 1 Then
       [COLOR=Green] 'your code[/COLOR]
    End If

Or

[COLOR=Navy]
[/COLOR][COLOR=Navy][COLOR=Black]If (cell.Value = "Vendor A" Or cell.Value = "Vendor C") And cell.Offset(0, -1) > 1 Or _
    cell.Value = "Vendor B" And cell.Offset(0, -1) > 3 Then[/COLOR]
   [COLOR=Green]     'your code[/COLOR]
    [COLOR=Black]End If[/COLOR][/COLOR]

Regards.

 

[loss1003]

Thanks..now i'm having difficulties with the code it will not repeadely loop through the Range until it meets the conditions/criteria.

It merelys pushes the cells down one row and replaces them with the cells from the row below, one time through the range. I need the process to repeat until all the rows meet the conditions.