@NH-LOCAL זה דווקא היה דומה למה ש @אביי הביא

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

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

image.png

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

@dovid כתב בגיבוי קיצורי מקשים בוורד:

הידע של @מעלה-ומוריד על הקובץ normal.dot כבר מתועד קודם לכן

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

@dovid כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

נכון זה טרחה לעשות כזה קובץ,

הקובץ מוכן כך שלא מדובר בעניין של טרחה.

(וזה אחרי אריכות אף על הסרבול של הנושא שמתחיל משאלה נקודתית וסובב הולך לאיך לעשות מא' עד ת').

אולי באמת כדאי שאפתח פוסט חדש על השליחה עצמה.
עריכה: נפתח..: https://tchumim.com/post/152934

@שלום-עולם-0 אתה מגיב בלי לקרוא היטב מה כתבו.
@משתמש-תמים כתב מתחיל הודעותיו פה שזה תלוי אם זה פרו או לא.

למרות שנעזרתי רבות במאקרו שהבאת כאן לעיל, עדיין, בשביל קובץ בודד שחוברת העבודה שלו פתוחה חיפשתי פיתרון.

(כיוון שהנושא נפתח כאן אני משתף אותו למקרה ומאן דהו יחפש ג"כ תשובה לשאלה הפותחת של האשכול)

Sub Macro2() ' שמירה בשם, אותו שם, אותו נתיב קובץ, החלפת שם הסיומת, החלפת הפורמט ActiveWorkbook.SaveAs Replace(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, ".csv", ".xlsx"), 51 End Sub

תכלס, עשיתי עם ראר יצא ממש חמוד.
תודה לכולם.

מחקתי את השורה. השאלה עדיין תקפה

@Y-Excel-Access כתב בבאקסס-איפוס ID:

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

צודק, לא זכרתי שזה כך.

@צדיק-תמים כתב בסייר קבצים מותאם אישית:

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

לא בשנים האלה...

@צדיק-תמים

@צדיק-תמים כתב בקוד לחילוץ עצמי לתוכנה שנבנתה באקסס:

שיעביר משם את הקבצים למקומות הנכונים,

לא ממש הבנתי מה אני צריך לקחת משם?

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

On Error GoTo err Dim ctl As Control Dim strFilter As String If Me.fsubForm.SourceObject = "" Then Exit Sub If Len(Me.txtFind.text) < 1 Then Me.fsubForm.Form.FilterOn = False Exit Sub Else End If For Each ctl In Me.fsubForm.Form.Controls 'Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then 'רק פקדי טקסט If Left(ctl.ControlSource, 1) <> "=" Then 'דלג על תיבות טקסט מחושבים strFilter = strFilter & "[" & ctl.ControlSource & "] Like " & Chr(34) & "*" & txtFind.text & "*" & Chr(34) & " OR " End If End If Next strFilter = Left(strFilter, Len(strFilter) - 4) Me.fsubForm.Form.Filter = strFilter Me.fsubForm.Form.FilterOn = True Exit Sub err: Me.fsubForm.Form.Filter = "" Me.fsubForm.Form.FilterOn = False

@קינג-קומפיוטר כתב בתכנת "סייפר" | משאבים:

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

@מערכת
ביקשו לראות איך ה'טבלה' נראית. טבלה היא מקור נתונים לא פיווט.
אם אתה רוצה להיעזר, תן דוגמא של 2 הדברים,
1 הנתונים כפי שהם מופיעים.
2. איך אתה רוצה את התוצאה.
תוכל כמובן להשתמש עם נתוני דמה.

ואז ישמחו לעזור לך.