אלון, שאלה נוספת..
יצרתי מאקרו שתפקידו לצאת מהספריה הקיימת, ליצור ספריה חדשה ששמה הוא משתנה מסוג מחרוזת, ולשמור את הקובץ בספריה שנוצרה. אני משתמש בפקודה chdir. הבעיה היא שלצאת מהספריה הקיימת אני מצליח, אבל chdir לא מוכן לקבל את המחרוזת כדי ליצור ספריה. אני מצרף קובץ. פקודת המאקרו המדוברת נקראת "הוסף_שנה". טוב, לא הצלחתי לצרף כי הקובץ גדול מידי. אני כותב פה את הקוד ששמתי, נקווה שיצא טוב: Sub פתח_שנה() Dim year As String Dim last_year As String last_year = Cells(4, 2) year = Cells(22, 9) ´ הקטע הבא פותח ספריה חדשה בשם השנה ושומר את הקובץ כינואר -01: ChDir "../" ChDir year ActiveWorkbook.SaveAs Filename:= _ "ינואר - 01.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ´השורות הבאות מנקות את תוכן התאים עבור הקובץ החדש ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _ "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")).Select Sheets("1").Activate Sheets(Array("26", "27", "28", "29", "30", "31")).Select Replace:=False Union(Range( _ "M7,H8:I8,J8,K8:L8,M8,H9:I9,J9,N9:O9,P9,H10:I10,J10,N10:O10,P10,H11:I11,J11,N11:O11,P11,E12:F12,G12,K12:L12,M12,Q12:R12,S12,E13:F13,G13,K13:L13,M13,Q13:R13,S13,E14:F14,G14,B15
15" _ ), Range( _ "E15:F15,G15,B16
16,E16:F16,G16,E17:F17,G17,H17:I17,J17,K17:L17,M17,N17:O17,P17,Q17:R17,S17,E18:S18,C4
4,F4:G4,I4:J4,L4:M4,O4
4,R4:S4,B5:C5,E5:F5,H5:I5,D5,G5,J5,L5:M5,N5:O5,P5,Q5:R5" _ ), Range( _ "S5,B6:C6,D6,E6:F6,G6,H6:I6,J6,K6:L6,M6,Q6:R6,S6,B7:C7,D7,H7:I7,J7,K7:L7")). _ Select Range("E18").Activate ActiveWindow.ScrollRow = 12 Union(Range( _ "M7,H8:I8,J8,K8:L8,M8,H9:I9,J9,N9:O9,P9,H10:I10,J10,N10:O10,P10,H11:I11,J11,N11:O11,P11,E12:F12,G12,K12:L12,M12,Q12:R12,S12,E13:F13,G13,K13:L13,M13,Q13:R13,S13,E14:F14,G14,B15
15" _ ), Range( _ "E15:F15,G15,B16
16,E16:F16,G16,E17:F17,G17,H17:I17,J17,K17:L17,M17,N17:O17,P17,Q17:R17,S17,E18:S18,B19:S19,B20:S20,C4
4,F4:G4,I4:J4,L4:M4,O4
4,R4:S4,B5:C5,E5:F5,H5:I5,D5,G5,J5,L5:M5,N5:O5" _ ), Range( _ "P5,Q5:R5,S5,B6:C6,D6,E6:F6,G6,H6:I6,J6,K6:L6,M6,Q6:R6,S6,B7:C7,D7,H7:I7,J7,K7:L7" _ )).Select Range("B20").Activate ActiveWindow.ScrollRow = 1 Selection.ClearContents ´ גורם לבחירה בגליון הראשי והכנסת החודש כמחרוזת: Sheets("ראשי").Select Cells(4, 3).Select ActiveCell.FormulaR1C1 = "01" End Sub