Got a good one!!!!

[charlie79]

I have an excel 2k workbook that is basically a front end to a access db (2k as well). In the workbook the user will select a value from a combo box, which will in turn populate certain cells in the workbook. Let's say the cells being populated are A1:A10. There are also two buttons, one to update the db with the values in A1:A10, another to restore the values from the db (simply in case the user made changes in the cells but decides he wants to go back to the db values). Here's what I want to do, maybe I'm getting to fancy. The user selects a value from the combo box, the cells A1:A10 are populated with values, with black text, aligned right. If the user changes that value, the text becomes red, aligned left. Am I dreaming?

 

[fdrl]

On 2002-04-24 11:56, charlie79 wrote:
Please bare with me, but is this right?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Range(Target).Font.Color = RGB(255, 0, 0)

End Sub

It must not be, since I get a run-time error: "Method 'Range' of object'_Global' failed."

Enlighten me...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Font.Color = RGB(255, 0, 0)
End Sub

 

[Legacy 98055]

Change:

Range(Target).Font.Color = RGB(255, 0, 0)

To:

Target.Font.Color = RGB(255, 0, 0)

I think?

Just a note. Your code as is will change every changed cell in your workbook to red...

Should use the Worksheet_Change and apply a condition such as a specific range...

Use:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row< 11 Then
Target.Font.Color = RGB(255, 0, 0)
Target.HorizontalAlignment = xlLeft
End If
End Sub

Tom
This message was edited by TsTom on 2002-04-25 06:06

 

[charlie79]

That's it guys! Thanks a lot.

 

[dhoffman]

On 2002-04-25 05:42, charlie79 wrote:
No, that didn't seem to work. I don't know if I'm missing something, but that event does not get run when I type values into cells and press enter. I know this cause I set a breakpoint at the sub, and it didn't break.

Oh, really, so why does it work now?

 

[charlie79]

On 2002-04-25 08:16, dhoffman wrote:

On 2002-04-25 05:42, charlie79 wrote:
No, that didn't seem to work. I don't know if I'm missing something, but that event does not get run when I type values into cells and press enter. I know this cause I set a breakpoint at the sub, and it didn't break.

Oh, really, so why does it work now?

Sorry if I upset you dhofman, but you suggested using the Worksheet_Change event, when I should be using the Workbook_SheetChange event. Again, sorry to have upset you, but....

Besides, I like TSTOM better than you .?.?.?

_________________
How long a minute is depends on which side of the bathroom door you are standing...

Cheers
This message was edited by charlie79 on 2002-04-25 10:29