Copy/Paste/Mirror A Row Into A Specific Sheet Depending on Dropdown List

[ghostish]

Okay -- I've been scouring the internet including these forums to try to figure this out, but I just couldn't get exactly what I was looking for.

I'm new to VBA, so reading code that I've found and attempting to change it based on my needs hasn't worked out very well for me. I'm working on a budget and what I'd like to do is copy/paste or mirror a specific row onto another sheet depending on a dropdown list.

My dropdown list is in the F column and depending on what I pick from it, I want the row from column A through C to be copied/pasted or just mirrored onto a different sheet.

So for example, let's say there's a transaction that I want categorized under "Pets", I want that single row, columns A - C, to be c/p or mirrored onto the next empty line on my "Pets" sheet.

 

[ghostish]

So I've found a solution that kind of works, but not exactly to the way I need it to:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name <> "Bank of America" Then
            If ws.Name = Target Then
                Target.EntireRow.Copy Sheets(ws.Name).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            End If
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

This does kind of what I need it to, but I don't want to copy the entire row. I just want to copy a single row, columns A through C. I know it has to do with this line:

Target.EntireRow.Copy Sheets(ws.Name).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

But I'm not entirely sure how to change "EntireRow" to the select singular row, only copying columns A through C.

 

[ghostish]

Figured it out!

For those wondering, this is what I came up with:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name <> "SHEETNAMEWHERECODEISPOSTED" Then
            If ws.Name = Target Then
                Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Copy Sheets(ws.Name).Cells(Sheets(ws.Name).Rows.Count, "A").End(xlUp).Offset(1, 0)
            End If
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

The underlined items are what you would change if anyone wanted to use the code!

 

[Peter_SSs]

Thanks for posting your solution.

The underlined items are what you would change if anyone wanted to use the code!

If you want to format vba code in a particular way like that, you need to use the 'RICH' code tags, not the 'VBA' code tags. I have switched them for you this time