Hi Everyone,
I installed Excel 2013 on my PC. and made the excel workbook with VBA in it. It is now perfectly running.
When I went for work and used my newly made excel workbook. it started having many problems in our office we use Excel Office 365.
the Error I am having is
===================
Run-time error '-2147417848(80010108)':
Method 'Range' of object '_Worksheet' failed
===================
clicking Debug mode I went to this line that looks fine to me.
=============================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("ARCHIVE").Range("A12") = 1 And Sheets("DATABASE").Range("B3") <> "" Then
Sheets("ARCHIVE").Range("A12").Value = 0
Call Eraser2
Call RowCount2
Call Window2
Call Mark2
End If
End sub
=============================================
So, I experimented on the case, I totally removed the if endif commands. Now it made a domino effect, the other codes are having error as well.
=============================================
Deleting this error...
This error popped up next
=============================================
Sub Eraser2()
Sheets("Report 02").Range("A5:A100").Clear
End Sub
=============================================
Deleting this error the Workbook run infinitely and hang.
all cells went big.
Can anybody explain what is happening ?
Thanks again guys.
I installed Excel 2013 on my PC. and made the excel workbook with VBA in it. It is now perfectly running.
When I went for work and used my newly made excel workbook. it started having many problems in our office we use Excel Office 365.
the Error I am having is
===================
Run-time error '-2147417848(80010108)':
Method 'Range' of object '_Worksheet' failed
===================
clicking Debug mode I went to this line that looks fine to me.
=============================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("ARCHIVE").Range("A12") = 1 And Sheets("DATABASE").Range("B3") <> "" Then
Sheets("ARCHIVE").Range("A12").Value = 0
Call Eraser2
Call RowCount2
Call Window2
Call Mark2
End If
End sub
=============================================
So, I experimented on the case, I totally removed the if endif commands. Now it made a domino effect, the other codes are having error as well.
=============================================
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("ARCHIVE").Range("A12").Value = 0
Call Eraser2
Call RowCount2
Call Window2
Call Mark2
End If
End sub
=============================================Call RowCount2
Call Window2
Call Mark2
End If
End sub
Deleting this error...
This error popped up next
=============================================
Sub Eraser2()
Sheets("Report 02").Range("A5:A100").Clear
End Sub
=============================================
Deleting this error the Workbook run infinitely and hang.
all cells went big.
Can anybody explain what is happening ?
Thanks again guys.