Thread: Scrollbar Thumb
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
scain2004[_15_] scain2004[_15_] is offline
external usenet poster
 
Posts: 1
Default Scrollbar Thumb

I'm trying to figure out why the thumb in my scrollbar isn't showing up
here's my code


If Target.Column = Columns("C").Column Then
SelectedRow = Target.Row
If SelectedRow 2 And Not ActiveSheet.Cells(SelectedRow
3).Value = "" Then
Target.EntireRow.Select
Call DefineDataRange
StartRow = SelectedRow

For i = 0 To Range("Datalist").Rows.Count - 1
If i 2 And Not Range("Datalist").Cells(i
"C").Value = "" Then
ReDim Preserve scrollArr(counter + 1) As String
scrollArr(counter)
Range("Datalist").Rows(i).Address
scrollArr(counter) = Right(scrollArr(counter), _
InStr(scrollArr(counter), ":$") - 2)
message = message + scrollArr(counter) + vbCrLf
counter = counter + 1
End If
If i = Range("Datalist").Rows.Count - 1 Then
counter2 = counter
End If
Next

'MsgBox message

scrollMin = CInt(scrollArr(0))
scrollMax = CInt(scrollArr(counter - 1))

Sheets("Scratch").Range("ScrollVal").Value = StartRow
1
Set rgData = Range("Datalist").Rows(StartRow - 1)
Sheets("Scratch").Range("Locked").Value = "True"
fmOrderDetails.sbOrderScroll.Min = scrollMin
fmOrderDetails.sbOrderScroll.Max = scrollMax
For i = scrollMin To scrollMax
If Range("Datalist").Cells(i - 1, "C").Value
Selection.Columns("C").Value Then
fmOrderDetails.sbOrderScroll.Value = i
End If
Next
Sheets("Scratch").Range("Locked").Value = "False"
'MsgBox rgData(1, 3)
LoadOrder
fmOrderDetails.txCustName.BackColor = &H80000005
fmOrderDetails.txProjName.BackColor = &H80000005
fmOrderDetails.cbSalesPer.BackColor = &H80000005
fmOrderDetails.txNSpay.BackColor = &H80000005
fmOrderDetails.txNSexp.BackColor = &H80000005
fmOrderDetails.txBillCust.BackColor = &H80000005
fmOrderDetails.txBillAdd.BackColor = &H80000005
fmOrderDetails.txBillPh.BackColor = &H80000005
fmOrderDetails.txBillEM.BackColor = &H80000005
fmOrderDetails.txBillPO.BackColor = &H80000005
fmOrderDetails.txProjCust.BackColor = &H80000005
fmOrderDetails.txProjAdd.BackColor = &H80000005
fmOrderDetails.txProjPh.BackColor = &H80000005
fmOrderDetails.txProjEM.BackColor = &H80000005
fmOrderDetails.txContract.BackColor = &H80000005
fmOrderDetails.txComm.BackColor = &H80000005
fmOrderDetails.txOrdVal.BackColor = &H80000005
fmOrderDetails.fmDirect.BackColor = &HE0E0E0
fmOrderDetails.fmTech.BackColor = &HE0E0E0
fmOrderDetails.fmPay.BackColor = &HE0E0E0
fmOrderDetails.fmExp.BackColor = &HE0E0E0
fmOrderDetails.Show
End If
End If


I'll post anything else if you need it

--
Message posted from http://www.ExcelForum.com