Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Limit on Column Selection
Hi All,
I have a requirement where I might need to replace the text in Cells for particular columns. I have a form where I get the input from the user asking them the fields they would want me to replace the text in. I store the column numbers in a variant array. I then do an iteration which is something like Do While (intFieldCount <= UBound(vUpdFieldsCol)) strCol = Left(Cells(1, vUpdFieldsCol (intFieldCount)).Address(False, False), 1 - (vUpdFieldsCol (intFieldCount) 26)) If (Len(strSelection) = 0) Then strSelection = strSelection & strCol & "9:" & strCol & intRngEnd Else strSelection = strSelection & "," & strCol & "9:" & strCol & intRngEnd End If intFieldCount = intFieldCount + 1 Loop But after the strSelection construction has been completed I do a Sheet.Range(strSelection).select which fails and when I debug the value of strSelection, I find the value has not been completely picked up. I checked to see the limit of the datatype string and my values are just a miniscule fraction of the 2 billion characters. Am I missing something, can you guys let me know whats wrong with what I have written? Thanks and Regards, Haarish. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Limit on Column Selection
I re-wrote the code and it doesn't look like it does what you are expecting
Do While (intFieldCount <= UBound(vUpdFieldsCol)) MyStr = Cells(1, vUpdFieldsCol(intFieldCount)).Address(RowAbsolute: =False, columnabsolute:=False) if vUpdFieldsCol(intFieldCount) 26 then strCol = Left(MyStr, 0) else strcol = left(MyStr, 1) end if If (Len(strSelection) = 0) Then strSelection = strSelection & strCol & "9:" & strCol & intRngEnd Else strSelection = strSelection & "," & strCol & "9:" & strCol & intRngEnd End If intFieldCount = intFieldCount + 1 Loop "Haarish" wrote: Hi All, I have a requirement where I might need to replace the text in Cells for particular columns. I have a form where I get the input from the user asking them the fields they would want me to replace the text in. I store the column numbers in a variant array. I then do an iteration which is something like Do While (intFieldCount <= UBound(vUpdFieldsCol)) strCol = Left(Cells(1, vUpdFieldsCol (intFieldCount)).Address(False, False), 1 - (vUpdFieldsCol (intFieldCount) 26)) If (Len(strSelection) = 0) Then strSelection = strSelection & strCol & "9:" & strCol & intRngEnd Else strSelection = strSelection & "," & strCol & "9:" & strCol & intRngEnd End If intFieldCount = intFieldCount + 1 Loop But after the strSelection construction has been completed I do a Sheet.Range(strSelection).select which fails and when I debug the value of strSelection, I find the value has not been completely picked up. I checked to see the limit of the datatype string and my values are just a miniscule fraction of the 2 billion characters. Am I missing something, can you guys let me know whats wrong with what I have written? Thanks and Regards, Haarish. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filiter and Limit selection in Combo box / List Box in the UserFor | Excel Worksheet Functions | |||
Filiter and Limit selection in Combo box / List Box in the UserFor | Excel Programming | |||
How to limit columns that display based on selection of a dropdown value | Excel Worksheet Functions | |||
Refedit - Limit selection to only one cell | Excel Programming | |||
limit cell list selection based on the selection of another list | Excel Worksheet Functions |