Radoslaw Poprawski
Active Member
- Joined
- Jun 19, 2021
- Messages
- 405
- Office Version
- 365
- Platform
- Windows
Hello
I am working on a code and I decided to use this video for help:
I am using excel 365 newest eddition,
Sadly I am getting error here:
the code is red and when I try running this:
I am getting this error:
Can I ask for help in fixing this?
I am working on a code and I decided to use this video for help:
I am using excel 365 newest eddition,
Sadly I am getting error here:
VBA Code:
VERSION 2.0 CLASS
BEGIN
MultiUse = -1 'True
End
Attribute VB_Name = "clsArray2D"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
VBA Code:
Option Explicit
Sub GetData()
Dim TrialBalanceReckonciliationData As New clsArray2D
Dim NotesCombined As New clsArray2D
Dim BookKeepingCombined As New clsArray2D
Dim TrialBalanceCombined As New clsArray2D
Dim CompanyCode As New clsArray2D
Dim FilteredData As New clsArray2D
TrialBalanceReckonciliationData = ShTrialBalanceReckonciliation.ListObjects("TrialBalanceGroupedByReckon").Range
NotesCombined = ShNotesCombined.ListObjects("NonPandLItemNotesCombined").Range
BookKeepingCombined = ShBookKeepingCombined.ListObjects("BookKeepingCombined").Range
TrialBalanceCombined = ShTrialBalanceCombined.ListObjects("TrialBalanceCombined").Range
CompanyCode = 340
FilteredData.data = TrialBalanceReckonciliationData.Filter(CompanyCode, 1)
Stop
End Sub
I am getting this error:
Can I ask for help in fixing this?