בהמשך למה שכתבת ראיתי את הספר הזה

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

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

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

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

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

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

רשמתי

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

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

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

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

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

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

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

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

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

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

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

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
זה הקוד כפתור ראשון

Sub browseFolderPath()
    On Error GoTo err
    Dim fileExplorer As FileDialog
    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
End Sub

@מתמחה-במחשבים אמר בעריכת קוד VBA באקסל:

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

ניסיתי לעשות בעצמי
כך שבמקום xPats (המשתנה בסוגריים)
הכנסתי

range("גיליון1!H5").value

הרעיון לעצמו עובד
אך שאני מפעיל אותו הוא לוקח זמן רב
איפה טעיתי?

@dovid
תודה רבה!
עובד היטב!
חסכת לי הרבה עבודה!

@pink

לכי לתיקיית הורדות ומצאי את התוסף שהורדת
תעתיקי את הטקסט
chrome://extensions/
ותדביקי אותו בחיפוש בדפדפן
(או לחילופין, מצאי את השלוש נקודות בצד שמאל של הדפדפן
לכי לכלים נוספים
ומשם לתוספים)
ותגררי את התוסף מהתיקייה לשם

@pink אמר במדוע לא עובד המילטיארק???:

@master
זה לא נותן לי להוריד,
זה אומר לא ניתן להוריד מהאתר הזה,
אולי למישהו יש פיתרון???

הוא אומר שלא ניתן להתקין מאתר זה
או שאומר שלא ניתן להוריד בכלל?

@משחזר-מידע ראה התמונה לעיל, לפי ההיגיון מחיצה 6 היא המחיצה המדוברת שצריך להיות מותקנת עליו לינוקס.
וווינדוס מציג אותו כריק.

האם יש צורך לבדוק בתוכנת צד שלישי?

@משחזר-מידע אמר באיך להסיר לינוקס ממחשב שמותן עלוי לינוקס ווינדוס:

@searchnicks אמר באיך להסיר לינוקס ממחשב שמותן עלוי לינוקס ווינדוס:

האם מחיצות בפורמט ext4 מוצגים כריקים בווינדוס?

וינדוס לא יכול לקרא מחיצת EXTx

אז הוא מציג כריק 100%?

@משחזר-מידע
האם מחיצות בפורמט ext4 מוצגים כריקים בווינדוס?

@יוס צריך להיות לפחות 10 גיגה בשימוש

@יוס משני התמונות נראה שלא קיים מחיצה של לינוקס.
האם הינך בטוח שקיים לינוקס?

שים לב שקיים מחיצה (6) ריקה (100%) בגודל כמעט 70 גיגה.

בשביל לגשת לניהול דיסקים

1. פתח את 'ניהול המחשב' על ידי בחירה בלחצן התחל . לאחר מכן בחר לוח בקרה > מערכת ואבטחה> כלי ניהול ולחץ פעמיים על ניהול המחשב.
2. בחלונית הימנית, תחת אחסון, בחר באפשרות ניהול דיסקים.
   שלח צילום

@searchnicks

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