עזרה בנוסחא

[h280]

היי

אשמח לדעת מהי הנוסחא המתאימה כך שברגע שבוחרים אופציה מסויימת מתא בעמודה H

יוזן תאריך באופן אוטומטי בעמודה I



בתודה מראש

 

[מיכאל אבידן]

היי

אשמח לדעת מהי הנוסחא המתאימה כך שברגע שבוחרים אופציה מסויימת מתא בעמודה H

יוזן תאריך באופן אוטומטי בעמודה I

בתודה מראש

.
ומה אמור לקרות אם לאחר בחירת נתון בתא I5, למשל, לאחר 8-10 דקות ייבחר ערך אחר באותו תא !?

 

[h280]

היי, כל פעם שיוזן נתון בתא, התאריך יתעדכן בהתאם. אשמח לעזרה בנוסחא המתאימה. תודה רבה ושבוע נפלא

 

[h280]

חברים אשמח לעזרה בנוסחא, זה ממש דחוףףף לי. תודה מראש לכל העוזרים.

 

[rely25]

ב"ה

מצורף פתרון אפשרי. דרך פקודת מאקרו

 

[h280]

תודה רבה, זה בדיוק מה שאני צריך, אשמח אם תוכל לכתוב לי את פקודת המאקרו (הקובץ נעול) בשינוי קל שבתאריך יהיה יופיע גם שעה כלומר d/m/y/h/m. שוב תודה רבה מראש

 

[h280]

רק חידוד קל, יש לי טבלה של 100 שורות/לקוחות ובסוף החודש אני צריך שיופיע ליד כל לקוח התאריך והשעה בו בוצע השינוי ליד כל לקוח. מקווה שהתנסחתי בצורה ברורה. ושוב תודה רבה מראש

 

[מיכאל אבידן]

.
אם להתייחס ל"חוקי התכנות של VBA" - הייתי מציע שתאמץ את הקוד שבתמונה:

 

[h280]

תודה רבה ענקית, יש מצב שאתה עושה העתק הדבק לכאן? בכדי שלא אצטרך להעתיק מילה מילה אות אות. ושוב תודה על כל עזרתך המקצועית

 

[מיכאל אבידן]

תודה רבה ענקית, יש מצב שאתה עושה העתק הדבק לכאן? בכדי שלא אצטרך להעתיק מילה מילה אות אות. ושוב תודה על כל עזרתך המקצועית

.
אני לא שומר קודים קצרים שאני מציע - כך שזה יוקלד על ידך או על ידי.

מי אתה חושב שאני מעדיף שיקליד !?

 

[h280]

היי מיכאל, הקלדתי את הקוד אך לצערי זה לא עובד לי.
אני מצרף את הקוד שהעתקתי ואת הקובץ הרלוונוי (שינוי שיבוצע בעמודה N בעמודה O יופיע תאריך השינוי בפורמט d,m,y,h,m)
אשמח אם תוכל לשתול את הפקודה שרשמת בקובץ המצורף.

בתודה מראש

Private Sub Worksheet_Change (ByVal Target As Range)

If Application. Intersect(Target, Range("H4:H14")) Is Nothing Then Exit Sub Application.Enable Events = 0

Target.Offset(0, 1) = Now Application.EnableEvents = 1



End Sub

 

[מיכאל אבידן]

היי מיכאל, הקלדתי את הקוד אך לצערי זה לא עובד לי.
אני מצרף את הקוד שהעתקתי ואת הקובץ הרלוונוי (שינוי שיבוצע בעמודה N בעמודה O יופיע תאריך השינוי בפורמט d,m,y,h,m)
אשמח אם תוכל לשתול את הפקודה שרשמת בקובץ המצורף.

בתודה מראש

Private Sub Worksheet_Change (ByVal Target As Range)

If Application. Intersect(Target, Range("H4:H14")) Is Nothing Then Exit Sub Application.Enable Events = 0

Target.Offset(0, 1) = Now Application.EnableEvents = 1



End Sub

.
מר אשכנזי היקר (עפ"י הפנייה אתה יכול להבחין שאני כעוס).

1. שאלך המקורית כלל לא תואמת את מה שביקשת כעת.
2. שפת התכנות של 'אקסל' (VBA) היא שפה שיש לדייק בנתונים המועברים אליה (וזה כולל רווחים מיותרים/חסרים)..
3. אני הצגתי 6 שורות קוד ולא 4 !!!

*** בהצלחה ***

 

[rely25]

ב"ה

מה התפקיד של Application.EnableEvents בקוד המוצע למעלה?

תודה

 

[מיכאל אבידן]

.
"ללא מילים..."