Maintaing a Data List

[Jim May]

I've cloned the procedure offered in WROX Excel 2002 VBA - Programmer's
Ref - Page 243-247 - and it is working at a 95% level..
(The set of macros enables a Userform to Scroll the records and useCommand
buttons Next Record and Previous Record. The underlying data is
assigned to a range named Database. A minor annoyance at this point is that
the scrollbar mid-bar is "blinking" once I activate it; I'd like to
not have this "Blink" On and Off - but how? -- my test database (at this
point only has 4 rows and 3 records) - with scrollbar value = 2 and min = 2
max=32276. As I scroll through the records (single-view of each) I also
have a command button:

Private Sub cmdApprvRec_Click()
MyRow = rgData.Row '<< represents the Current record
Worksheets("Incoming").Cells(MyRow, 19).Value = "Approved"
End Sub

The above code Changes, let's say cell S4 from "Released" to "Approved"
after clicking on the button (as I want it to), but as soon as I change to
another record cell S4
reverts back to "Released" -- where I need it to remain "Approved".

Any thoughts on what action to take here?
Thanks in Advance..
Jim May

 

[Jim Cone]

Jim,

There are two answers to the scroll bar blink question here...
http://makeashorterlink.com/?L614233FB

Regards,
Jim Cone
San Francisco, USA


I've cloned the procedure offered in WROX Excel 2002 VBA - Programmer's
Ref - Page 243-247 - and it is working at a 95% level..
(The set of macros enables a Userform to Scroll the records and useCommand
buttons Next Record and Previous Record. The underlying data is
assigned to a range named Database. A minor annoyance at this point is that
the scrollbar mid-bar is "blinking" once I activate it; I'd like to
not have this "Blink" On and Off - but how? -- my test database (at this
point only has 4 rows and 3 records) - with scrollbar value = 2 and min = 2
max=32276. As I scroll through the records (single-view of each) I also
have a command button:

Private Sub cmdApprvRec_Click()
MyRow = rgData.Row '<< represents the Current record
Worksheets("Incoming").Cells(MyRow, 19).Value = "Approved"
End Sub

The above code Changes, let's say cell S4 from "Released" to "Approved"
after clicking on the button (as I want it to), but as soon as I change to
another record cell S4
reverts back to "Released" -- where I need it to remain "Approved".

Any thoughts on what action to take here?
Thanks in Advance..
Jim May

 

[Tom Ogilvy]

Set the Large Change property to a value that is greater

than the Max property.
Jim Cone
San Francisco, USA

When I did that, the scroll "chicklet" disappeared. Is that what you
intended? (it certainly couldn't blink the <g>)
(xl2000)

 

[Jim Cone]

Tom,

Yes, it can't do anything else either <g>.
For what it's worth, I use that technique when I place a label
object directly on the scroll bar.

Regards,
Jim Cone

Set the Large Change property to a value that is greater
than the Max property.
Jim Cone
San Francisco, USA

When I did that, the scroll "chicklet" disappeared. Is that what you
intended? (it certainly couldn't blink the <g>)
(xl2000)--
Regards,
Tom Ogilvy

 

[Jim May]

Thanks to you both,
Jim

Tom,

Yes, it can't do anything else either <g>.
For what it's worth, I use that technique when I place a label
object directly on the scroll bar.

Regards,
Jim Cone




When I did that, the scroll "chicklet" disappeared. Is that what you
intended? (it certainly couldn't blink the <g>)
(xl2000)--
Regards,
Tom Ogilvy