find and update

[Av8tordude]

this code to search with in range and update the information. I have only 1 item in the range and it says there is nothing? Can someone assist to correct this problem.

Thank you

        SearchString = ListBox1.Column(1, ListBox1.ListIndex)        Set SearchRange = Range("T18:T" & LRow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
        
        EE = True
        If Not SearchRange Is Nothing Then
            SearchRange.Offset(0, -1).Value = Format(tbDate, "mm/dd/yyyy")
            SearchRange.Offset(0, 0).Value = lbTID
            SearchRange.Offset(0, 1).Value = CDbl(Amnt)
        End If

 

[dmt32]

hi,
as far as I can see, nothing wrong with your code but wonder if you are returning the correct value from your listbox to your search variable

SearchString = ListBox1.Column(1, ListBox1.ListIndex)

If the value you want to search for in your listbox is in the FIRST column you see, then the column number shown in red should be 0 (zero)

Dave

 

[Av8tordude]

I have a worksheet with data on it. It works just fine, however starting with a fresh sheet, I get the error. To answer your question, I only have 3 columns in the listbox. However, when i replace that part of the code with the actual text, still get an error.

 

[dmt32]

I have a worksheet with data on it. It works just fine, however starting with a fresh sheet, I get the error. To answer your question, I only have 3 columns in the listbox. However, when i replace that part of the code with the actual text, still get an error.

I should have also stated that your search range is unqualified - the sheet you are seraching will need to be the active sheet - if this is not possible then qualify the range to the required sheet

If still having issues, then place copy of your workbook with sample data in dropbox - I or others here may be able to resolve.

Dave