עזרה הדדית - אקסל

@מטעמים תודה רבה רבה עזרת לי מאוד

@יוסי-שווארץ כתב בבקשת מידע | מדבקות דואר: @מטעמים אני צריך כזה פורמט מה אני עושה תחילת הפצה ופורמט בקשות.xlsx מה הבעיה? אתה פשוט משנה את הפרמטרים. זה הכל. (לחצת על החץ השני?)

@YAKOVMI כתב בבקשת מידע | מיון וקבלת סכום כולל של ערכים בקובץ אקסל: אתה יכול לעלות כאן דוגמה נוספת אבל שהסיכום יהיה בגיליון אחר? בבקשה: דוגמא2 (1).xlsx שים לב, להלן תיעוד של מה שביצעתי על מנת לקבל סיכום בגיליון 2 של נתוני גיליון 1, עליך לבצע את הפעולות הבאות: לשכפל את גיליון 1 (העתק לסוף) למחוק את כל עמודות הנתונים חוץ מעמודת המספר טל. לבצע הסרת כפילויות: [image: 1687381636182-20c2d9dd-9270-42a3-9b9a-70e91c2c2806-image.png] לכתוב את הנוסחאות מחדש בגיליון 2 כשהפעם הקישור של הסיכום הוא לעמודות הרלוונטיות בגיליון 1 עם שימוש בתא שמימין (בעמודה A).

@זאב-לבן תבדוק אופציה להעביר את כל המסד לתוכנת הסיפריה החינמית מרים http://www.msoft.co.il/ אולי תרוויח עוד פונקציות יש לי את סיסמת המסד

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

11.XLSX פתוח לעריכה

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

חיפשתי ברשת פתרון לזה ומצאתי באתר של מיקרוסופט עצה לסמן וי בשורה הזו בהגדרות: [image: 1683707160437-de5a8dd4-da0b-4eb8-bf9f-f0adcfa96034-image.png] רק מה, הוא לא נותן לסמן.... השורה כולה בצבע אפור. אשמח אם למישהו יש פתרון לזה.

@8888 פשוט כשאתה מגיע לסמן את B מהגיליון השני אתה עובר גיליון ובוחר את התאים שאתה רוצה. דוגמא.xlsx

@שמואל-ש קוד מאקרו: Dim ws As Worksheet Dim lastRow As Long Dim currentRow As Long Dim columnNumber As Long ' הגדרת העמודה לפי מספר העמודה (1 = A, 2 = B, וכו') columnNumber = 1 ' הגדרת הגיליון שבו נרצה לפעול Set ws = ThisWorkbook.Worksheets("Sheet1") ' הגדרת השורה האחרונה בעמודה lastRow = 50 ' עובר על כל התאים מהשורה האחרונה ולמעלה, תוך שימוש בקפיצות של -1 For currentRow = lastRow To 2 Step -1 ' בדיקת האם שני התאים הסמוכים מכילים ערכים שונים If ws.Cells(currentRow, columnNumber).Value <> ws.Cells(currentRow - 1, columnNumber).Value Then ' הוספת שורה חדשה בין התאים ws.Rows(currentRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If Next currentRow להגדרת השורה האחרונה בקובץ הכנס ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row

@בסייעתא-דשמיא תעשה VLOOKUP על כל אחד מהטורים שאתה רוצה לקבל

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

רובי הבוט עזר לי בכמה וכמה עניינים טכניים, כגון הגדרות של מדפסות וכד', הרבה פעמים הוא בלבל את המוח אבל הוא סה"כ די יעיל.

הנה הפיתרון...

@עולה-במסילה תודה רבה רבה! נפתח בנטפרי. [image: %D7%9E%D7%90%D7%95%D7%A9%D7%A8-%D7%91%D7%A0%D7%98%D7%A4%D7%A8%D7%99.png]

@יוני-1 תמחק את מה שהבאתי, תיכנס מחדש ל- "חוברת עבודה זו" ותדביק: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Target.EntireRow.Copy End Sub הבעיה שברגע שאתה לוחץ פעמיים הוא ניכנס לתוך התא וזה הורס את העתקה

@סקרן-0 כשאני לוחץ shift + enter זה יוצא מהתא הספציפי ועולה לתא שמעליו