আমি যখনই আমার এক্সেল ফাইলটিতে ম্যাক্রো চালাই তখন আমি এই ত্রুটিটি পেতে থাকি। আমি কি এটি প্রতিরোধ করতে পারি? আমার কোডটি নীচে। ডিবাগিং সমস্যা হিসাবে নিম্নলিখিত লাইনটি হাইলাইট করে:
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 টি ফর্ম নিয়ন্ত্রণ বোতাম।
—
মাস্টারজেডি
ফর্ম নিয়ন্ত্রণ বোতাম আকার নয়। আমি মনে করি এটি কোনও ত্রুটি নেই কারণ এটি এই ত্রুটি দেয়।
—
এলপিসিপ