Thanks Mike,
Got there in the end with a few added conditions and a bit of fiddling
around.
Corey....
"Mike Fogleman" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Corey, instead of trying to remove them, just exclude them from being
> added to the combobox with a 3rd IF statement:
>
> For myrow = 2 To lastcell
> If .Cells(myrow, 1) <> "" Then
> If .Cells(myrow, 1).Offset(-1, 2).value <> combobox1.value Then
> If IsNumeric(Trim(Mid(.Cells(myrow, 1), 2))) = True Then
> ComboBox2.AddItem Cells(myrow, 1)
> End If
> End If
> End If
> Next
>
> Mike F
>
> "Corey" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>>I currently have combobox1 populated with values from sheet1.Range(R2:R12)
>>
>> Combobox2 is populated with ALL Numerical values in sheet1.Range(A:A).
>>
>> But i want ONLY Combobox2 populated with ALL Numerical values that have
>> .offset(-1,2).value = combobox1.value
>>
>> The code to popultate combobox2 currently is:
>>
>> Private Sub UserForm_Initialize()
>> Application.ScreenUpdating = False
>> With ActiveWorkbook.workSheets1
>> .Select
>> For myrow = 2 To lastcell
>> If .Cells(myrow, 1) <> "" Then
>> If IsNumeric(Trim(Mid(.Cells(myrow, 1), 2))) = True Then
>> ComboBox2.AddItem Cells(myrow, 1)
>> End If
>> End If
>>
>> Next
>> End With
>> End Sub
>>
>> Need something like:
>>
>> Private Sub UserForm_Initialize()
>> Application.ScreenUpdating = False
>> If combobox2.value offset(-1, 2).value <> combobox1.value then REMOVE
>> from Combobox2.list ' <========= This bit here
>> With ActiveWorkbook.workSheets1
>> .Select
>> For myrow = 2 To lastcell
>> If .Cells(myrow, 1) <> "" Then
>> If IsNumeric(Trim(Mid(.Cells(myrow, 1), 2))) = True Then
>> ComboBox2.AddItem Cells(myrow, 1)
>> End If
>> End If
>>
>> Next
>> End With
>> End Sub
>>
>> Have been assisted with some other code to find the cell and it may be
>> needed to fix the above:
>>
>> Dim rngFound As Range
>> On Error Resume Next
>> With workSheets2.Range("C:C")
>> Set rngFound = .Find(what:=Me.ComboBox1.Value, after:=.Range("C1"),
>> LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows,
>> searchdirection:=xlNext, MatchCase:=False, matchbyte:=False)
>> ' Top Section Values
>>
>>
>> Tough one for me to work out.
>>
>> Corey....
>>
>
>
|
Similar Threads
