Data selection works, paste option doesn't

**mrice** · 12-02-2011, 01:16 PM

You are not far off.

Try something like

Sub moveit()
'
' moveit Macro
'
Dim Move2Cat As String
    Move2Cat = Range("A5").Value
    Range("AA15:AW15").Copy
    Select Case Move2Cat
        Case Is = "Resisdental"
            Worksheets("Res.Contractors").Activate
        Case Is = "Commerical"
            Worksheets("Res.Contractors").Activate
        '..... add others here
    
    
    End Select
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Activate
    Range("C4:C26").ClearContents
    Range("C4").Select
    
End Sub

**Gralyndr** · 12-02-2011, 01:36 PM

tigeravatar, your's hit spot on, good sir. Awesome. Exactly what I was trying to do. I noticed some new functions in there so you gave me some homework, too. Thank you very much.

mrice, your's works well, too, but tiger's is compacted down real well and it'll help keep my file size down. This little project is getting rather big.

Gentlemen, many thanks.