Excel VBA: FIND, MODIFY, DELETE

OK, first big issue is that PMG is not defined...

need to have some code like:

Dim PMG as worksheet
ThisWorkbook.Sheets("PMG")

Select allOpen in new window

as you use PMG a lot is best to define it as a Public variable and then set it as the form loads:
Add this into a module then change the button event to Call 'Run_Uform'

Public PMG As Worksheet
Sub Run_Uform()
Set PMG = ThisWorkbook.Sheets("PMG")
frmMain.Show
End Sub

Select allOpen in new window

you are holding the data in a table.. so helps to work with listobjects rather than actial ranges.

This link has some good starting information for working with tables in VBA.

Other than that, it seems to be OK.
Once you get the ListObject under control I am sure it will all fall into place.

There's quite a lot going on here, but I have made the basic changes you need to get this started - in particular as TheBarman said using the ListObject properties to get the relevant column.  I have not fixed everything as it's not always clear what should be happening, but I put in example of the right code in Find, First, Last and Amend - 'c' should always be set to the current row, then the updating should work.  Give it a try and see if you can get it working as you want - any more questions just come back.

Stuart
Sample-MPT-UPDATE.xlsm

@The_Barman  Thank you for the information ..  Seems helpful but as I'm a novice in VBA coding I don't honestly know where to begin with where to place the "listobjects" statements and the appropriate syntax when asking the code to search through a specified range...  I did bookmark the page for more studying once I learn more with working with Tables and VBA

@andrewssd3  your example helps a lot!  At least it's doing what it originally did when I placed data in the Search field.  the code finds the "search criteria" and let's me know how many instances were found ..

I just need the found data to be listed in the list box below afterwards {Sub FindAll()} ... Once listed in the listbox the end user should be able to select one of the choices which would then populate the textboxes above..   The end user should then be able to edit and amend the data populated in the textboxes back into the table.

I'm was looking into working with listobjects as suggested by @the_Barman but keep getting object not defined errors .. I'm sooo lost and hope I'm not making more of a mess ... Thank you everyone for looking into this for me

Sub FindAll()
    Dim oSh As Worksheet

    Dim strFind As String    'what to find
    Dim rFilter As Range     'range to search
    Set oSh = ActiveSheet
   
    Set rFilter = oSh.ListObjects("PMGTracker").ListColumns(3).DataBodyRange.Select
    

    Set rng = oSh.ListObjects("PMGTracker").Range.Select
    
    strFind = Me.TextBox1.Value
    With oSh.ListObjects("PMGTracker")
        If Not .AutoFilterMode Then .Range("A3").AutoFilter
        rFilter.AutoFilter Field:=1, Criteria1:=strFind
        Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)
        Me.ListBox1.Clear
        For Each c In rng
            With Me.ListBox1
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 3).Value
                .List(.ListCount - 1, 2) = c.Offset(0, 5).Value
                .List(.ListCount - 1, 3) = c.Offset(0, 2).Value
                .List(.ListCount - 1, 4) = c.Offset(0, 4).Value
            End With
        Next c
    End With
End Sub

Select allOpen in new window

does anyone know how to specify a cell within a table as a list object?  I think once I can code cell reference's I can fix this portion of the Find ALL() code { If Not .AutoFilterMode Then .Range("A3").AutoFilter }:

    strFind = Me.TextBox1.Value
    With rng
        If Not .AutoFilterMode Then .Range("A3").AutoFilter
        rFilter.AutoFilter Field:=1, Criteria1:=strFind
        Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)
        Me.ListBox1.Clear
        For Each c In rng
            With Me.ListBox1
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 3).Value
                .List(.ListCount - 1, 2) = c.Offset(0, 5).Value
                .List(.ListCount - 1, 3) = c.Offset(0, 2).Value
                .List(.ListCount - 1, 4) = c.Offset(0, 4).Value

Select allOpen in new window

Yesss!  :)  andrewssd3  thank you and the Find code works great with your modifications and is much easier without the Find_All()  ..  I'm learning more as I work with tables and vba and how to specify ranges .  I'm currently working to update the Amend, Add, and Delete buttons ...  Making progress and I think you for being patient as I work through this as it is a learning process for me  ..

I'm glad it's helping - the best way to learn is to build on some example code.  If you're happy with this, why not allocate some points and close this one off, then if you have additional questions, you can raise a new query - otherwise this one starts to get a bit cluttered.

Stuart