Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Scrollbar Thumb
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
TRANSFER A EXCEL WORKSHEET TO A THUMB DRIVE | New Users to Excel | |||
Scroll bar (thumb) length | Excel Discussion (Misc queries) | |||
Sharing violation with a thumb drive | New Users to Excel | |||
scrollbar reslut makes another scrollbar to show | Excel Discussion (Misc queries) | |||
Proportional sizing of scrollbox thumb | Excel Discussion (Misc queries) |