מתן שם עי מקרו לתא אחרון בקטע מסומן

[rozent1]

מתן שם עי מקרו לתא אחרון בקטע מסומן

שלום.
בווינדוס 7 אקסל 10 אני מעוניין לרשום מקרו
שמגדיר שם של תא אחרון בקטע מסומן אנכית
הבהרה - התא האחרון המסומן הוא אינו התא האחרון בטור

תודה

 

[u333]

נסה את הקוד הבא

בחר את הטווח הצהוב והפעל את המקרו הבא:

Sub AddNameForMe()
Dim sh As Worksheet
Dim fr As Integer, cc As Integer
Set sh = Sheets("âéìéåï1")
fr = Selection.Row() + Selection.Rows().Count - 1
cc = Selection.Column()
Set MyRng = sh.Cells(fr, cc)
ActiveWorkbook.Names.Add Name:="MyNewRange", RefersTo:=MyRng
End Sub

החלק המשובש הוא "גיליון1"

 

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

לפי דעתי, פקודת מקרו בודדת תבצע את מבוקשך . . .

ActiveWorkbook.Names.Add Name:="MyNewRange", RefersTo:=Selection(Selection.Count).Address

 

[rozent1]

מקרו לזיהוי תא עם שם

תודה מיכאל
הפקודה ששלחת אינה פועלת.
אסביר יותר בהרחבה את הבעייה
המשתמש מסמן קטע ומפעיל את המקרו הראשון ששלחתם
התא האחרון קיבל שם וכעת אני מבצע סידרת פקודות מקרו שבניתי:
א. הסמן מתיצב על התא הראשון ושם מבצע את הפקודה שבניתי
ב. הסמן יורד תא אחד ומבצע שוב את הפקודה שבניתי
וכך הלאה עד שמגיע לתא עם השם שקיבל במקר הראשון.
היות ואני צריך להפסיק את הירידה שלו אני מבקש מקרו שמתריע
ואומר לסמן שהוא נמצא על התא האחרון. בניתי לשם כך את המקרו
השני ששלחתי אליכם אבל זה לא עובד וביקשתי לדעת מה לא בסדר איתו
תודה רבה

 

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

"אין תגובה"

. . .

 

[u333]

מה דעתך לצרף את הקובץ עם כל הנסיונות ? (כנדרש)

 

[rozent1]

מקרו לא מזהה תא עם שם

כבר שלחתי את הקובץ (כנדרש)
והייתי בטוח שאתה ענית לי לאחר שראית את הקובץ
אבל מי אני שאתוכח
אני שולח שוב (כנדרש)

 

[u333]

התכוונתי לקובץ עם הנסיונות שלך !!!

על הקובץ הראשון קיבלת תשובה מדויקת !

אני מתכוון לזה:

" בניתי לשם כך את המקרו
השני ששלחתי אליכם אבל זה לא עובד וביקשתי לדעת מה לא בסדר איתו
תודה רבה"
היכן הקובץ עם המקרו ?
ואני עדיין לא מבין מה אתה רוצה ?

 

[rozent1]

מקרו שלא מזהה שם תא

להלן הקובץ עם המקרויים
שם רשומה גם השאלה
תודה

 

[u333]

לא בדקתי את המקרואים שלך אך.....

שחק עם הקובץ המצורף.
בחר את הטווח הצהוב והפעל את המקרו למתן שם לתא האחרון.
תקבל "שם" לתא E6
כעת שוטט ע"פ התאים כרצונך. ברגע שתגיע מתי שהוא לתא E6 - תקפוץ לך ההודעה "You are in the Last Cell"
זהו, לדעתי, מה שאתה מחפש.

 

[u333]

לדעתי - לא עובד.

 

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

אז, אולי, ככה . . .

השם: MyNewRange מוחל על תא E13.

 

[rozent1]

מקרו שאינו מזהה שם תא

אני מרים ידיים
3 פעמים שלחתי קבצים
ואתם תמיד מתיחסים רק לקובץ הראשון
שהוא שונה לגמרי
תודה על הנסיונות

 

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

זה, אולי, כי לא היה לנו נעים לחוות את דעתנו . . .

על מה שאתה מכנה "מקרו"...

כדי לכתוב מקרו צריך להכיר את שפת ה- VBA ולהיצמד לאלגוריתם מסוים.

זה לא משתקף ממה שהצגת ולדעתי, הפורום איננו המקום המתאים ללמד את השפה.

 

[rozent1]

מקרו שאינו מזהה תא עם שם

אם זה לא מקרו אז מה זה מקרו? זה מה ששלחתי בקובץ כבר מספר פעמים
Sub Find_my_row2()
On Error Resume Next
If ActiveCell.Name = "Last_MyRow" Then
MsgBox "הסתיימה הפעולה"
Exit Sub
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Find_my_row2
End Sub

 

[u333]

מה רע בקובץ האחרון ששלחתי ב- 17/11 בשעה 11:55

הוא עושה בדיוק בדיוק את מה שביקשת !

 

[rozent1]

מקרו שלא מזהה תא עם שם

יש לי הרגשה שהקבצים שלי לא מגיעים אליכם
אתם כל הזמן מתיחסים לשאלה הראשונה ולקובץ הראשון בעוד שאני
כבר בשאלה שנייה עם קבצים חדשים
אולי אני עשיתי משהו לא נכון
הבעייה הוגדרה: "מקרו שלא מזהה שם של תא"
ואתם מתיחסים לבעייה הראשונה שהיתה
"איך מזהים את התא האחרון ברשימה מסומנת"

 

[u333]

לא ולא ולא !!!

בקובץ שציינתי יש התייחסות גם ! לשאלה השניה.
אחרי שכבר ניתן שם לתא האחרון - אז כאשר משוטטים ומגיעים אליו - מקבלים את ההודעה.
רק... שההודעה שלי קצת שונה מזו שביקשת.
אז מה הבעיה לשנות ?

 

[rozent1]

מקרו שאינו מזהה שם

מה זה משוטטים? אני לא משוטט ידנית.
המקרו יורד כל פעם תא וכיצד המקרו יזהה שהגיע לתא עם השם?

 

[u333]

אז כעת שחק עם הקובץ המצורף

לחץ על הלחצן וראה מה קורה