VBA code

[sorin1985]

Hi guys

In the bellow excel , if I fill the row in Items received and then put a date in column P it will trigger and cut and move the entire row to sheet ITEMS Collected . I am using this code bellow the picture and everything works fine . What i would like is to have column K in Items Received as a trigger as well and cut and move everything to Remote Storage Unit . The trigger can be a number or text or what ever .

Is it possible to add another code to the same sheet1 in VBA ?

Hope it make sense .
Thank you

 

[mart37]

At the end of your code you can add a new If Then.
If Not Intersect(Target, Range("rngTrigger2")) Is Nothing Then
...
End If

 

[sorin1985]

At the end of your code you can add a new If Then.
If Not Intersect(Target, Range("rngTrigger2")) Is Nothing Then
...
End If

Hi Mart,thank you for replying.when you say end of my code,you mean after end sub?sorry ,i am really new in this.

 

[mart37]

before end sub

 

[sorin1985]

before end sub

Cool,i will give it a go tomorrow,i will come back to you .thank you so much

 

[sorin1985]

before end sub

Good morning Mart

Is not working .I have created 2 names under RgnDest2 and rngTrigger2 ,add them into the code ,but nothing. Could you please help me out ?Thank you

 

[sorin1985]

Good morning Mart

Is not working .I have created 2 names under RgnDest2 and rngTrigger2 ,add them into the code ,but nothing. Could you please help me out ?Thank you

HI

I have tried again and now is giving me an RUN time error 1004.

 

[mart37]

Have you changed If IsDate(Target) Then to something like: If Not IsEmpty(Target) Then

 

[mart37]

rngDest2 is on sheet: Remote Storage Unit

 

[sorin1985]

rngDest2 is on sheet: Remote Storage Unit

Nope still doesnt work .
so i have rngtrigger and rng trigger2 on item recieved columns P and K
rngdest on Item colected sheet (sheet 2 )
and rngdest2 on Remote storage sheet (sheet 4)

This vba is killing me :D