אקסל האשכול המרכזי לשאלות באקסל/גוגל שיטס

[xl3391]

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

Sub CityToSheets()
    Dim i As Integer
    i = 2
    Do While Cells(1, i).Value <> ""
    
        Range(Columns(i), Columns(i + 1)).Copy
        Sheets.Add.Name = Sheets("שם גיליון שבו הטבלה").Cells(1, i).Value
        [B1].Select
        ActiveSheet.Paste
        
        Sheets("שם גיליון שבו הטבלה").Select
        i = i + 2

    Loop
End Sub

 

[מרובע]

הוא לא נותן לי להפעיל את הקוד

 

[Cהרשי]

שלום רב,

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

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

 

[xl3391]

הוא לא נותן לי להפעיל את הקוד

צפה בקובץ המצורף 709302

צריך לשנות את שם הגיליון לשם הגיליון שלך.
בכל אופן להלן קוד מעודכן שלא תצטרך לעדכן את שם הגיליון:

Sub CityToSheets()
    Dim i As Integer
    Dim sh As String
    
    i = 2
    sh = ActiveSheet.Name
    
    Do While Cells(1, i).Value <> ""
    
        Range(Columns(i), Columns(i + 1)).Copy
        Sheets.Add.Name = Sheets(sh).Cells(1, i).Value
        [B1].Select
        ActiveSheet.Paste
        
        Sheets(sh).Select
        i = i + 2

    Loop
    Application.CutCopyMode = False
    
End Sub

 

[מרובע]

גם שגיאה

 

[אפר]

גם שגיאה
צפה בקובץ המצורף 709372

אצלי עובד רק לא מעתיק לכל הגליונות את עמודת כותרת השורה
מצו"ב קוד שמעתיק

Sub CityToSheets()
    Dim i As Integer
    Dim sh As String
    
    i = 2
    sh = ActiveSheet.Name
    
    Do While Cells(1, i).Value <> ""
        Range(Columns(i), Columns(i + 1)).Copy
        Sheets.Add.Name = Sheets(sh).Cells(1, i).Value
        [B1].Select
        ActiveSheet.Paste
        
        Sheets(sh).[A:A].Copy
        [A1].Select
        ActiveSheet.Paste
        
        Sheets(sh).Select
        i = i + 2

    Loop
    Application.CutCopyMode = False
    
End Sub

 

[אפר]

גם שגיאה
צפה בקובץ המצורף 709372

אולי יש נוסחאות?
והם לא מועתקות טוב?

 

[מרובע]

מה יכול להיות שגיאה 400 ?

 

[מרובע]

אולי יש נוסחאות?
והם לא מועתקות טוב?

זה קובץ ריק שכתבתי בו את הערים והתאריכים בלי שום נוסחאות.
ופתחתי את עריכת VBA והדבקתי את הקוד הנ"ל, ואז הפעלתי אותו ב"הפעל" וזה התוצאה.

 

[אפר]

מה יכול להיות שגיאה 400 ?

זה כנראה עם מסנן הטבלה המקורית

error 400 in vba-excel

I'm fairly new to vba and i don't understand why i'm getting error 400. I'm having this list. When i push the button, this list has to be deleted, you have to select a file and then the new list w...

stackoverflow.com

 

[xl3391]

פתחתי את עריכת VBA והדבקתי את הקוד הנ"ל

איפה הדבקת את הקוד? (צריך במודול ולא בגיליון)
כלומר, לפתוח מודול כך:

ובתוכו להדביק את הקוד.

 

[זכריה התימני]

מאסטר באקסל

www.prog.co.il

אולי תוכל להעלות לימוד אקסל להורדה עדיף צפיה
תודה מראש.

 

[מרובע]

סוף סוף עבד לי.
תוכל להסביר בשתי מילים מה ההבדל בין להדביק סתם בעורך vba לבין להדביק בתוך מודול?

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


שאלה שניה: אני מעביר את הקובץ למישהו אחר ואני מעדיף להביא קובץ אקסל רגיל ולא קובץ עם מקרו (שיכול להציג לו סתם אזהרות וכו') האם הפתרון הוא סתם "שמור בשם" xlsx וזהו? (הוא מזהיר שהמאקרו יאבדו ואני מאשר ושלום על ישראל).

 

[Cהרשי]

שלום רב,

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

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

???

 

[אפר]

???

קובץ > אפשרויות > מתקדם

 

[RBF]

איך הופכים את האותיות באקסל?
כל העברית כתוב לי משמאל לימין
כך:
ןימיל לאמשמ

 

[מרובע]

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

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

dim Num_Cells as integer
Num_Cells = InputBox("כמה עמודות לכל עיר?")

 

[xl3391]

תוכל להסביר בשתי מילים מה ההבדל בין להדביק סתם בעורך vba לבין להדביק בתוך מודול?

זה לא 'סתם' בעורך הVBA.
אם מדביקים בקטע ששמור לגיליון מסוים הקוד מוגבל לגיליון המסוים.
אם מדביקים בקטע ששמור לחוברת העבודה הקוד מוגבל לחוברת העבודה (הקוד הנ"ל היה עובד גם אם היה מודבק בקטע זה, אבל אם למשל היית מנסה להדביק בחוברת חדשה היתה מתקבלת שגיאה).
אם מדביקים במודול חדש - הקוד לא מוגבל.

 

[xl3391]

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

dim Num_Cells as integer
Num_Cells = InputBox("כמה עמודות לכל עיר?")

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

Sub CityToSheets()
    Dim i As Integer
    Dim Num_Cells As Integer
    Dim sh As String
    
    Num_Cells = WorksheetFunction.CountIf([1:1], [B1].Value)
    i = 2
    sh = ActiveSheet.Name
    
    Do While Cells(1, i).Value <> ""
        Range(Columns(i), Columns(i + Num_Cells - 1)).Copy
        Sheets.Add.Name = Sheets(sh).Cells(1, i).Value
        [B1].Select
        ActiveSheet.Paste
        
        Sheets(sh).[A:A].Copy [A1]

        Sheets(sh).Select
        i = i + Num_Cells

    Loop
    Application.CutCopyMode = False
    
End Sub

 

[xl3391]

איך הופכים את האותיות באקסל?
כל העברית כתוב לי משמאל לימין
כך:
ןימיל לאמשמ

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

Sub opsStr()
    Dim rn As Range
    Set rn = Selection
    For Each cl In rn
        cl.Value = StrReverse(cl.Value)
    Next
End Sub