Help Anyone!!!!!!!

[AcTiVation]

I have several questions;
Question #1
Does anyone have a vba code which will enter a date in an adjacent cell when a value is entered in the cell beside it?

Question #2
Is it possible to have a dynamic range of data in different files copied into a single spread sheet as soon as the target spread sheet is opened, and then have the data that was pasted (dymnamic of course) sorted by date (high to low) which would be in say column "D"

Thanks in advanced,
regards,
ATV

 

[NateO]

Look here for question 1. Change ,3 to ,1 in all instances.

http://www.mrexcel.com/board/viewtopic.php?topic=2559&forum=2

HTH.

 

[AcTiVation]

Went to the link you post, and entered pasted the code, it doesn't work. I entered a value in A1 and no date appeared in D1.

Any other suggestions?

Thanks in advanced.
ATV

 

[Cosmos75]

To your second part see http://www.mrexcel.com/board/viewtopic.php?topic=2633&forum=2

 

[NateO]

On the worksheet in question, right-click, click on view code. Paste the following code into the sheet class module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    If Target.Offset(, 1).Value = Empty _
    And Target<> "" Then
    Target.Offset(, 1).Value = Date
    End If
End If
End Sub

If you type something into the first column and do not get a date in the column b insert a normal module, paste and run the following code, then try the same worksheet:

Sub mkSure()
Application.EnableEvents = True
End Sub

Hope this helps.

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
This message was edited by NateO on 2002-03-18 16:17