Copy to other sheet cannot debug

[yhtan0404]

Hi can anyone help me check what's wrong with this code?

Sub copyTodifferentsheet()

Dim i As Integer
Dim Priority As String
Dim Task As Range

i = Sheets(1).Range("A4").Value


Do While i <= Sheets(1).Range("A4").End(xlDown).Value

Set Task = Sheets(1).Range("b3").Offset(i, 2)
Priority = Task.Value

If Priority = "Urgent" Then
Range(Task, Task.Offset(0, 1)).Copy
Sheets(2).Range(Cells(i + 1, 2), Cells(i + 1, 3)).PasteSpecial xlPasteValues


ElseIf Priority = "Important" Then
Range(Task, Task.Offset(0, 1)).Copy
Sheets(3).Range(Cells(i + 1, 2), Cells(i + 1, 3)).PasteSpecial xlPasteValues

ElseIf Priority = "Easy easy" Then
Range(Task, Task.Offset(0, 1)).Copy
Sheets(4).Range(Cells(i + 1, 2), Cells(i + 1, 3)).PasteSpecial xlPasteValues

Else
End If

i = i + 1

Loop

End Sub

 

[JoeMo]

What happens when you try to run the code? If you get an error message, what's the message and what line is highlighted?

 

[My Aswer Is This]

I do not like reading code that does not do what you want.
Tell me in detail what your wanting to do.
Give me sheet names criteria and column numbers and any other details you have.
And I will try to help you.

 

[Norie]

Does this work?

Sub copyTodifferentsheet()
Dim Task As Range
Dim Priority As String
Dim i As Long

    i = Sheets(1).Range("A4").Value

    Do While i <= Sheets(1).Range("A4").End(xlDown).Value

        Set Task = Sheets(1).Range("b3").Offset(i, 2)
        Priority = Task.Value

        If Priority = "Urgent" Then
            Range(Task, Task.Offset(0, 1)).Copy
            Sheets(2).Cells(i + 1, 2).PasteSpecial xlPasteValues

        ElseIf Priority = "Important" Then
            Range(Task, Task.Offset(0, 1)).Copy
            Sheets(3).Cells(i + 1, 2).PasteSpecial xlPasteValues

        ElseIf Priority = "Easy easy" Then
            Range(Task, Task.Offset(0, 1)).Copy
            Sheets(4).Cells(i + 1, 2).PasteSpecial xlPasteValues

        End If

        i = i + 1

    Loop

End Sub

 

[yhtan0404]

Hi JoeMo it shows object-defined error. I thing my range selection has problem. Thank you

 

[yhtan0404]

Hi My Answer sorry for the messy description, i'll make it clear next time. Thank you

 

[yhtan0404]

Thanks Norie it works now

 

[My Aswer Is This]

No problem. I have a hard time understanding others scripts sometimes and not use to using Do loops

Hi My Answer sorry for the messy description, i'll make it clear next time. Thank you