Auto insert time in a cell when a value is placed in front of another cell

[earthworm]

Hi all,

is there anyway i can insert the current time as soon as i enter the data in front of call

like cell

A1 Time()
B1 ABCDEF

there must be some way to do that , i want the time to be picked from running system .

 

[klarowe]

Not a finalized answer, but I have this for you for now. The downside to it is that whenever any cell is clicked on (changed) it updates the time.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Sheet3.Range("B1") <> "" Then
        Sheet3.Range("A1") = Time
    Else: Sheet3.Range("A1") = ""
    End If
End Sub

Or you can do it this way, but just entering the text doesnt input the time, you have to actually click on the cell (b1) to get it to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        If Sheet3.Range("B1") <> "" Then
            Sheet3.Range("A1") = Time
        Else: Sheet3.Range("A1") = ""
        End If
    Else: End If
End Sub

This should at least get you started until someone can chime in and correct what I am missing. And I know formulas even less than I know VBA (which is very little) so there is a good possibility it could be done by formula... in which your guess is as good as mine.. lol.

 

[earthworm]

vba not working , anyone please help with respect to formula

 

[earthworm]

bump.......

 

[Akashwani]

Hi,

See if this helps....

http://www.mrexcel.com/forum/showthread.php?t=551855

Good luck.

Ak