elself looping to next row

[Jenn_1214]

This code works perfectly in the the first row only. I tried to add loop but keep getting errors. I need this move down a row and continue moving down. This is my first time doing this and I have been researching for hours. I have been using a function but i have to many conditions to list.
Sub test()
Dim Vendor As String, account As String
Vendor = Range("A2")
If Vendor = "ABC" Then
account = "Statement A"
ElseIf Vendor = "DEF" Then
account = "Statement B"
ElseIf Vendor = "GHI" Then
account = "Statement C"
Else
account = "statement c"
End If
Range("F2") = account
End Sub

 

[Joe4]

Welcome to the Board!

Here is code that will do what you want. Just enter in the range that you want. We can make it dynamic too, if you do not know the end row.
I also used a CASE statement, instead of IF/ELSEIF/ELSE statements. They are much easier to read, IMO (see: https://www.techonthenet.com/excel/formulas/case.php)

Sub test()

    Dim VendorRange As Range
    Dim cell As Range
    Dim Vendor As String, account As String

'   Set the range you want to look through
    Set VendorRange = Range("A2:A10")
    
'   Loop through range
    For Each cell In VendorRange
        Vendor = cell.Value
        Select Case Vendor
            Case "ABC"
                account = "Statement A"
            Case "DEF"
                account = "Statement B"
            Case "GHI"
                account = "Statement C"
            Case Else
                account = "statement c"
        End Select
'       Update column F
        Range("F" & cell.Row) = account
    Next cell

End Sub

 

[Jenn_1214]

Thank You! This worked perfectly.