How do I fix this SlicerCache object error?

up vote
0
down vote

favorite

Error 424 - "Object required" on the "If Not" line.

I've tried to read up on this error but I am not familiar enough with the SlicerCache to figure this one out - can anyone assist please?

Dim dStartDate As Date

Dim dEndDate As Date

Dim sDateRange As String

Dim sDateRange_Num As String

Dim sDateRangeHeader As String



If Not ActiveWorbook.SlicerCaches("NativeTimeline_Date").FilterCleared = False Then

    dStartDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue1

    dEndDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue2



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



Else

    dStartDate = WorksheetFunction.Min(Range("D1:D100"))

    dEndDate = WorksheetFunction.Max(Range("D1:D100"))



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



End If

asked Nov 10 at 20:28

kroy2008

697

add a comment |

up vote
0
down vote

favorite

Error 424 - "Object required" on the "If Not" line.

I've tried to read up on this error but I am not familiar enough with the SlicerCache to figure this one out - can anyone assist please?

Dim dStartDate As Date

Dim dEndDate As Date

Dim sDateRange As String

Dim sDateRange_Num As String

Dim sDateRangeHeader As String



If Not ActiveWorbook.SlicerCaches("NativeTimeline_Date").FilterCleared = False Then

    dStartDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue1

    dEndDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue2



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



Else

    dStartDate = WorksheetFunction.Min(Range("D1:D100"))

    dEndDate = WorksheetFunction.Max(Range("D1:D100"))



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



End If

asked Nov 10 at 20:28

kroy2008

697

add a comment |

up vote
0
down vote

favorite

Error 424 - "Object required" on the "If Not" line.

I've tried to read up on this error but I am not familiar enough with the SlicerCache to figure this one out - can anyone assist please?

Dim dStartDate As Date

Dim dEndDate As Date

Dim sDateRange As String

Dim sDateRange_Num As String

Dim sDateRangeHeader As String



If Not ActiveWorbook.SlicerCaches("NativeTimeline_Date").FilterCleared = False Then

    dStartDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue1

    dEndDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue2



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



Else

    dStartDate = WorksheetFunction.Min(Range("D1:D100"))

    dEndDate = WorksheetFunction.Max(Range("D1:D100"))



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



End If

asked Nov 10 at 20:28

kroy2008

697

Error 424 - "Object required" on the "If Not" line.

I've tried to read up on this error but I am not familiar enough with the SlicerCache to figure this one out - can anyone assist please?

Dim dStartDate As Date

Dim dEndDate As Date

Dim sDateRange As String

Dim sDateRange_Num As String

Dim sDateRangeHeader As String



If Not ActiveWorbook.SlicerCaches("NativeTimeline_Date").FilterCleared = False Then

    dStartDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue1

    dEndDate = ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.FilterValue2



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



Else

    dStartDate = WorksheetFunction.Min(Range("D1:D100"))

    dEndDate = WorksheetFunction.Max(Range("D1:D100"))



    sDateRange = dStartDate & " - " & dEndDate

    sDateRangeHeader = "Reporting Period: " & sDateRange & " (" & dEndDate - dStartDate & " Days)"

    sDateRange_Num = dEndDate - dStartDate



End If

excel vba slicers

asked Nov 10 at 20:28

kroy2008

697

asked Nov 10 at 20:28

kroy2008

697

asked Nov 10 at 20:28

kroy2008

697

asked Nov 10 at 20:28

kroy2008

697

asked Nov 10 at 20:28

kroy2008

697

add a comment |

1 Answer
1

active

oldest

votes

up vote
1
down vote

accepted

You need a k in ActiveWorkbook. Always use Option Explicit at the top of your modules to catch these errors.

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared

answered Nov 10 at 21:25

QHarr

25.6k81839

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53243118%2fhow-do-i-fix-this-slicercache-object-error%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

up vote
1
down vote

accepted

You need a k in ActiveWorkbook. Always use Option Explicit at the top of your modules to catch these errors.

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared

answered Nov 10 at 21:25

QHarr

25.6k81839

add a comment |

up vote
1
down vote

accepted

You need a k in ActiveWorkbook. Always use Option Explicit at the top of your modules to catch these errors.

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared

answered Nov 10 at 21:25

QHarr

25.6k81839

add a comment |

up vote
1
down vote

accepted

You need a k in ActiveWorkbook. Always use Option Explicit at the top of your modules to catch these errors.

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared

answered Nov 10 at 21:25

QHarr

25.6k81839

You need a k in ActiveWorkbook. Always use Option Explicit at the top of your modules to catch these errors.

ActiveWorkbook.SlicerCaches("NativeTimeline_Date").FilterCleared

answered Nov 10 at 21:25

QHarr

25.6k81839

answered Nov 10 at 21:25

QHarr

25.6k81839

answered Nov 10 at 21:25

QHarr

25.6k81839

answered Nov 10 at 21:25

QHarr

25.6k81839

add a comment |

draft saved

draft discarded

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

搜尋此網誌

Vfrdtyky