0
Sub summarize()
Dim sh As Worksheet
'Using sh for explicit summary worksheet for simplicity, doesn't have to reslect constantly
Dim summarySheet As Worksheet
'Defines the summarysheet as a worksheet
Dim summaryExists As Boolean
'Checks for truthiness
Dim summarysheet9 As Worksheet
Dim SummaryExists9 As Boolean
Dim n As Integer
n = ActiveWorkbook.Sheets.Count
'How many sheets are in the workbook?
Dim procMe()
ReDim procMe(n)
'Defining how many sheets we'll actually use
Dim ii As Integer
reportDate = WorksheetFunction.EoMonth(Date, -1)
'We should be doing month closings in the next month. This finds the last day of the prior month, when month closings are booked
RefDescription = Format(reportDate, "MMMM") & " close"
'The batch description entry
Dim headers() As Variant
headers = Array("Reference", "Reference Desc", "Type", "Reversal Date", _
"Close Date", "Project", "Job#", "Cost Code", "Account", _
"Variance Code", "Amount", "Transaction Date", "Detail Description")
'The headers for the summary sheet
ii = 0
REFCOL = 1
DESCCOL = 2
TYPECOL = 3
REVCOL = 4
CLOSECOL = 5
PROJCOL = 6
JOBCOL = 7
CCCOL = 8
ACCCOL = 9
VARCOL = 10
AMTCOL = 11
DATECOL = 12
DDESCCOL = 13
'Defines the location of each column, and what goes in each column
summaryExists = False
'Setting it to false initially, so that if it isn't found, we call it false. Just incase VBA decides to call it true by default.
SummaryExists9 = False
For Each sh In ActiveWorkbook.Sheets
If sh.Name = "JournalEntryTransactions" Then
summaryExists = True
'If we find a sheet called JournalEntryTransactions, then we're good to go.
End If
If sh.Name = "JournalEntryTranscations9" Then
SummaryExists9 = True
'Same as above, but for 900
End If
If sh.Name = "Payroll" Then
sh.Activate
ii = ii + 1
procMe(ii) = "Payroll"
End If
'If we find a payroll sheet, we like it
If Val(sh.Name) > 0 Then
ii = ii + 1
procMe(ii) = sh.Name
'If the name of the sheet is an integer, we like it
Else
'Debug.Print "I don't know what to do with " & sh.Name
'Debugging when it wasn't working too well
End If
Next sh
ReDim Preserve procMe(ii)
If Not summaryExists Then
Set summarySheet = ActiveWorkbook.Sheets.Add
summarySheet.Name = "JournalEntryTransactions"
'If we don't have a summary sheet, add it in
Else
Set summarySheet = ActiveWorkbook.Sheets("JournalEntryTransactions")
summarySheet.Range("A1", summarySheet.Cells.SpecialCells(xlCellTypeLastCell)).Clear
End If
'If we already have a summary sheet, we're clearing it out
If Not SummaryExists9 Then
Set summarysheet9 = ActiveWorkbook.Sheets.Add
summarysheet9.Name = "JournalEntryTransactions9"
'If we don't have a summary sheet, add it in
Else
**Set summarysheet9 = ActiveWorkbook.Sheets("JournalEntryTransactions9")**
summarySheet.Range("A1", summarySheet.Cells.SpecialCells(xlCellTypeLastCell)).Clear
End If
'If we already have a summary sheet, we're clearing it out
Nahe dem Ende, Set summarysheet9 = ActiveWorkbook.Sheets („JournalEntryTransactions9“) verursacht einen Laufzeitfehler 9. Für das Leben von mir, ich kann‘ Ich finde, was ich vermisse.Ärger heraus herauszufinden, einen Laufzeitfehler 9
Was ich versuche zu tun ist, wenn wir eine Zusammenfassung Blatt (9) bereits generiert haben, löscht es alles im Blatt (9).
Das "normale" Blatt funktioniert (das Bit des obigen Codes) - nur Blatt 9 funktioniert nicht. Es erzeugt Geld, wenn ich kein Blatt habe, es wird nur wütend darüber, es zu löschen.
Sie haben einen Tippfehler - ' "JournalEntryTranscations9"', nicht ' "JournalEntryTransactions9"'. – Comintern
Danke! Ich habe es behoben, aber es ist immer noch wütend auf mich – Selkie