שאלה באקסל

[minach]

שאלה באקסל

האם יש אפשרות ליצור מאקרו שיכתוב לי כל פעם בתא A1 מספר מטווח מספרים מסוים (למשל שיחליף מספר מתא A3 עד תא B3) וידפיס את הדף הזה. למשל אני יכתוב לו תכתוב בתא A1 את הספרה 1 ותדפיס אח"כ תכתוב 2 ותדפיס וכן הלאה

 

[minach]

הסבר קצת יותר מובן של השאלה

יש לי קובץ שמכיל גליון1 שבו יש טבלה עם המון נתונים שהנתון הראשון בטבלה זה מס' סידורי 1,2,3 וכו'.
יש לי בגליון 2 נוסחת VLOOKUP שמושכת נתונים מגליון1 לפי מס' תא והתוצאה מתפרסת על פני דף שלם.
למשל אם בגליון2 בתא A1 כתוב את הספרה 1 היא מושכת את כל הנותנים הרלוונטים מהטבלה שממוקמת בגליון1 ע"פ התא הראשון בטבלה שמכיל ג"כ את הספרה 1
&nbsp
השאלה שלי היא האם יש אפשרות ליצור מאקרו שכל פעם יחליף בגליון2 בתא A1 את הספרה שכתובה שם ל2,3,4,5, וכן הלאה ואחרי כל החלפה ידפיס את הדף כך שיהיה לי דוח של כל הנתונים לפי המספר בתא A1?
ואם כבר יש אפשרות נעבור לשלב הבא האם אפשר להגדיר לי שיעשה את זה לפי השורות בטבלה למשל אם ביצעתי סינון לטבלה שיצר סדר מספרים לא רציף כגון שהשורה הראשונה בטבלה זה 3 ואח"כ 5 וא"כ 11 וכן הלאה המאקרו יבצע החלפה לפי מספרי השורות שנשארו לאחר הסינון.
&nbsp
מקווה שהסברתי את עצמי ברור

&nbsp
תודה רבה מאוד לכל העוזרים והמסייעים!
&nbsp
לא יודע איפה אפשר לערוך את השאלה שלי לכן כתבתי את ההסבר בתגובה
&nbsp
אקסל 2016 וינדוס 10

 

[iyyi]

המקרו המצורף יבצע את בקשתך

להלן קוד המקרו:

Sub PrintPages()
Lr = Sheets("נתונים").Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To Lr
    If Not Sheets("נתונים").Rows(i & ":" & i).Hidden Then
        [a2] = Sheets("נתונים").Range("A" & i)
        ActiveSheet.PrintOut
    End If
Next i
End Sub

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

 

[minach]

תודה רבה

עוד לא ניסיתי את זה בשטח
אבל אני מרגיש חובה להודות על העזרה והסיוע
&nbsp
יישר כח!!!