Hi All,

linkback : http://www.mrexcel.com/forum/excel-q...wbie-help.html

I Have this problem. I want to when type OK, it'll copy and paste it as value based on its row. and select other cell
like this pic below.

so when i type OK :
- on D5, it'll copy F5:H5, and paste to J5:L5, and then select cell N5
- on D6, it'll copy F6:H6, and paste to J6:L6, and then select cell N6
.
.
.
and so on until D14.

right now i'm using this code below on worksheet change, but it's too long, and kinda evaluate from first - end every time run the code... someone help me?

i've also upload the file http://s000.tinyupload.com/?file_id=...70715604698398

thanks a lot for the help
warm regards,

Adrian

Capture.JPG

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("D5").Value = "OK" Then
    Application.EnableEvents = False
    Range("F5:H5").Copy
    
    Sheets("Sheet1").Range("J5:L5").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    Range("N5").Select
Else
        
End If

Application.EnableEvents = True

'-----------------------------------------------------------
If Range("D6").Value = "OK" Then
    Application.EnableEvents = False
    Range("F6:H6").Copy
    
    Sheets("Sheet1").Range("J6:L6").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    Range("N6").Select
Else
        
End If

Application.EnableEvents = True

End Sub