Can anyone help me in vba???

[jovie]

Hi I am very new of VBA, which I would like to write a code that
when I updated one column's(like said column 1) value, the other column(column 2) will updated to current date, and other rows will not be affected if the column 1's value is not changed.
And is it possible that once I forget to update column 2's date, next time when I click the button ,it will update column 2's date to the date I update column 1's value
Thanks

 

[Smitty]

I wouldn't bother with a button, just use a Change event.

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br>    <SPAN style="color:#007F00">'   Code goes in the Worksheet specific module</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> Rng <SPAN style="color:#00007F">As</SPAN> Range<br>        <SPAN style="color:#007F00">'   Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")</SPAN><br>        <SPAN style="color:#00007F">Set</SPAN> Rng = Target.Parent.Range("A:A")<br>             <SPAN style="color:#007F00">'   Only look at single cell changes</SPAN><br>            <SPAN style="color:#00007F">If</SPAN> Target.Count > 1 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>            <SPAN style="color:#007F00">'   Only look at that range</SPAN><br>            <SPAN style="color:#00007F">If</SPAN> Intersect(Target, Rng) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>            <SPAN style="color:#007F00">'   Action if Condition(s) are met (do your thing here...)</SPAN><br>            Target.Offset(, 1).Value = <SPAN style="color:#00007F">Date</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

You'll need to change the column 1 reference (I used column A) to whatever you want.

Note that the code goes in the worksheet specific module, not a general module. Just right-click on the sheet tab and select View Code, then paste the code in the new window.

HTH,

 

[Smitty]

I forgot to mention, a Change event is completely automatic, so you don't need to worry about pressing buttons or forgetting things.

 

[jovie]

I forgot to mention, a Change event is completely automatic, so you don't need to worry about pressing buttons or forgetting things.

I try the code ald, thanks a lot for helping, can help me one more thing, just there is two cell , cell 1 and cell 2 , when cell 1's value change, cell 2's value will automatically plus the cell 1's value, sorry to trouble, just I cant find the code online

 

[jovie]

sorry, can I ask one more that, because my column 1 the value is change base on a formula I set up, however the code will only activate when I manually change the date on that, can make it like it will change the date of Column 2 once column 1's value is changed

 

[jovie]

I forgot to mention, a Change event is completely automatic, so you don't need to worry about pressing buttons or forgetting things.

[h=2]

Re: Can anyone help me in vba???[/h]

sorry, can I ask one more that, because my column 1 the value is change base on a formula I set up, however the code will only activate when I manually change the date on that, can make it like it will change the date of Column 2 once column 1's value is changes​