show current date in the cell,but tomorrow- no change this..

[@lien]

hi,

in the first time, please scuse me my english language. thanks

I have a little problem (but for me is like a break); I want, when I change some in a cell, in the other cell, show me current date. I try with "today()", but , next day when I open that workbook, in that cell, show me the date coresponding with the next day (normaly).
How ,I can rezolve this? I want to blocked that cell, only view, but no acces for change enithing.

thank you

 

[@lien]

hi,

how can I, attachment a little picture (jpg, bmp), here?
maybe, after you see the print screen, do you understand, what I whant to do.


thanks

 

[agihcam]

right click the sheet in question > view code then paste this code;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(1).Value = Date
End Sub

 

[Cbrine]

if agihcam's code is not what you are looking for, just check the sticky notes at the top of this forum. One of the links will lead to addin's for excel. Download the html maker addin and install it. Then just follow the instructions for the tool to paste a sample of what your data looks like and what you want it to look like.

HTH
Cal

 

[JV0710]

Hi Guys

I think what Alin is wanting to do in A2, is show that date that the entry in A1 happens. irrespective of which day it may be and then keep it as an "Entry date".

so for example: In column A you have Orders placed and in Column B you have the date that the order is placed.

If an order value is placed in column A on day 1, then the date that the entry is made must be populated in the corresponding cell in column B.

If, on the 2nd day more orders are placed in column A, then the 2nd day's date must show in column B, but the dates for the previous days entries in Column A must still show as Day 1's date in column B.

Alin, I hope I am Understanding what you are Asking here.

If I am not mistaken I think it need some VB Code to do what you need, but I do not know enough to be able to get you a solution - I will check if you can confirm that I am understanding your question correctly.

Joe

 

[JV0710]

Hi Alin

To your question about keeping the date that the entry is made:

On the sheet you are working on - right click on the tab and select view code - then paste the following code

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
If Trim(Target.Value) <> "" Then
ActiveSheet.Cells(Target.Row, 2) = Now
End If
End Select
End Sub


and close the Vb editor window.

On the sheet now, you will be able to enter a value in column A and the current date will appear in column B - ( and it will not change when you open the file the next day).

I hope this helps.

 

[@lien]

thank you
I resolve the problem, whit "jvannel's" informations; but I thanks one and all, to try help me.

Now I wish, to create a command buton (when do click from them, he execute a command . Ex.: I have a shortcut Ctrl+M, for sending e-mail. I wish , when click for a command button, activate Ctrl+M). Can I , that?


thank you again
have a nice week end

 

[peacecorpsdrew]

Salut @lien,

Totul e resolvat? Pot sa traduc daca tu nu stii ceva in engleza. Eu nu vorbesc foarte bine dar am stat de tre ani in Romania. Colegul meu mi-a intrebat sa te ajut cu problemul tau in excel. Daca e nu resolvat imi scrie ceva in engleza si in romaneste asa totul va fi mai clar in forum-ul. Eu nu un expert folosestand excel. Am scris clar? Im cer scuze daca nu ma-intelegi

Drew

In English...


@lien,

Is everything resolved? I can translate if you don’t know something in English. I don’t speak so well but I live there for 3 years. A colleague asked me to help you with your problem in excel. If it is not resolved write me something in English and Romanian so everything will be very clear in the forum. I’m not an expert excel user. Did I say this clearly?

Drew

 

[@lien]

multumesc frumos (thank you veri much)]
este rezolvata problema (the problem is resolved)


Thank you