טיפ במאקרו בתוכנת אקסל

[חנון המרבה]

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

Sub ????????()

מכניסים בזכרון את התא הפעיל:

Dim i
i = ActiveCell.Address

וממש בסוף לפני הסיומת

End Sub

כותבים שהוא יחזור למקום שבו היה (שהמקום הזה בעצם עדיין בזכרון שלו). כך:

Range(i).Select

לסיכום:

Sub ????????()
Dim i
i = ActiveCell.Address
    ?
    ?
    ?
    ?
    ?
    ?
    ?

    Range(i).Select
End Sub

[The shadow]

טיפ מעולה
שאלה קטנה
איך אני מכניס במשתנה את הטקסט שהתא מכיל?

[חנון המרבה]

@The-shadow אמר בטיפ במאקרו בתוכנת אקסל:

טיפ מעולה

שאלה קטנה

איך אני מכניס במשתנה את הטקסט שהתא מכיל?

אם הבנתי נכון את שאלתך זה אמור להיות כך: (לקחתי את תא A4 כדוגמא).

i = Range("A4").value

[The shadow]

@חנון-המרבה אמר בטיפ במאקרו בתוכנת אקסל:

אם הבנתי נכון את שאלתך זה אמור להיות כך: (לקחתי את תא A4 כדוגמא).

הבנת טוב
תודה

[The shadow]

i = Range(ActiveCell).Value

מעונין לשים את הערך של התא הפעיל במשתנה
למה זה לא נותן לי?

[dovid]

@The-shadow למה השאלות שלך לא בנושא חדש?
אני לא רואה קשר ישיר ביניהם לנושא.

[חנון המרבה]

@חנון-המרבה אמר בטיפ במאקרו בתוכנת אקסל:

אני לא יודע אם פתחת נושא חדש על זה או לא בכל מקרה התשובה היא

i = ActiveCell.Value

[The shadow]

@dovid אמר בטיפ במאקרו בתוכנת אקסל:

אני לא רואה קשר ישיר ביניהם לנושא.

צודק,
אשתדל להבא