two Private Sub Worksheet_Change in on one sheet

Hi..

I have two macros i want to be activated by changes made on sheet..
i know they both work separately, but i cant get them to work together

the first is tricked by changes in column C:C
the other is tricked if there is entered and "X" in F:F

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Can any on help?

Copy everything in between Private Sub ... End Sub of the 2nd code and paste it at the end of the 1st code.

Then change the If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub to
If Intersect(Target, Range("C:C")) Is Nothing Then
...
End If

e.g. (untested)

Please Login or Register  to view this content.

it dosent work.. but maybe the macro with C:C is wrong?
I want it to trick if i change or enter a date in C:C

Ahh, sorry, missed a step. Added a "Not" at the If statement.

e.g. (untested)

Please Login or Register  to view this content.

[/QUOTE]

Thanks a lot! it works just like i want i to !

Not a problem. Thanks for the rep!

one more question
Can i add a .Cells(Rw, 4) = the thing written in A

maybe you know how to do that

thing written in A? as in, for example, of Rw = 100, cell D100 takes the same value as A100?

If so, .Cells(Rw, 4) = .Cells(Rw,1)

yes.. but it takes the value from the wrong sheet..

In fx. D100 i want it to type the same value as A100 from the sheet which the macro is in.. now i takes the value from "Log Sheet"

Ahh, got it. Try this instead:


.Cells(Rw, 4) = Cells(Rw,1)
I removed a dot before Cells(Rw,1)

it dosent return anything :/ hmm

I think I know what you're trying to do. You want to insert the value in column A of the cell that changed. Try this

.Cells(Rw, 4) = Cells(Target.Row,1)

Thanks!! :d :d

You're welcome. Thanks for the rep!