Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove Numerical Values from Listbox and Certain Text Value
I need to remove ANY Value that is a NUMERIC VALUE and
Remove any Value that is a Text Value = "Section Length" within Column C in the Below Code, so they are NOT listed. How can i do this ? Private Sub UserForm_Activate() Application.ScreenUpdating = False Dim LastCell As Long Dim myrow As Long Dim NoDupes As Collection On Error Resume Next LastCell = Worksheets("InspectionData").Cells(Rows.Count, "A").End(xlUp).Row With ActiveWorkbook.Worksheets("InspectionData") .Select Set NoDupes = New Collection For myrow = 1 To LastCell If .Cells(myrow, 1).Offset(-1, 2) < "" Then On Error Resume Next NoDupes.Add .Cells(myrow, 1).Offset(-1, 2).Value, CStr(.Cells(myrow, 1).Offset(-1, 2).Value) If Err.Number = 0 Then ListBox1.AddItem .Cells(myrow, 1).Offset(-1, 2) End If On Error GoTo 0 End If ' End If Next End With Application.ScreenUpdating = True End Sub Corey.... |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Converting text to numerical values | New Users to Excel | |||
text and numerical values in two columns | Excel Discussion (Misc queries) | |||
text has numerical values | Excel Worksheet Functions | |||
Assign numerical values to text codes | Excel Worksheet Functions | |||
Copying Text vs. Numerical Values | Excel Programming |