Filter based on inputbox dates does not work
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}
I want to input start date and end date and have VBA to filter data entries in an excel table between the selected dates. This code however returns zero filtered entries. If I go the the filter in excel manually I find that it is configured correctly (dates placed into the filter criteria boxes). If I then click the OK button it filters fine. Any idea what mistake I made?
P.s. assume that the inputbox values are correctly formatted dates
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
'sdt = InputBox("Choose Start date.")
'edt = InputBox("Choose End date.")
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
microsoft-excel vba
add a comment |
I want to input start date and end date and have VBA to filter data entries in an excel table between the selected dates. This code however returns zero filtered entries. If I go the the filter in excel manually I find that it is configured correctly (dates placed into the filter criteria boxes). If I then click the OK button it filters fine. Any idea what mistake I made?
P.s. assume that the inputbox values are correctly formatted dates
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
'sdt = InputBox("Choose Start date.")
'edt = InputBox("Choose End date.")
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
microsoft-excel vba
add a comment |
I want to input start date and end date and have VBA to filter data entries in an excel table between the selected dates. This code however returns zero filtered entries. If I go the the filter in excel manually I find that it is configured correctly (dates placed into the filter criteria boxes). If I then click the OK button it filters fine. Any idea what mistake I made?
P.s. assume that the inputbox values are correctly formatted dates
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
'sdt = InputBox("Choose Start date.")
'edt = InputBox("Choose End date.")
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
microsoft-excel vba
I want to input start date and end date and have VBA to filter data entries in an excel table between the selected dates. This code however returns zero filtered entries. If I go the the filter in excel manually I find that it is configured correctly (dates placed into the filter criteria boxes). If I then click the OK button it filters fine. Any idea what mistake I made?
P.s. assume that the inputbox values are correctly formatted dates
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
'sdt = InputBox("Choose Start date.")
'edt = InputBox("Choose End date.")
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
microsoft-excel vba
microsoft-excel vba
asked Feb 3 at 15:17
JakubJakub
1
1
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
This appears to work for me:
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
sdt = CDate(Application.InputBox("Choose Start date.", Type:=2))
edt = CDate(Application.InputBox("Choose End date.", Type:=2))
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
Before:
and after:
NOTE:
The items in column A are real dates and not text values.
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "3"
};
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',
autoActivateHeartbeat: false,
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
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1401586%2ffilter-based-on-inputbox-dates-does-not-work%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
This appears to work for me:
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
sdt = CDate(Application.InputBox("Choose Start date.", Type:=2))
edt = CDate(Application.InputBox("Choose End date.", Type:=2))
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
Before:
and after:
NOTE:
The items in column A are real dates and not text values.
add a comment |
This appears to work for me:
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
sdt = CDate(Application.InputBox("Choose Start date.", Type:=2))
edt = CDate(Application.InputBox("Choose End date.", Type:=2))
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
Before:
and after:
NOTE:
The items in column A are real dates and not text values.
add a comment |
This appears to work for me:
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
sdt = CDate(Application.InputBox("Choose Start date.", Type:=2))
edt = CDate(Application.InputBox("Choose End date.", Type:=2))
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
Before:
and after:
NOTE:
The items in column A are real dates and not text values.
This appears to work for me:
Option Explicit
Sub ExpCsmLg()
' ExpCsmLg Makro
' this makro filters all data entries between two selected dates
Dim sdt As Date
Dim edt As Date
sdt = CDate(Application.InputBox("Choose Start date.", Type:=2))
edt = CDate(Application.InputBox("Choose End date.", Type:=2))
ActiveSheet.Range("$A$5:$Q$7992").AutoFilter Field:=1, Criteria1:=">=" & sdt, Operator:=xlAnd, Criteria2:="<=" & edt
End Sub
Before:
and after:
NOTE:
The items in column A are real dates and not text values.
answered Feb 3 at 20:02
Gary's StudentGary's Student
14.2k31833
14.2k31833
add a comment |
add a comment |
Thanks for contributing an answer to Super User!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1401586%2ffilter-based-on-inputbox-dates-does-not-work%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown