Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA dropdownlist to put in cell's comment creates runtime error whenthe dropdownlist is above 266 lines
I get a run time "1004" when the comment lines are at 266 lines. WIth less than 200 comment lines the code runs fine. The DropDownTmp variable list includes all 266 lines. The comment field cuts off around 253 lines of code. The program stops with the run time error.
Any ideas on how to fix this? SearchRowTemp = SearchRow ErrorDesc = Sheets(SNLogNew).Cells(LogRowCounter, 1).Value & Sheets(SNLogNew).Cells(LogRowCounter, 2).Value Do Until ErrorDesc = "" If Left(ErrorDesc, 3) = " " Or Sheets(SNLogNew).Cells(LogRowCounter, 1).Value = "" Then ' Add a comment If Not Found Then If NewComment Then Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).AddComment Text:=Trim(ErrorDesc) Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).Comment..Shape.TextFrame.AutoSize = True NewComment = False Else Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).Comment..Text Text:=Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).Comment.Text & Chr(10) & Trim(ErrorDesc) End If ' Determine the number of specs in the drop down list i_number_comments = Len(Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).Comment.Text) - Len(Replace(Sheets(SNTD).Cells(TDRowCounter _ - 1, Tdf_Col_Error).Comment.Text, Chr(10), "")) Debug.Print i_number_comments ' If this is the last entry of a comment... add the data validation If Left(ErrorDesc, 3) = " " And _ (Sheets(SNLogNew).Cells(LogRowCounter + 1, 1).Value = "" Or Left(Sheets(SNLogNew).Cells(LogRowCounter + 1, 1).Value, 3) < " ") And _ CMD_Tmp.DetailDropDown And TDRowCounter TDRow And i_number_comments 250 Then DropDownTmp = Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Error).Comment.Text ' Add Drop Down Selection for "Detail" Cell With Sheets(SNTD).Cells(TDRowCounter - 1, Tdf_Col_Detail).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=DropDownTmp .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With End If End IfShow trimmed content |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dropdownlist and Vlookup | Excel Discussion (Misc queries) | |||
DropdownList/AutoFillUpList | Excel Discussion (Misc queries) | |||
Aligment of DropDownList | Excel Programming | |||
Aligment of DropDownList | Excel Programming | |||
Dropdownlist in a Cell | Excel Programming |