@chocolate
הבעיה נפתרה לך?
אם לא עיין כאן

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

@dovid
אמת
העדפתי תיבת דו שיח (שמאפשר לבחור כמויות)
אבל כפי שציינת וויתרתי על כך

@dovid אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

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

הואל להאיר את עיני

@dovid
אני חיפשתי בגוגל (בתרגום מראש לאנגלית) הדפסת טווח מוגדר, וכן פתיחת הדו"ש הדפסה
תאמין לי שחפרתי מאד הרבה
שילוב של שניהם לא היה
(התבססתי על המאקרו של הדפסת טופס כאן )

@dovid אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

@מתמחה-במחשבים ראשית כל הכבוד על הפתרון וההתקדמות הכה מהירה!
אך שים לב לעצה קטנה שלי.
שאלת שאלה איך משלבים את:
רק שלא סיפרת שהצורך שלך הוא סך הכל לבחור את המדפסת. ואתה מוכן לוותר, לפחות בינתיים על שלל הפרמטרים שתיבת הדו שיח נותנת (כמו הדפסה דו צידית וכו' וכו').

האם יש אפשרות כזאת?

ככל שתשאל ברור יותר ותספר מה אתה צריך, תחסוך זמן.

רשמתי

@chagold @מנצפך @david
בסייעתא דשמיא הצלחתי לעשות הקוד הזה

Sub PrintSomeCells()
Dim RetStat
RetStat = Application.Dialogs(xlDialogPrinterSetup).Show
If RetStat Then Range("A6").PrintOut
End Sub

והוא פועל היטב
ואפילו עוד יותר טוב
כי הוא פותח את החלון הזה

וזה בלעדי ואין את זה בשום פורום אינטרנטי!!

@chagold
זה פותח את ההדפסה שבתוך קובץ
אני מתכוון חלון חדש להדפסה

@chagold
אבקש סליחה מכבודו על הטרחה
אך המאקרו שהבאת הוא מאקרו זהה למאקרו הראשון שהבאתי (רק שהטווח הוא בחירה ידנית)

הוא לא מפעיל תיבת דו שיח כנ"ל

(האם יש קיצור מקשים באקסל לפתיחת תיבת דו שיח? כמו כאן בכרום cntl+shift+p)

@מנצפך
תודה על עזרתך
הדו שיח שציינתי הוא מובנה באקסל
ראה תמונה

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

@אלי-tza
תוכל להרחיב יותר לגבי ניווט שטח מהו?

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

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

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

מאקרו להדפסת טווח מותאם אישית (למדפסת ברירת מחדל)

Sub PrintSomeCells()
Range("A2:G24").PrintOut
End Sub

מאקרו להדפסה באמצעות תיבת דו שיח

Sub Print()
  Application.Dialogs(xlDialogPrint).Show
End Sub

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

@aiib
מוזר אצלי זה שונה ונקרא גךקסי יאנג'

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

Sub browseFolderPath()
    On Error GoTo err
    Dim fileExplorer As FileDialog
    Dim answer As Integer
    answer = MsgBox("לאחר בחירה מחדש של התיקיית דוחות, יש להמתין מס' דקות כדי לחשב מחדש, האם אתה רוצה להמשיך?", vbYesNo + vbExclamation + vbDefaultButton2 + vbMsgBoxRtlReading)
If answer = vbYes Then
    Set fileExplorer = Application.FileDialog(msoFileDialogFolderPicker)
    
    'To allow or disable to multi select
    fileExplorer.AllowMultiSelect = False
    
    With fileExplorer
        If .Show = -1 Then 'Any folder is selected
            ['גיליון5'!H1] = .SelectedItems.Item(1)
        Else ' else dialog is cancelled
            MsgBox "עליך לבחור נתיב תיקיה מתאימה"
        End If
    End With
err:
    Exit Sub
MsgBox "הנתיב שצוין הוא" & vbNewLine & vbNewLine & Range("'גיליון5'!H1").Value
Else
    'do nothing
End If
End Sub

@מעמד
מצאת
לא סתם סתמו את זה
זה נראה כזה שאפשר להסיר

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

@dovid
בסייעתא דשמיא מצאתי את הכלב
מתברר שהיה לי קוד (פונקציה מותאמת אישית) נוסף (שעבד מאד טוב)
ששאב את הנתון מתא של נתיב קובץ (שהוצב ע"י המאקרו הנל)
התברר שכל פעם שאני משנה את הנתיב של הקובץ הוא מבצע החישובים שוב (דבר שלוקח זמן שמדובר בכמות תאים)
ולא שמתי לב לזה מכיוון שלפני ששמתי את המאקרו לא שיניתי כלל את הנתיב (כי לא היה צורך)

בכל אופן תודה רבה על הרצון לסייע!!!

@dovid אמר בעריכת קוד VBA באקסל:

משונה, הקוד הזה רץ אצלי בלי רגע של שיהוי.

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

אין לי מושג איפה קבור הכלב