ম্যাক্রো ব্যবহারের সময় এক্সলে 'রান-টাইম ত্রুটি' 7 'মেমরির বাইরে থাকা' ত্রুটি প্রতিরোধ করুন


0

আমি যখনই আমার এক্সেল ফাইলটিতে ম্যাক্রো চালাই তখন আমি এই ত্রুটিটি পেতে থাকি। আমি কি এটি প্রতিরোধ করতে পারি? আমার কোডটি নীচে। ডিবাগিং সমস্যা হিসাবে নিম্নলিখিত লাইনটি হাইলাইট করে:

ActiveSheet.Shapes.SelectAll

আমার ম্যাক্রো:

Private Sub Save()

Dim sh As Worksheet

ActiveWorkbook.Sheets("Report").Copy 'Create new workbook with Sheets("Report"(2)) as only sheet.
Set sh = ActiveWorkbook.Sheets(1) 'Set the new sheet to a variable. New workbook is now active workbook.
sh.Name = sh.Range("B9") & "_" & Format(Date, "mmyyyy") 'Rename the new sheet to B9 value + date.
With sh.UsedRange.Cells
    .Value = .Value 'eliminate all formulas
    .Validation.Delete 'remove all validation
    .FormatConditions.Delete 'remove all conditional formatting
    ActiveSheet.Buttons.Delete
    ActiveSheet.Shapes.SelectAll
    Selection.Delete

    lrow = Range("I" & Rows.Count).End(xlUp).Row 'select rows from bottom up to last containing data in column I
    Rows(lrow + 1 & ":" & Rows.Count).Delete 'delete rows with no data in column I
    Application.ScreenUpdating = False
    .Range("A410:XFD1048576").Delete Shift:=xlUp 'delete all cells outwith report range
    Application.ScreenUpdating = True

    Dim counter
    Dim nameCount

    nameCount = ActiveWorkbook.Names.Count
    counter = nameCount
    Do While counter > 0
    ActiveWorkbook.Names(counter).Delete
    counter = counter - 1
    Loop 'remove named ranges from workbook

End With
ActiveWorkbook.SaveAs "\\Marko\Report\" & sh.Name & ".xlsx" 'Save new workbook using same name as new sheet.
ActiveWorkbook.Close False 'Close the new workbook.
MsgBox ("Export complete. Choose the next ADP in cell B9 and click 'Calculate'.") 'Display message box to inform user that report has been saved.

End Sub

কীভাবে এটি আরও কার্যকর করা যায় বা এই ত্রুটিটি রোধ করতে হবে তা নিশ্চিত নন।


ওয়ার্কবুকটিতে কি কোনও আকার রয়েছে?
LPChip 20'14

হ্যাঁ, 3 টি ফর্ম নিয়ন্ত্রণ বোতাম।
মাস্টারজেডি

ফর্ম নিয়ন্ত্রণ বোতাম আকার নয়। আমি মনে করি এটি কোনও ত্রুটি নেই কারণ এটি এই ত্রুটি দেয়।
এলপিসিপ
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.