Configure Code of a big Project Userform

[officeexcel2003]

<hr style="color:#ebebeb; background-color:#ebebeb" size="1"> Hello Everybody,
could you help me to configure this userform for Excel2003, please?

I want to use this userform but I don't know VBA.
Download here!

Thank you very much.

I've tried to get help at an other forum but there couldn't be helped to me.

I would be very happy if you would paste your code at the same file or an other excel 2003 file.

 

[officeexcel2003]

Thank you for looking at it

 

[Norie]

I think I've got the delete part but I'm not sure about the search thing.

How do you determine what to search?

eg search by Vorname, Nachname or Firme?

Also how/where to display the result of the search?

 

[officeexcel2003]

You are amazing Norie
Thousand hugs and kisses

I would like to search for "Vorname", "Nachname" or "Behörde/Firma" but I see that it is not possible or nonsical to search for all of them.

Is it possible to select one of them and then search for it?
- Select the "Vorname" or "Nachname" or "Behörde/Firma" (with maybe Combobox?) and automatically search/filter for the entered data?

The result could be displayed on the Listbox and if I click a filtered data, the data could be displayed on the Textboxes.
As sample: I select Nachname to search and enter "Einstein". Then I can see on the Listbox: 3 Albert Einstein IrgendeineFirma and with a click on that I can see all entered data in the Listboxes.

 

[Norie]

That's actually the sort of thing I was thinking of but it would take quite a bit of work.

Code would be needed for the combobox, for the filter/search of the data and it's display.

I've done that sort of thing before in Access but not in Excel.

Do you actually need a search function?

How many records are there going to be?

 

[officeexcel2003]

Hallo Norie,
I have feared that this could be too much work.
At the moment are circa 40 records but it will be circa 300 at the next time.
Actually I don't need a search function but after the entering of all records, I will need to search..

 

[Javi]

Norie I am posting so I can be notify of your reply. I would like to see the finished product when complete. I have a need very similar.

 

[Norie]

Javi

It's probably better that you start a new thread and give details of what you are trying to do.

If you want to follow a thread you can click Thread Tools>Subscribe to thread.

 

[Javi]

Thanks for that advice I did not know you could subscribe.

 

[officeexcel2003]

Hello Javi,

this is the newest version of the project which is programmed by Norie:


<embed src="http://www.box.net/embed/9s5fmx0f5k6ikyk.swf" wmode="opaque" type="application/x-shockwave-flash" allowfullscreen="true" allowscriptaccess="always" height="400" width="466">

 

[Norie]

The delete code in that file doesn't work properly.

It deletes something but not what's selected in the listbox.

This is the code I added for the Delete button.

Private Sub cmdDelete_Click()
Dim rngDel As Range
Dim strSummary As String
Dim idxRow As Long
Dim Resp As Variant
    If ListBox1.ListIndex <> -1 Then
        idxRow = ListBox1.ListIndex + 5
        
        Set rngDel = wsTelefon.Range("B" & idxRow)
        
        strSummary = rngDel.Value & "-" & rngDel.Offset(, 3).Value & " " & rngDel.Offset(, 4).Value & " - " & rngDel.Offset(, 5).Value
                    
        Resp = MsgBox("Delete this record? " & vbCrLf & vbCrLf & strSummary, vbQuestion + vbYesNo, "Delete record")
        
        If Resp = vbYes Then
            rngDel.EntireRow.Delete
            PopulateLB
        Else
            MsgBox "Delete cancelled"
        End If
        
    End If
    
End Sub