בניתי אלפון חמוד לשיעור שלי בישיבה
ואמרתי שלמה שלא ייהנו ממנו עוד אנשים
מי שמעוניין יכול לשלוח לי מייל ל avi.ivr.pro@gmail.com ואשתדל לסדר לו

יש באלפון כמובן

• שם
• כתובת
• פלאפון
• לפון בבית
• קוד אישי
• הצגת מיקום אישי על המפה
• הצגת מיקום של כולם על המפה

ועוד...

הבסיסי יהיה בחינם
ואם מישהו ירצה התאמות ושיפורים זה כבר סיפור אחר

צילומי מסך בספוילר
עדכון: מצ"ב קישור לאתר לדוגמה http://avi-ivr.onlinewebshop.net/example/

Spoiler

@יאיר-צ כתב בבקשה | יש לי חלום.... "שיעבודא פון":

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

אפשר להוסיף מספר ישיר שאתה מחייג הוא מבקש סיסמא וישר מעביר אותך להגדרת סכום לחיוב
זה לא חייב להיות כזה מסובך

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

ויש ישיבות שכן יש

Spoiler

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

אז תפעיל את המאקרו
ותשנה בשורות הבאות

• שורה 7 שם מסמך המקור (לא כולל סיומת)
• שורה 26 שם מסמך היעד (כנ"ל)
• שורה 28 שם מסמך המקור (כנ"ל)

    Sub SelectSpecificPage()
        Dim pge As Integer
        Dim rng As Range
        Dim dd As String
       mimi = MsgBox("האם לעדכן את המסך במהלך המאקרו?" & vbCrLf & vbCrLf & "זה עלול לגרום לקריסת המחשב!!!" & vbCrLf & "מומלץ רק במחשבים חזקים!", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo, "אזהרת אבטחה")
If mimi = vbYes Then Application.ScreenUpdating = False
        Windows("מסמך המקור").Activate
        pge = InputBox("הזן את העמוד הראשון", "העתקת עמודים")
        avi = pge
        en = InputBox("הזן את העמוד האחרון", "העתקת עמודים")
              dd = pge
       lo = en - pge + 1
MsgBox "מעתיק: " & lo & " עמודים", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "העתקת עמודים"

For i = 1 To lo


asdf = pge
If pge > 0 Then
            Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pge

            Set rng = Selection.Bookmarks("\Page").Range

            rng.Select
            Selection.Copy
            Windows("מסמך היעד").Activate
            Selection.Paste
            Windows("מסמך המקור").Activate
        Else
            MsgBox "מספר עמוד לא חוקי.", vbExclamation
   exit sub
     End If
        MsgBox "עמוד מספר: " & pge & " הועתק בהצלחה" & vbCrLf & vbCrLf & "לחץ אישור להמשך", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "העתקת עמוד " & pge
       pge = pge + 1
        Next i
       Application.ScreenUpdating = True
        MsgBox "בוצעו: " & lo & " העתקות!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "הפעולה בוצעה בהצלחה"
    
    End Sub

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

בהצלחה
גמר חתימה טובה

@kasnik מה אתה אומר על מה שבניתי?

יאללה
תרים את הכפפה לטובת עם ישראל
פגז
אני איתך

Spoiler

@משה-הגאון למה להיות איש רע????

@נוחעם-FM כתב בבקשת מידע | מחפש המלצה לאוזניות:

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

הוא מבולבל מרוב אינפורמציה אז הוא מבקש מהשפויים שיעזור לו

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

@מים-אחרונים אני מנסה משהו אחר עובד עליו כבר הרבה זמן

5 דקות (אפילו פחות) וזה מוכן

מוכן.
מיד כותב פוסט

@kasnik ניסה

@מים-אחרונים כן
אתה יכול גם ליצור את זה בכרטיסיה
מייד אכתוב על זה הדרכה

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

@החפץ-בעילום-שם-0 033090300 פתוח

@לייזער-ס תתקשר ותשמע

@kasnik כתב בבקשת מידע | ועד הרבנים -קו טלפוני:

@יוסף-אלחנן הוא מבין במושגים חוקתיים?

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