reminder notifications in a column

I have a need for a reminder when particular data is enterd into a cell of a 
certain column.
In a previous posting I found exactly what I need except for one problem and 
I really know nothing of writing codes. 

On 3 14-05 Jason Morin replied to a post from red_oceanus on this same 
matter. 

The code he presented pertains to the first column. I need the message to 
work in the fourth column only. I tried to alter the ">1" to ">4" in his 
code but then  I recieve a pop up message in any of the first four columns 
instead of only the fourth column. Everything else I tried doesn't work at 
all.

How can I edit this code to suit my needs? 

Jason's response as follows: 

Assuming data entry cells are col. A, right-click the 
worksheet tab, choose "View Code", copy in the code 
below, and press ALT+Q to close VBE. 

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
Dim sMsg As String 
With Target 
If .Column > 1 Then Exit Sub 
If .Count > 1 Then Exit Sub 
Application.ScreenUpdating = False 
Select Case LCase(.Value) 
Case "new instrument" 
sMsg = "Call Propertry Accounting" 
Case "new house" 
sMsg = "Call Inspector" 
Case "new car" 
sMsg = "Buy Insurance" 
Case "robbed" 
sMsg = "Buy Gun" 
'additional messages here 
Case Else 
sMsg = "Don't Recognize This" 
End Select 
MsgBox sMsg 
Application.ScreenUpdating = True 
End With 
End Sub 

0
LMieth (5)
6/8/2005 5:03:02 PM
excel.misc 78881 articles. 5 followers. Follow

6 Replies
302 Views

Similar Articles

[PageSpeed] 27

Hi

If .Column <> 4 Then Exit Sub
( <> meaning not equal to 4)

HTH. Best wishes Harald

"L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> I have a need for a reminder when particular data is enterd into a cell of
a
> certain column.
> In a previous posting I found exactly what I need except for one problem
and
> I really know nothing of writing codes.
>
> On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> matter.
>
> The code he presented pertains to the first column. I need the message to
> work in the fourth column only. I tried to alter the ">1" to ">4" in his
> code but then  I recieve a pop up message in any of the first four columns
> instead of only the fourth column. Everything else I tried doesn't work at
> all.
>
> How can I edit this code to suit my needs?
>
> Jason's response as follows:
>
> Assuming data entry cells are col. A, right-click the
> worksheet tab, choose "View Code", copy in the code
> below, and press ALT+Q to close VBE.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim sMsg As String
> With Target
> If .Column > 1 Then Exit Sub
> If .Count > 1 Then Exit Sub
> Application.ScreenUpdating = False
> Select Case LCase(.Value)
> Case "new instrument"
> sMsg = "Call Propertry Accounting"
> Case "new house"
> sMsg = "Call Inspector"
> Case "new car"
> sMsg = "Buy Insurance"
> Case "robbed"
> sMsg = "Buy Gun"
> 'additional messages here
> Case Else
> sMsg = "Don't Recognize This"
> End Select
> MsgBox sMsg
> Application.ScreenUpdating = True
> End With
> End Sub
>


0
innocent (844)
6/8/2005 5:09:45 PM
That did the trick! I needed this years ago!
A couple more questions if I may.

1.In the code there is a line beneath the one I changed. 
"If .count >1 Then exit Sub."
What does this line refer to?

2.As it is now I get a reminder to pop up in column four only (good thing). 
But there is always a reminder. I just need a reminder when certain data is 
entered. I am copying the code as I have it now. You will see the message I 
need for each particular entry. Those specifically are the only ones that 
need a reminder.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sMsg As String
With Target
If .Column <> 4 Then Exit Sub
If .Count > 4 Then Exit Sub
Application.ScreenUpdating = False
Select Case LCase(.Value)
Case "hp 47"
sMsg = "Copy to Great American!"
Case "hp47"
sMsg = "Copy to Great American!"
Case "rdc 1961"
sMsg = "Copy to Great American!"
Case "rdc1961"
sMsg = "Copy to Great American!"
Case "7311"
sMsg = "Copy to Great American!"
Case "7320"
sMsg = "Copy to Great American!"
Case "2158"
sMsg = "Copy to Great American!"
Case "9679"
sMsg = "Copy to Great American!"
Case "9674"
sMsg = "Copy to Great American!"
Case "9125"
sMsg = "Copy to Great American!"
Case "9203"
sMsg = "Copy to Great American!"
Case "9540"
sMsg = "Copy to Great American!"
Case "9785"
sMsg = "Copy to Debra Smith!"
Case "9831"
sMsg = "Copy to Debra Smith!"
Case "hp 10"
sMsg = "Copy to Carl Detering!"
Case "hp10"
sMsg = "Copy to Carl Detering!"
Case "hedlt"
sMsg = "Copy to Steven Stockseth!"
Case "heldt"
sMsg = "Copy to Steven Stockseth!"
Case "jbs"
sMsg = "Copy to Vernon Bates!"
Case "avis"
sMsg = "Copy to Herbert Morrison!"
'additional messages here'
End Select
MsgBox sMsg
Application.ScreenUpdating = True
End With
End Sub

 Much thanks
Linda






"Harald Staff" wrote:

> Hi
> 
> If .Column <> 4 Then Exit Sub
> ( <> meaning not equal to 4)
> 
> HTH. Best wishes Harald
> 
> "L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
> news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> > I have a need for a reminder when particular data is enterd into a cell of
> a
> > certain column.
> > In a previous posting I found exactly what I need except for one problem
> and
> > I really know nothing of writing codes.
> >
> > On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> > matter.
> >
> > The code he presented pertains to the first column. I need the message to
> > work in the fourth column only. I tried to alter the ">1" to ">4" in his
> > code but then  I recieve a pop up message in any of the first four columns
> > instead of only the fourth column. Everything else I tried doesn't work at
> > all.
> >
> > How can I edit this code to suit my needs?
> >
> > Jason's response as follows:
> >
> > Assuming data entry cells are col. A, right-click the
> > worksheet tab, choose "View Code", copy in the code
> > below, and press ALT+Q to close VBE.
> >
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > Dim sMsg As String
> > With Target
> > If .Column > 1 Then Exit Sub
> > If .Count > 1 Then Exit Sub
> > Application.ScreenUpdating = False
> > Select Case LCase(.Value)
> > Case "new instrument"
> > sMsg = "Call Propertry Accounting"
> > Case "new house"
> > sMsg = "Call Inspector"
> > Case "new car"
> > sMsg = "Buy Insurance"
> > Case "robbed"
> > sMsg = "Buy Gun"
> > 'additional messages here
> > Case Else
> > sMsg = "Don't Recognize This"
> > End Select
> > MsgBox sMsg
> > Application.ScreenUpdating = True
> > End With
> > End Sub
> >
> 
> 
> 
0
LMieth (5)
6/9/2005 4:51:06 PM
Harald will correct me if I steer you wrong, but...

#1.  .count with the dot in front of it means that it refers back to the
previous With statement.  In this case "with Target".  So your code is checking
to see how many cells are changing.  If it's more than one, the sub exits.  (I
like:  "if .cells.count > 1 then exit sub" just because it makes for easier
reading!

#2.  You can make sure the sMsg is "" if you don't find a reason to change it. 
Then after you check all the entries, you can see what sMsg is.  If it's still
"", then don't bother with the MsgBox.

#3.  You didn't ask!
     You can stack values inside the Case statement:
     Case Is = "hp 47", "hp47", "rdc 1961", "rdc1961"
     might be easier to read and it surely makes for less typing.

#4.  You didn't ask, again!
     You check for "hp 47" and "hp47", but what about "hp    47"?
     Maybe eliminating all the spaces and just checking once would be worth the 
     trouble

So this is one way with those suggestions added:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim sMsg As String
    With Target
        If .Column <> 4 Then Exit Sub
        If .Count > 1 Then Exit Sub  '<--- changed back to 1        
        sMsg = ""
        Select Case Application.Substitute(LCase(.Value), " ", "")
            Case Is = "hp47", "rdc1961"
                sMsg = "Copy to Great American!"
            Case Is = "7311", "7320", "2158", "9679", "9674", _
                           "9125", "9203", "9540"
                sMsg = "Copy to Great American!"
            Case "9785", "9831"
                sMsg = "Copy to Debra Smith!"
            Case "hp10"
                sMsg = "Copy to Carl Detering!"
            Case "hedlt", "heldt"
                sMsg = "Copy to Steven Stockseth!"
            Case "jbs"
                sMsg = "Copy to Vernon Bates!"
            Case "avis"
                sMsg = "Copy to Herbert Morrison!"
            'additional messages here'
        End Select
        If sMsg = "" Then
            'do nothing
        Else
            MsgBox sMsg
        End If
    End With
End Sub

ps.  If you're using xl2k or higher, you can change this line
from:
Select Case Application.Substitute(LCase(.Value), " ", "")
to:
Select Case Replace(LCase(.Value), " ", "")

(Replace was added in xl2k.)

I also got rid of the application.screenupdating lines.  I don't think you need
them in this code.  They don't hurt, but you're not doing anything where they
can help.



L Mieth wrote:
> 
> That did the trick! I needed this years ago!
> A couple more questions if I may.
> 
> 1.In the code there is a line beneath the one I changed.
> "If .count >1 Then exit Sub."
> What does this line refer to?
> 
> 2.As it is now I get a reminder to pop up in column four only (good thing).
> But there is always a reminder. I just need a reminder when certain data is
> entered. I am copying the code as I have it now. You will see the message I
> need for each particular entry. Those specifically are the only ones that
> need a reminder.
> 
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim sMsg As String
> With Target
> If .Column <> 4 Then Exit Sub
> If .Count > 4 Then Exit Sub
> Application.ScreenUpdating = False
> Select Case LCase(.Value)
> Case "hp 47"
> sMsg = "Copy to Great American!"
> Case "hp47"
> sMsg = "Copy to Great American!"
> Case "rdc 1961"
> sMsg = "Copy to Great American!"
> Case "rdc1961"
> sMsg = "Copy to Great American!"
> Case "7311"
> sMsg = "Copy to Great American!"
> Case "7320"
> sMsg = "Copy to Great American!"
> Case "2158"
> sMsg = "Copy to Great American!"
> Case "9679"
> sMsg = "Copy to Great American!"
> Case "9674"
> sMsg = "Copy to Great American!"
> Case "9125"
> sMsg = "Copy to Great American!"
> Case "9203"
> sMsg = "Copy to Great American!"
> Case "9540"
> sMsg = "Copy to Great American!"
> Case "9785"
> sMsg = "Copy to Debra Smith!"
> Case "9831"
> sMsg = "Copy to Debra Smith!"
> Case "hp 10"
> sMsg = "Copy to Carl Detering!"
> Case "hp10"
> sMsg = "Copy to Carl Detering!"
> Case "hedlt"
> sMsg = "Copy to Steven Stockseth!"
> Case "heldt"
> sMsg = "Copy to Steven Stockseth!"
> Case "jbs"
> sMsg = "Copy to Vernon Bates!"
> Case "avis"
> sMsg = "Copy to Herbert Morrison!"
> 'additional messages here'
> End Select
> MsgBox sMsg
> Application.ScreenUpdating = True
> End With
> End Sub
> 
>  Much thanks
> Linda
> 
> "Harald Staff" wrote:
> 
> > Hi
> >
> > If .Column <> 4 Then Exit Sub
> > ( <> meaning not equal to 4)
> >
> > HTH. Best wishes Harald
> >
> > "L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
> > news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> > > I have a need for a reminder when particular data is enterd into a cell of
> > a
> > > certain column.
> > > In a previous posting I found exactly what I need except for one problem
> > and
> > > I really know nothing of writing codes.
> > >
> > > On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> > > matter.
> > >
> > > The code he presented pertains to the first column. I need the message to
> > > work in the fourth column only. I tried to alter the ">1" to ">4" in his
> > > code but then  I recieve a pop up message in any of the first four columns
> > > instead of only the fourth column. Everything else I tried doesn't work at
> > > all.
> > >
> > > How can I edit this code to suit my needs?
> > >
> > > Jason's response as follows:
> > >
> > > Assuming data entry cells are col. A, right-click the
> > > worksheet tab, choose "View Code", copy in the code
> > > below, and press ALT+Q to close VBE.
> > >
> > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > Dim sMsg As String
> > > With Target
> > > If .Column > 1 Then Exit Sub
> > > If .Count > 1 Then Exit Sub
> > > Application.ScreenUpdating = False
> > > Select Case LCase(.Value)
> > > Case "new instrument"
> > > sMsg = "Call Propertry Accounting"
> > > Case "new house"
> > > sMsg = "Call Inspector"
> > > Case "new car"
> > > sMsg = "Buy Insurance"
> > > Case "robbed"
> > > sMsg = "Buy Gun"
> > > 'additional messages here
> > > Case Else
> > > sMsg = "Don't Recognize This"
> > > End Select
> > > MsgBox sMsg
> > > Application.ScreenUpdating = True
> > > End With
> > > End Sub
> > >
> >
> >
> >

-- 

Dave Peterson
0
ec357201 (5290)
6/9/2005 6:58:33 PM
Perfectomundo!
As I mentioned I don't know the first thing about code, but this is so cool.
Regarding #4...I was telling it to look for ways that I may misspell in 
haste ( hp10 or hp 10).
It appears just one "case" will recognize the text no matter how many spaces 
I may or may not place in there. Is that always the case or did you instruct 
it to do that?
Will it accept a wild card (*)?

"Dave Peterson" wrote:

> Harald will correct me if I steer you wrong, but...
> 
> #1.  .count with the dot in front of it means that it refers back to the
> previous With statement.  In this case "with Target".  So your code is checking
> to see how many cells are changing.  If it's more than one, the sub exits.  (I
> like:  "if .cells.count > 1 then exit sub" just because it makes for easier
> reading!
> 
> #2.  You can make sure the sMsg is "" if you don't find a reason to change it. 
> Then after you check all the entries, you can see what sMsg is.  If it's still
> "", then don't bother with the MsgBox.
> 
> #3.  You didn't ask!
>      You can stack values inside the Case statement:
>      Case Is = "hp 47", "hp47", "rdc 1961", "rdc1961"
>      might be easier to read and it surely makes for less typing.
> 
> #4.  You didn't ask, again!
>      You check for "hp 47" and "hp47", but what about "hp    47"?
>      Maybe eliminating all the spaces and just checking once would be worth the 
>      trouble
> 
> So this is one way with those suggestions added:
> 
> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>     Dim sMsg As String
>     With Target
>         If .Column <> 4 Then Exit Sub
>         If .Count > 1 Then Exit Sub  '<--- changed back to 1        
>         sMsg = ""
>         Select Case Application.Substitute(LCase(.Value), " ", "")
>             Case Is = "hp47", "rdc1961"
>                 sMsg = "Copy to Great American!"
>             Case Is = "7311", "7320", "2158", "9679", "9674", _
>                            "9125", "9203", "9540"
>                 sMsg = "Copy to Great American!"
>             Case "9785", "9831"
>                 sMsg = "Copy to Debra Smith!"
>             Case "hp10"
>                 sMsg = "Copy to Carl Detering!"
>             Case "hedlt", "heldt"
>                 sMsg = "Copy to Steven Stockseth!"
>             Case "jbs"
>                 sMsg = "Copy to Vernon Bates!"
>             Case "avis"
>                 sMsg = "Copy to Herbert Morrison!"
>             'additional messages here'
>         End Select
>         If sMsg = "" Then
>             'do nothing
>         Else
>             MsgBox sMsg
>         End If
>     End With
> End Sub
> 
> ps.  If you're using xl2k or higher, you can change this line
> from:
> Select Case Application.Substitute(LCase(.Value), " ", "")
> to:
> Select Case Replace(LCase(.Value), " ", "")
> 
> (Replace was added in xl2k.)
> 
> I also got rid of the application.screenupdating lines.  I don't think you need
> them in this code.  They don't hurt, but you're not doing anything where they
> can help.
> 
> 
> 
> L Mieth wrote:
> > 
> > That did the trick! I needed this years ago!
> > A couple more questions if I may.
> > 
> > 1.In the code there is a line beneath the one I changed.
> > "If .count >1 Then exit Sub."
> > What does this line refer to?
> > 
> > 2.As it is now I get a reminder to pop up in column four only (good thing).
> > But there is always a reminder. I just need a reminder when certain data is
> > entered. I am copying the code as I have it now. You will see the message I
> > need for each particular entry. Those specifically are the only ones that
> > need a reminder.
> > 
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > Dim sMsg As String
> > With Target
> > If .Column <> 4 Then Exit Sub
> > If .Count > 4 Then Exit Sub
> > Application.ScreenUpdating = False
> > Select Case LCase(.Value)
> > Case "hp 47"
> > sMsg = "Copy to Great American!"
> > Case "hp47"
> > sMsg = "Copy to Great American!"
> > Case "rdc 1961"
> > sMsg = "Copy to Great American!"
> > Case "rdc1961"
> > sMsg = "Copy to Great American!"
> > Case "7311"
> > sMsg = "Copy to Great American!"
> > Case "7320"
> > sMsg = "Copy to Great American!"
> > Case "2158"
> > sMsg = "Copy to Great American!"
> > Case "9679"
> > sMsg = "Copy to Great American!"
> > Case "9674"
> > sMsg = "Copy to Great American!"
> > Case "9125"
> > sMsg = "Copy to Great American!"
> > Case "9203"
> > sMsg = "Copy to Great American!"
> > Case "9540"
> > sMsg = "Copy to Great American!"
> > Case "9785"
> > sMsg = "Copy to Debra Smith!"
> > Case "9831"
> > sMsg = "Copy to Debra Smith!"
> > Case "hp 10"
> > sMsg = "Copy to Carl Detering!"
> > Case "hp10"
> > sMsg = "Copy to Carl Detering!"
> > Case "hedlt"
> > sMsg = "Copy to Steven Stockseth!"
> > Case "heldt"
> > sMsg = "Copy to Steven Stockseth!"
> > Case "jbs"
> > sMsg = "Copy to Vernon Bates!"
> > Case "avis"
> > sMsg = "Copy to Herbert Morrison!"
> > 'additional messages here'
> > End Select
> > MsgBox sMsg
> > Application.ScreenUpdating = True
> > End With
> > End Sub
> > 
> >  Much thanks
> > Linda
> > 
> > "Harald Staff" wrote:
> > 
> > > Hi
> > >
> > > If .Column <> 4 Then Exit Sub
> > > ( <> meaning not equal to 4)
> > >
> > > HTH. Best wishes Harald
> > >
> > > "L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
> > > news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> > > > I have a need for a reminder when particular data is enterd into a cell of
> > > a
> > > > certain column.
> > > > In a previous posting I found exactly what I need except for one problem
> > > and
> > > > I really know nothing of writing codes.
> > > >
> > > > On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> > > > matter.
> > > >
> > > > The code he presented pertains to the first column. I need the message to
> > > > work in the fourth column only. I tried to alter the ">1" to ">4" in his
> > > > code but then  I recieve a pop up message in any of the first four columns
> > > > instead of only the fourth column. Everything else I tried doesn't work at
> > > > all.
> > > >
> > > > How can I edit this code to suit my needs?
> > > >
> > > > Jason's response as follows:
> > > >
> > > > Assuming data entry cells are col. A, right-click the
> > > > worksheet tab, choose "View Code", copy in the code
> > > > below, and press ALT+Q to close VBE.
> > > >
> > > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > > Dim sMsg As String
> > > > With Target
> > > > If .Column > 1 Then Exit Sub
> > > > If .Count > 1 Then Exit Sub
> > > > Application.ScreenUpdating = False
> > > > Select Case LCase(.Value)
> > > > Case "new instrument"
> > > > sMsg = "Call Propertry Accounting"
> > > > Case "new house"
> > > > sMsg = "Call Inspector"
> > > > Case "new car"
> > > > sMsg = "Buy Insurance"
> > > > Case "robbed"
> > > > sMsg = "Buy Gun"
> > > > 'additional messages here
> > > > Case Else
> > > > sMsg = "Don't Recognize This"
> > > > End Select
> > > > MsgBox sMsg
> > > > Application.ScreenUpdating = True
> > > > End With
> > > > End Sub
> > > >
> > >
> > >
> > >
> 
> -- 
> 
> Dave Peterson
> 
0
LMieth (5)
6/9/2005 8:07:14 PM
Application.Substitute(LCase(.Value), " ", "")

Actually removes those spaces.  So it isn't quite as automatic as you thought.

There may be ways of doing what you want -- not using a wild card:

Case "hp" to "hp99999"

There's another statement you can use to check:

	if lcase(something) like "*hithere*" then

There's lots of ways to skin that cat.

L Mieth wrote:
> 
> Perfectomundo!
> As I mentioned I don't know the first thing about code, but this is so cool.
> Regarding #4...I was telling it to look for ways that I may misspell in
> haste ( hp10 or hp 10).
> It appears just one "case" will recognize the text no matter how many spaces
> I may or may not place in there. Is that always the case or did you instruct
> it to do that?
> Will it accept a wild card (*)?
> 
> "Dave Peterson" wrote:
> 
> > Harald will correct me if I steer you wrong, but...
> >
> > #1.  .count with the dot in front of it means that it refers back to the
> > previous With statement.  In this case "with Target".  So your code is checking
> > to see how many cells are changing.  If it's more than one, the sub exits.  (I
> > like:  "if .cells.count > 1 then exit sub" just because it makes for easier
> > reading!
> >
> > #2.  You can make sure the sMsg is "" if you don't find a reason to change it.
> > Then after you check all the entries, you can see what sMsg is.  If it's still
> > "", then don't bother with the MsgBox.
> >
> > #3.  You didn't ask!
> >      You can stack values inside the Case statement:
> >      Case Is = "hp 47", "hp47", "rdc 1961", "rdc1961"
> >      might be easier to read and it surely makes for less typing.
> >
> > #4.  You didn't ask, again!
> >      You check for "hp 47" and "hp47", but what about "hp    47"?
> >      Maybe eliminating all the spaces and just checking once would be worth the
> >      trouble
> >
> > So this is one way with those suggestions added:
> >
> > Option Explicit
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> >     Dim sMsg As String
> >     With Target
> >         If .Column <> 4 Then Exit Sub
> >         If .Count > 1 Then Exit Sub  '<--- changed back to 1
> >         sMsg = ""
> >         Select Case Application.Substitute(LCase(.Value), " ", "")
> >             Case Is = "hp47", "rdc1961"
> >                 sMsg = "Copy to Great American!"
> >             Case Is = "7311", "7320", "2158", "9679", "9674", _
> >                            "9125", "9203", "9540"
> >                 sMsg = "Copy to Great American!"
> >             Case "9785", "9831"
> >                 sMsg = "Copy to Debra Smith!"
> >             Case "hp10"
> >                 sMsg = "Copy to Carl Detering!"
> >             Case "hedlt", "heldt"
> >                 sMsg = "Copy to Steven Stockseth!"
> >             Case "jbs"
> >                 sMsg = "Copy to Vernon Bates!"
> >             Case "avis"
> >                 sMsg = "Copy to Herbert Morrison!"
> >             'additional messages here'
> >         End Select
> >         If sMsg = "" Then
> >             'do nothing
> >         Else
> >             MsgBox sMsg
> >         End If
> >     End With
> > End Sub
> >
> > ps.  If you're using xl2k or higher, you can change this line
> > from:
> > Select Case Application.Substitute(LCase(.Value), " ", "")
> > to:
> > Select Case Replace(LCase(.Value), " ", "")
> >
> > (Replace was added in xl2k.)
> >
> > I also got rid of the application.screenupdating lines.  I don't think you need
> > them in this code.  They don't hurt, but you're not doing anything where they
> > can help.
> >
> >
> >
> > L Mieth wrote:
> > >
> > > That did the trick! I needed this years ago!
> > > A couple more questions if I may.
> > >
> > > 1.In the code there is a line beneath the one I changed.
> > > "If .count >1 Then exit Sub."
> > > What does this line refer to?
> > >
> > > 2.As it is now I get a reminder to pop up in column four only (good thing).
> > > But there is always a reminder. I just need a reminder when certain data is
> > > entered. I am copying the code as I have it now. You will see the message I
> > > need for each particular entry. Those specifically are the only ones that
> > > need a reminder.
> > >
> > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > Dim sMsg As String
> > > With Target
> > > If .Column <> 4 Then Exit Sub
> > > If .Count > 4 Then Exit Sub
> > > Application.ScreenUpdating = False
> > > Select Case LCase(.Value)
> > > Case "hp 47"
> > > sMsg = "Copy to Great American!"
> > > Case "hp47"
> > > sMsg = "Copy to Great American!"
> > > Case "rdc 1961"
> > > sMsg = "Copy to Great American!"
> > > Case "rdc1961"
> > > sMsg = "Copy to Great American!"
> > > Case "7311"
> > > sMsg = "Copy to Great American!"
> > > Case "7320"
> > > sMsg = "Copy to Great American!"
> > > Case "2158"
> > > sMsg = "Copy to Great American!"
> > > Case "9679"
> > > sMsg = "Copy to Great American!"
> > > Case "9674"
> > > sMsg = "Copy to Great American!"
> > > Case "9125"
> > > sMsg = "Copy to Great American!"
> > > Case "9203"
> > > sMsg = "Copy to Great American!"
> > > Case "9540"
> > > sMsg = "Copy to Great American!"
> > > Case "9785"
> > > sMsg = "Copy to Debra Smith!"
> > > Case "9831"
> > > sMsg = "Copy to Debra Smith!"
> > > Case "hp 10"
> > > sMsg = "Copy to Carl Detering!"
> > > Case "hp10"
> > > sMsg = "Copy to Carl Detering!"
> > > Case "hedlt"
> > > sMsg = "Copy to Steven Stockseth!"
> > > Case "heldt"
> > > sMsg = "Copy to Steven Stockseth!"
> > > Case "jbs"
> > > sMsg = "Copy to Vernon Bates!"
> > > Case "avis"
> > > sMsg = "Copy to Herbert Morrison!"
> > > 'additional messages here'
> > > End Select
> > > MsgBox sMsg
> > > Application.ScreenUpdating = True
> > > End With
> > > End Sub
> > >
> > >  Much thanks
> > > Linda
> > >
> > > "Harald Staff" wrote:
> > >
> > > > Hi
> > > >
> > > > If .Column <> 4 Then Exit Sub
> > > > ( <> meaning not equal to 4)
> > > >
> > > > HTH. Best wishes Harald
> > > >
> > > > "L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
> > > > news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> > > > > I have a need for a reminder when particular data is enterd into a cell of
> > > > a
> > > > > certain column.
> > > > > In a previous posting I found exactly what I need except for one problem
> > > > and
> > > > > I really know nothing of writing codes.
> > > > >
> > > > > On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> > > > > matter.
> > > > >
> > > > > The code he presented pertains to the first column. I need the message to
> > > > > work in the fourth column only. I tried to alter the ">1" to ">4" in his
> > > > > code but then  I recieve a pop up message in any of the first four columns
> > > > > instead of only the fourth column. Everything else I tried doesn't work at
> > > > > all.
> > > > >
> > > > > How can I edit this code to suit my needs?
> > > > >
> > > > > Jason's response as follows:
> > > > >
> > > > > Assuming data entry cells are col. A, right-click the
> > > > > worksheet tab, choose "View Code", copy in the code
> > > > > below, and press ALT+Q to close VBE.
> > > > >
> > > > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > > > Dim sMsg As String
> > > > > With Target
> > > > > If .Column > 1 Then Exit Sub
> > > > > If .Count > 1 Then Exit Sub
> > > > > Application.ScreenUpdating = False
> > > > > Select Case LCase(.Value)
> > > > > Case "new instrument"
> > > > > sMsg = "Call Propertry Accounting"
> > > > > Case "new house"
> > > > > sMsg = "Call Inspector"
> > > > > Case "new car"
> > > > > sMsg = "Buy Insurance"
> > > > > Case "robbed"
> > > > > sMsg = "Buy Gun"
> > > > > 'additional messages here
> > > > > Case Else
> > > > > sMsg = "Don't Recognize This"
> > > > > End Select
> > > > > MsgBox sMsg
> > > > > Application.ScreenUpdating = True
> > > > > End With
> > > > > End Sub
> > > > >
> > > >
> > > >
> > > >
> >
> > --
> >
> > Dave Peterson
> >

-- 

Dave Peterson
0
ec357201 (5290)
6/9/2005 8:51:00 PM
Thanks so much for everyones help.
This is the first time I have ventured into this user group.

"Dave Peterson" wrote:

> Application.Substitute(LCase(.Value), " ", "")
> 
> Actually removes those spaces.  So it isn't quite as automatic as you thought.
> 
> There may be ways of doing what you want -- not using a wild card:
> 
> Case "hp" to "hp99999"
> 
> There's another statement you can use to check:
> 
> 	if lcase(something) like "*hithere*" then
> 
> There's lots of ways to skin that cat.
> 
> L Mieth wrote:
> > 
> > Perfectomundo!
> > As I mentioned I don't know the first thing about code, but this is so cool.
> > Regarding #4...I was telling it to look for ways that I may misspell in
> > haste ( hp10 or hp 10).
> > It appears just one "case" will recognize the text no matter how many spaces
> > I may or may not place in there. Is that always the case or did you instruct
> > it to do that?
> > Will it accept a wild card (*)?
> > 
> > "Dave Peterson" wrote:
> > 
> > > Harald will correct me if I steer you wrong, but...
> > >
> > > #1.  .count with the dot in front of it means that it refers back to the
> > > previous With statement.  In this case "with Target".  So your code is checking
> > > to see how many cells are changing.  If it's more than one, the sub exits.  (I
> > > like:  "if .cells.count > 1 then exit sub" just because it makes for easier
> > > reading!
> > >
> > > #2.  You can make sure the sMsg is "" if you don't find a reason to change it.
> > > Then after you check all the entries, you can see what sMsg is.  If it's still
> > > "", then don't bother with the MsgBox.
> > >
> > > #3.  You didn't ask!
> > >      You can stack values inside the Case statement:
> > >      Case Is = "hp 47", "hp47", "rdc 1961", "rdc1961"
> > >      might be easier to read and it surely makes for less typing.
> > >
> > > #4.  You didn't ask, again!
> > >      You check for "hp 47" and "hp47", but what about "hp    47"?
> > >      Maybe eliminating all the spaces and just checking once would be worth the
> > >      trouble
> > >
> > > So this is one way with those suggestions added:
> > >
> > > Option Explicit
> > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > >     Dim sMsg As String
> > >     With Target
> > >         If .Column <> 4 Then Exit Sub
> > >         If .Count > 1 Then Exit Sub  '<--- changed back to 1
> > >         sMsg = ""
> > >         Select Case Application.Substitute(LCase(.Value), " ", "")
> > >             Case Is = "hp47", "rdc1961"
> > >                 sMsg = "Copy to Great American!"
> > >             Case Is = "7311", "7320", "2158", "9679", "9674", _
> > >                            "9125", "9203", "9540"
> > >                 sMsg = "Copy to Great American!"
> > >             Case "9785", "9831"
> > >                 sMsg = "Copy to Debra Smith!"
> > >             Case "hp10"
> > >                 sMsg = "Copy to Carl Detering!"
> > >             Case "hedlt", "heldt"
> > >                 sMsg = "Copy to Steven Stockseth!"
> > >             Case "jbs"
> > >                 sMsg = "Copy to Vernon Bates!"
> > >             Case "avis"
> > >                 sMsg = "Copy to Herbert Morrison!"
> > >             'additional messages here'
> > >         End Select
> > >         If sMsg = "" Then
> > >             'do nothing
> > >         Else
> > >             MsgBox sMsg
> > >         End If
> > >     End With
> > > End Sub
> > >
> > > ps.  If you're using xl2k or higher, you can change this line
> > > from:
> > > Select Case Application.Substitute(LCase(.Value), " ", "")
> > > to:
> > > Select Case Replace(LCase(.Value), " ", "")
> > >
> > > (Replace was added in xl2k.)
> > >
> > > I also got rid of the application.screenupdating lines.  I don't think you need
> > > them in this code.  They don't hurt, but you're not doing anything where they
> > > can help.
> > >
> > >
> > >
> > > L Mieth wrote:
> > > >
> > > > That did the trick! I needed this years ago!
> > > > A couple more questions if I may.
> > > >
> > > > 1.In the code there is a line beneath the one I changed.
> > > > "If .count >1 Then exit Sub."
> > > > What does this line refer to?
> > > >
> > > > 2.As it is now I get a reminder to pop up in column four only (good thing).
> > > > But there is always a reminder. I just need a reminder when certain data is
> > > > entered. I am copying the code as I have it now. You will see the message I
> > > > need for each particular entry. Those specifically are the only ones that
> > > > need a reminder.
> > > >
> > > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > > Dim sMsg As String
> > > > With Target
> > > > If .Column <> 4 Then Exit Sub
> > > > If .Count > 4 Then Exit Sub
> > > > Application.ScreenUpdating = False
> > > > Select Case LCase(.Value)
> > > > Case "hp 47"
> > > > sMsg = "Copy to Great American!"
> > > > Case "hp47"
> > > > sMsg = "Copy to Great American!"
> > > > Case "rdc 1961"
> > > > sMsg = "Copy to Great American!"
> > > > Case "rdc1961"
> > > > sMsg = "Copy to Great American!"
> > > > Case "7311"
> > > > sMsg = "Copy to Great American!"
> > > > Case "7320"
> > > > sMsg = "Copy to Great American!"
> > > > Case "2158"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9679"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9674"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9125"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9203"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9540"
> > > > sMsg = "Copy to Great American!"
> > > > Case "9785"
> > > > sMsg = "Copy to Debra Smith!"
> > > > Case "9831"
> > > > sMsg = "Copy to Debra Smith!"
> > > > Case "hp 10"
> > > > sMsg = "Copy to Carl Detering!"
> > > > Case "hp10"
> > > > sMsg = "Copy to Carl Detering!"
> > > > Case "hedlt"
> > > > sMsg = "Copy to Steven Stockseth!"
> > > > Case "heldt"
> > > > sMsg = "Copy to Steven Stockseth!"
> > > > Case "jbs"
> > > > sMsg = "Copy to Vernon Bates!"
> > > > Case "avis"
> > > > sMsg = "Copy to Herbert Morrison!"
> > > > 'additional messages here'
> > > > End Select
> > > > MsgBox sMsg
> > > > Application.ScreenUpdating = True
> > > > End With
> > > > End Sub
> > > >
> > > >  Much thanks
> > > > Linda
> > > >
> > > > "Harald Staff" wrote:
> > > >
> > > > > Hi
> > > > >
> > > > > If .Column <> 4 Then Exit Sub
> > > > > ( <> meaning not equal to 4)
> > > > >
> > > > > HTH. Best wishes Harald
> > > > >
> > > > > "L Mieth" <LMieth@discussions.microsoft.com> skrev i melding
> > > > > news:B816F637-1117-475F-B63A-CC1DF63FA588@microsoft.com...
> > > > > > I have a need for a reminder when particular data is enterd into a cell of
> > > > > a
> > > > > > certain column.
> > > > > > In a previous posting I found exactly what I need except for one problem
> > > > > and
> > > > > > I really know nothing of writing codes.
> > > > > >
> > > > > > On 3 14-05 Jason Morin replied to a post from red_oceanus on this same
> > > > > > matter.
> > > > > >
> > > > > > The code he presented pertains to the first column. I need the message to
> > > > > > work in the fourth column only. I tried to alter the ">1" to ">4" in his
> > > > > > code but then  I recieve a pop up message in any of the first four columns
> > > > > > instead of only the fourth column. Everything else I tried doesn't work at
> > > > > > all.
> > > > > >
> > > > > > How can I edit this code to suit my needs?
> > > > > >
> > > > > > Jason's response as follows:
> > > > > >
> > > > > > Assuming data entry cells are col. A, right-click the
> > > > > > worksheet tab, choose "View Code", copy in the code
> > > > > > below, and press ALT+Q to close VBE.
> > > > > >
> > > > > > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > > > > > Dim sMsg As String
> > > > > > With Target
> > > > > > If .Column > 1 Then Exit Sub
> > > > > > If .Count > 1 Then Exit Sub
> > > > > > Application.ScreenUpdating = False
> > > > > > Select Case LCase(.Value)
> > > > > > Case "new instrument"
> > > > > > sMsg = "Call Propertry Accounting"
> > > > > > Case "new house"
> > > > > > sMsg = "Call Inspector"
> > > > > > Case "new car"
> > > > > > sMsg = "Buy Insurance"
> > > > > > Case "robbed"
> > > > > > sMsg = "Buy Gun"
> > > > > > 'additional messages here
> > > > > > Case Else
> > > > > > sMsg = "Don't Recognize This"
> > > > > > End Select
> > > > > > MsgBox sMsg
> > > > > > Application.ScreenUpdating = True
> > > > > > End With
> > > > > > End Sub
> > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > > --
> > >
> > > Dave Peterson
> > >
> 
> -- 
> 
> Dave Peterson
> 
0
LMieth (5)
6/10/2005 10:00:02 AM
Reply:

Similar Artilces:

Adding columns
Hi All I have a column that contains cells that have either numbers and letters, or nothing at all, what I am trying and failing to do is add this column, not the contents of the cells but a total number of cells that actually contain data, for example if there are 40 cells in a column and only 6 have no data I am trying to get a formula that will show there are 34 cells that DO contain data. Hope this is clear enough for a response Thanks in advance Steve One way: =COUNTA(A1:A40) & " cells have data" In article <4cp9mjF16tsbgU1@individual.net>, "wo...

Meeting Forward Notifications
We are running Exchange 2007 with Outlook 2003 we have one Exchange server with users in 3 time zones. Everything seems to be good except one problem, "Meeting Forward Notifications". The Exchange server is in est time zone and 2 of our offices are in the cst time zone. Sometimes when an assistant in the cst zone create a meeting request and later forwards the meeting to a new attendee the originator will get a Meeting Forward Notification and at the bottom of the notification it will say that all times are in est time, the time zone of the server. Which really throws t...

Combo Box
Hi, AFTER a user has choosen a row from a combo box, it appears that the combo box automatically display the first printable column. Is there a way to display someother column than the 1st printable column? Sometime I would like to print the 2nd or 3rd column. Is there a way to do this? -- Dennis Dennis wrote: > Hi, > > AFTER a user has choosen a row from a combo box, it appears that the > combo box automatically display the first printable column. > > Is there a way to display someother column than the 1st printable > column? Sometime I would...

Adding CAGR line to Column Chart
I am wanting to create a column bar chart that shows both Revenue and EBITDA. Above both sections I would like a CAGR line to show Displaying the growth percentage. Any hell is greatly appreciated. Thanks. ...

new mail notification #7
doesn't work. No new mail sound either. Any ideas? Does your sound card work? Do you get other system sounds? If you change the new mail notification sound to another sound file, does it work? --� Milly Staples [MVP - Outlook] Post all replies to the group to keep the discussion intact. Due to the (insert latest virus name here) virus, all mail sent to my personal account will be deleted without reading. After searching google.groups.com and finding no answer, paul asked: | doesn't work. No new mail sound either. Any ideas? "paul" said in news:14ff01c42685$e172a7...

Eamil notifications
When I receive an email, how can I change the notification sound to be a different sound, such as an animal sound? It's set in the operating system. Control Panel, Sounds and Audio.., Sounds, New Mail Notification. puppy to go wrote: > When I receive an email, how can I change the notification sound to be a > different sound, such as an animal sound? ...

Stacked column within a column chart
I have created a column chart that has 10 X-axis categories. Each category has 4 data values (columns). I need to add a 5th data value by making the 4th column a stacked column with the 5th data values. Therefore each of the categories will have 3 normal columns and the 4th will be a stacked column. Is this possible? If so, how do I do this? Thank you for your help! Dave - Through careful arrangement of the data in your worksheet, you can make a stacked column chart that looks like a clustered-stacked column chart. There is a tutorial showing this technique on Bernard Liengme&#...

Column drop-down list sorter
I need to create a drop-down memu in the column headers that show only rows with corresponding list info. So, I have a column title Names, I have 10 rows of data and under the column Names, I have Nancy, Katie and Mary. I need to be able to select only Mary and all the other rows that have Nancy and Katie in that column are not shown. Does that make sense? and how do I do it? Use the Autofilter feature. http://www.officearticles.com/excel/using_autofilter_in_microsoft_excel.htm ************ Anne Troy www.OfficeArticles.com "CMonroe329" <CMonroe329@discussions.microsoft.com&...

Macro to change Chart Range when inserting a column
I have created a workbook to use as a weekly reporting tool for different sites across the country. It contains a "Report" sheet and a "Data" sheet. There are 4 charts embedded into the Report sheet. I have set-up the Data sheet to have the data titles in Column A, a 12-week summary in Column B, and the weekly data begins at Column C. For the 12-week, I used the formulas =sum($C$1:$P$1) and on the Chart series, I used =Data!$C$1:$P$1. I designed the sheet so a center would insert a column at Column C each week for the most recent data. Unfortunately, everytime th...

convert columns from numbers to a lettering system
How do I convert columns that are numbered into letters ? If you are speaking of column headers then open the Excel options and uncheck "Use R1C1 referencing" best wishes -- Bernard V Liengme Microsoft Excel MVP http://people.stfx.ca/bliengme remove caps from email "johnmonek" <johnmonek@discussions.microsoft.com> wrote in message news:57480A6A-4356-43EB-BC9D-B41B486F4ABD@microsoft.com... > How do I convert columns that are numbered into letters ? ...

Excel text to columns
In Excel 2000 I downloaded my annual TD Waterhouse satement. It all downloads to one cel and trying to get just the last column into a susable for and separate it into a single column of its own is difficult. Thewre must be a simple way. Is here someone who might be able to talk back and forth with me to resolve? Thanks, Fil You can use this macro. Sub extractlastcol() For Each c In Range("a2:a161") 'Selection x = Right(c, InStr(3, c, " ")) If IsNumeric(x) Then c.Offset(, 1) = x Next End Sub -- Don Guillett SalesAid Software donaldb@281.com "fil"...

Remove a column but not data table entry
Hi there, I have a column chart in Excel with 5 columns plotted and a data table below to show the values. I would like to remove 2 of the columns from the graph but NOT from the data table itself. Is this possible? When clicking delete on the columns in the graph, it removes the entry in the data table too. Thanks Claire Instead of deleting the column, you could try formatting the column to have no fill and no border. It will still take up phsyical space (but since you're using a data table, this might be preferred to avoid mis-alignement), but it won't be visible. -- Best ...

How to setup Email notifications ....
I am very new to dealing with CRM, so go easy. We create new cases and assign them to various people within the company. Is it possible to have the CRM email the assignee when a case gets created and assigned to them? If this is possible, how/where is this done at? We run Exchange 2000 as our mail server here as well. Thanks, Joshua joshua<d0t>pyle<at>gmail.com Joshua: This is very easy to do. On the CRM server launch Workflow Manager. You will have to type the name of your CRM server in when prompted. Usually this is something like crm or crmserver etc. In the Workflow ...

Sum a column based on a date
I have invoice dates in Column A and their dollar amount in column F. I would like to have another cell say January. And each invoice with a date in January would be added there to make the Total for all invoices in January. Is there a formula to do this? -- karstens ------------------------------------------------------------------------ karstens's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=17657 View this thread: http://www.excelforum.com/showthread.php?threadid=493626 =SUMPRODUCT(--(YEAR(A2:A200)=2005),--(MONTH(A2:A200)=1),F2:F200) -- HTH Bob Phil...

Reminders only pop up when Outlook is open
Hi, I've just migrated my diary/contacts from Palm Desktop to Outlook 2003. (You can see that I'm not the most up to date!) I'm a bit startled to find that I seem to need to keep outlook open the whole time in order to get my calendar reminders. Normally, I like to collect my emails twice a day, and the rest of the time outlook stays closed. Is there any way to avoid having outlook open the whole time, or at least to get the program to pop down into the notification area so it's not cluttering up my taskbar? Are there any 3rd party apps. that deal with the alarms, perh...

Changing the number of columns within existing column(s)
I know this can be done as I have done it before, but I can't remember how. I have two columns and would like to enter some information below in four columns. Without merging cells, there is a way that you can create a "reference table/chart/selection???" outside of your print area that can then be linked to the area you want. Upon completion, the linked information would retain their oringal column widths and appear in your print area as though two columns divided into four. I hope this makes sense and I am not going crazy(ier)! Thank you. Use the Camera Too...

Unhiding Column A
I am using Excel 2003 SP2 and I have a spreadsheet with column A missing. I have followed all the Help Menu advice. I can navigate to column A and hit Format Column Unhide or Format Column Width, but to no avail. It is either hidden or set to zero width, but in any case, it will NOT show up. I have searched all the group postings, been to Microsoft.com help (yea, right) and done everything I can think of. Even installed a macro I found to unhide columns by macro. Any help would be most appreciated. John13 try selecting the cells button to the left of the column headers and on top o...

Comparing dates in columns from linked table
Hi, I'm new to Access/SQL and have a problem with a query that I just cant seem to be able to solve. So, I have an Access database containing client number, security name and date, that information has to be updated every month, the source for the update being an excel file that I link to the Access database. But I dont want to overwrite on the existing data so what i wanted to do was add the current month's data, when it's not already in there. What I did was an insert query which inserts the data from the excel file to the table in the Access database only if the c...

Combining IF and COUNTIF based on two columns
Here is what I'm trying to do, I have two colums with data, the first column will have one of four letters (A, B, C, D) the second column will have one of two numbers (0, 1). I need to get 6 different counts: COUNTIF column A range A1:A250 is A COUNTIF column A is range A1:A250 B COUNTIF column A is range A1:A250 C COUNTIF column A is range A1:A250 D COUNT column A ONLY IF column B range B1:B250 is 0 COUNT column A ONLY IF cloumn B range B1:B250 is 1 I can do the first 4 calculations pretty easy but am having a hard time figuring out how to do the last two calculations. Can anyone h...

Column Alignment Problem
My "message" column disappeared, and when I added it back into the view, the text is aligned to the right and will not adjust back - even tho I reset the alignment to the left! Now it will not sort the "nmessage" column and half of the text of messages names is out of view. Help?! Thanks Try resetting the view -- View | Current View | Define Views, select the view that's messed up, and click Reset. -- Jocelyn Fiorello MVP - Outlook *** Messages sent to my e-mail address will NOT be answered -- please reply only to the newsgroup to preserve the message thread....

How do I convert some data in the row to columns?
I have an issue that I need to resolve. I'm currently getting data in a row format, but I need to convert some of the data into columns, for importing into Access. For example...... Item Description Jan 05 Feb 05 Mar 05 Apr 05 ........... ABC123 Widget A 100 250 175 210 ............ XYZ123 Widget B 50 75 100 76 ............ To convert to........ Column1 Column2 Column3 Column4 Item Description Date Qty ABC123 Widget A Jan 05 100 ABC123 Widget A ...

format columns to collapse and expand in excel
I already did this in an old excel worksheet but I CAN'T remember HOW I DID IT. The result is a (plus) + and a (minus) - sign at the top of the worksheet in row 1 at the location where you want your selected columns to either expand or collapse. I need to once again implement this handy formatting trick but for the life of me remember how I did it....so frustrating! Anyone out ther know how to do this? Move your cursor to the top of the column you wish to AutoFormat.........say it's column C, then ease the cursot to the right to the separation between Column C and column D and ...

Matching the colors Column Charts and Pie Charts
I have a file that contains three graphs. Two pie chats, one charting revenues and the other charting expenses, showing the contribution from each division of a department. At the top of the page i have a column chart graphing revenues and expenses together. The source data for all three charts is coming from the same data. I am trying to find a way to create a column chart that will use a different color for each division, like the pie chart does, instead of one color for revenues and one for expenses. Is this Possible? -- RohanSewgobind --------------------------------------------...

Dismiss reminder, meeting is deleted
When I dismiss a reminder, the meeting is deleted in Office 2007 -- Barb ...

change color of columns depending on value
Hi use 'Format - Conditional Format' for this. See: http://www.contextures.com/xlCondFormat01.html -- Regards Frank Kabel Frankfurt, Germany "van Velzen" <anonymous@discussions.microsoft.com> schrieb im Newsbeitrag news:3e9301c4ac69$44f2e890$a501280a@phx.gbl... > And just in case you meant chart columns have a look at http://peltiertech.com/Excel/Charts/ConditionalChart1.html Frank's so prolific he may have missed the NG you posted in <vbg> Cheers Andy Frank Kabel wrote: > Hi > use 'Format - Conditional Format' for this. See: > ht...