Need help please see excel file

[Rajesh_123]

Need help on task see sheet 2, thanks a lot as always

 

[udprocks]

Hi rajesh,

Not sure with your example file what you need to do, can you please explain with result you want on sheet 2..

 

[Rajesh_123]

Hi, thanks for your reply, please see sheet 2 and comments in Red.

 

[Rajesh_123]

I am not sure how to explain this, but I think the excel file sheet 2 will give an idea.

 

[Rajesh_123]

Please check the excel file sheet 2 tab, it will give you an idea and comments in red

 

[John Jairo V]

Hi @Rajesh_123

Please check the file. I change the formula you have in column F, and I wrote some VBA code for you (Clic Green Rectangle).

Please comment!
I Hope it help you. God Bless You!

 

[Rajesh_123]

Great really helpful.....God bless you too

 

[Rajesh_123]

Need help. Trying to enter a particular value in a cell and vba macro should trigger immediate..Didn;t work. please check the xls file. thanks

 

[John Jairo V]

Hi again @Rajesh_123

This post is a different thing about your original question. Next time you must open a new thread - question.

This macro must help (in Sheet1, paste this code):

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 3 And LCase(Target.Value) = "ok" Then
        uf = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
        With Target.EntireRow
            .Copy: Sheets("Sheet2").Range("A" & uf).PasteSpecial xlValues: .Delete
        End With
    End If
    Application.EnableEvents = True
End Sub

Next here the file working!
I hope it helps. Blessings!

 

[Rajesh_123]

Thanks, but the only problem is instead of ok, if i enter someother text, and then continue to type ok on next row, the code didn't work. If i add new columns to the right, the code shows debug and didn't work

Any help will be highly appreciated

 

[John Jairo V]

Hi again Rajesh_123.

Try the file again... I made a little correction. Remember that the code works with "OK" or "ok" (without quotes) always on column 3 of the sheet.

Please Comment! Blessings!

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo Ends
    If Target.Column = 3 And LCase(Target.Value) = "ok" Then
        uf = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
        With Target.EntireRow
            .Copy: Sheets("Sheet2").Range("A" & uf).PasteSpecial xlValues: .Delete
        End With
    End If
Ends:
    Application.EnableEvents = True
End Sub