2 different ?'s: Date? Macro?

R

RS

Question 1:
How would I modify the formula below to include other dates? I
tried the following but get an #VALUE! error:
=IF(TEXT(C8,"MMDD")=OR("1031","0115","0417"),"text","")
My original formula works, but is only for 1 day:
=IF(TEXT(C8,"MMDD")="1031","text","")

Question 2:
I know that Excel 2000 disables the autofilter function when
the worksheet is protected and hence copied and modified a macro into
"ThisWorkbook" that would fix this. However, I also just read that the
sorting function is also disabled in Excel 2000. So my question is...how
would I modify my existing macro (or add a new macro) to also allow me to
sort? Here is the macro that I have in "ThisWorkbook":

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Worksheet")
If Not .AutoFilterMode Then
..Range("A1").AutoFilter
End If
..EnableAutoFilter = True
..Protect Password:="temp", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub
 
B

Bob Phillips

=IF(OR(TEXT(C8,"MMDD")="1031",TEXT(C8,"MMDD")="0115",TEXT(C8,"MMDD")="0417")
,"text","")


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
R

RS

Dear Bob,

Thanks for your suggestion. Your equation works without giving an
error. However, because I want different text to appear on different days, I
modified my formula to work as follows:
=IF(TEXT(C8,"MMDD")="1031","text",IF(TEXT(C8,"MMDD")="0115","text2",IF(TEXT(C8,"MMDD")="0417","text3",""))).

Would there be a shorter equation to this? Also, it seems like I
might need to repost the 2nd question regarding macros again (unless you or
someone you know might be able to solve my problem).
 
B

Bob Phillips

You could try

=VLOOKUP(TEXT(C8,"MMDD"),{"1031","text";"0115","text2";"0417","text3"},2,FAL
SE)


On the second question, you either need top sort at the point where you
unprotect the sheet, or add your own sort button which unprotects the sheet,
sorts it, and re-protects it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
R

RS

Hi there. The formula works on the days provided but on other days, I get a
"#N/A." So...2 questions: 1) what do the last two items (...,2,FALSE) mean?
and 22) how would I change your formula to display a blank on other days?

Regarding the macro, since the number of rows needing to be sorted would be
constantly changing, sounds like it might be easier to find a later version
of Excel and then simply resave my spreadsheets using the new versions
ability to simply select a check box to allow sorting and autofiltering.
 
B

Bob Phillips

" means get the value from the second column, FALSE means an exact match.

=IF(ISNA(VLOOKUP(TEXT(C8,"MMDD"),{"1031","text";"0115","text2";"0417","text3
"},2,FALSE)),"",
VLOOKUP(TEXT(C8,"MMDD"),{"1031","text";"0115","text2";"0417","text3"},2,FALS
E))




--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
B

Bob Phillips

That " should of course be 2

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
G

Gord Dibben

RS

Even in later versions of Excel there are restrictions on filtering and sorting
that must be overcome.

The Protect Sheet dialog gives you a number of options to choose from, but
autofilter must be enabled before protecting the sheet.

Sort will only work on rows in which all cells in the range of rows are
unprotected.

Most everybody winds up with code to unprotect, sort, then re-protect.


Gord Dibben MS Excel MVP
 
R

RS

Dear Bob,

The modification you made to your formula now works. I guess adding the
criteria of having different text on different days made the formula a little
more complicated and longer. It seems that in this case, my modified formula
might be the simpler of the two to use:
=IF(TEXT(C8,"MMDD")="1031","text",IF(TEXT(C8,"MMDD")="0214","text2",IF(TEXT(C8,"MMDD")="0317","text3",""))). Thank you very much for all your help!
 
R

RS

Dear Gord,

Thanks so much for the additional "sort" info, I did not know about
those limitations. I already have Autofilter enabled, but I guess in my
case, since I have hidden formulas within the rows that would be sorted, that
simply checking the allow sort option in later versions wouldn't work.

When you said "Most everybody winds up with code to unprotect, sort,
then re-protect" would this macro account for increasing numbers of rows as
additional info is added to the spreadsheet? If so, what is the code that I
would use?
 
B

Bob Phillips

You can calculate the range like so

Set rng = Range(Range("A1"),Range("A1").End(xlDown))

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

RS said:
Dear Gord,

Thanks so much for the additional "sort" info, I did not know about
those limitations. I already have Autofilter enabled, but I guess in my
case, since I have hidden formulas within the rows that would be sorted, that
simply checking the allow sort option in later versions wouldn't work.

When you said "Most everybody winds up with code to unprotect, sort,
then re-protect" would this macro account for increasing numbers of rows as
additional info is added to the spreadsheet? If so, what is the code that I
would use?

Gord Dibben said:
RS

Even in later versions of Excel there are restrictions on filtering and sorting
that must be overcome.

The Protect Sheet dialog gives you a number of options to choose from, but
autofilter must be enabled before protecting the sheet.

Sort will only work on rows in which all cells in the range of rows are
unprotected.

Most everybody winds up with code to unprotect, sort, then re-protect.


Gord Dibben MS Excel MVP

Click to expand...
Click to expand...
 
R

RS

Since I don't know vb coding, how would I incorporate this into the existing
macro? Would I need to paste a new macro code into the spreadsheet? If so,
what would the code be? I guess that I would replace A1 with A49 since
that's where the sorted data begins.

I'm assuming based on Gord's comments, that if the macro has to unprotect,
sort, and reprotect, that the person clicking on the macro won't be able to
see what the password is? Am I right in this assumption?

Bob Phillips said:
You can calculate the range like so

Set rng = Range(Range("A1"),Range("A1").End(xlDown))

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

RS said:
Dear Gord,

Thanks so much for the additional "sort" info, I did not know about
those limitations. I already have Autofilter enabled, but I guess in my
case, since I have hidden formulas within the rows that would be sorted, that
simply checking the allow sort option in later versions wouldn't work.

When you said "Most everybody winds up with code to unprotect, sort,
then re-protect" would this macro account for increasing numbers of rows as
additional info is added to the spreadsheet? If so, what is the code that I
would use?
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sorting on a protected worksheet in Excel 2000 0
Any macro experts out there? 5
Word Macro for multiple searches, incl. in footnotes 2
Sort on Protected Worksheet 9
referencing multiple worksheets in macro 2
Autofilter, protected worksheets, Debra Dalgleish's code 2
Autofilter does not work on protected w/s even when "checked to allow" ?? 6
modify macro to include more tabs 1

Top