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

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

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

 

[rozent1]

מקרו לא מזהה..

הפעלתי את המקרו אך שום דבר לא קורה
הסמן נשאר היכן שאני מציב אותו
מתקבלת הודעה שהסתיימה הפעולה אך לא קורה כלום

 

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

המקרו סורק (בעזרת לולאה) את עמודה "E" (החל מתא E2). . .‏

&nbsp
כשהוא מוצא

את התא שעליו הוחל ה'שם', Last_MyRow, הוא מסיים ומציג את ההודעה.
&nbsp
&nbsp
שחק עם הקוד והתאם אותו לדרישותיך.
&nbsp

 

[rozent1]

מקרו לא מזהה

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

 

[u333]

האם בדקת את הקובץ ששלחתי בשעה 13:41

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

Sub FindTheName()
[E2].Select
aaa:
Application.Wait (Now + TimeValue("0:00:01"))
Set MyRng = Selection
    If Not Intersect(Range("mynewrange"), MyRng) Is Nothing Then
        MsgBox "äñúééîä äôòåìä"
        Exit Sub
    End If
    ActiveCell.Offset(1, 0).Select
    GoTo aaa
End Sub

כמובן העברית משובשת.

 

[rozent1]

מקרו לא מזהה...

סוף סוף הצליח
תודה רבה