Search results

Thank you :)

See example

@FranckNL are all the fields mandatory?

@FranckNL I am almost done with my idea, I just have to add some code so that the users have to fill in the mandatory fields, the rest is done.

It is a bit of work to adjust everything to a good working file, but I am retired, I have time, In a few days you get an good working example.

Not only your code, an excel example with your 2 sheets with some dummy data.

Post an excel example, not a PDF.

Thanks for the feedback. :)

Like this? Edit @ p45cal, It does, I forgot to post it:eek:

=SUM(A1:D1)

Try this for a starter, according to your example. Sub Belle() Dim s1 As Worksheet, ws As Worksheet Set s1 = Sheets("Sheet1") Dim lr As Long Application.ScreenUpdating = False For Each ws In Worksheets If ws.Name <> "Sheet1" Then lr = s1.Range("A" &...

Start posting an excel example.

Why have you still in the above topics, like The vault or whatever solutions for these questions?

I had the same problem somewere in 2015, post your file and I can see what I can do, no promices.

Nice example:mad:

Simple answer : No

Glad to help, and thanks for the feedback. :)

Try this in the ThisWorkbook event. Private Sub Workbook_Activate() Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False...

As far as I understand your question give this a try: Sub CreateButton() ActiveSheet.Range("N" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select With Selection .Offset(0, -3).Font.Color = RGB(0, 176, 80) .Offset(0, -3).Font.Bold = True .Offset(0, -3).ClearComments...

Glad to help, and thanks for the feedback. :)

a starter

I never use rowsource to populate a listbox but list then it wil work but without a small example?

Try this Private Sub T_40_Change() On Error Resume Next lijst = [Table1].value arg = 0 For i = 1 To UBound(lijst) If InStr(1, lijst(i, 2), T_40, vbTextCompare) > 0 Then arg = arg + 1 End If Next i ReDim nwlijst(arg - 1, 40)...

What is the column number in your sheet where you want to search? How is de listbox populated?

Try Sub TrimExample1() Dim Rng As Range Set Rng = Sheets("Sheet1").ListObjects(1).Range For Each Cell In Rng Cell.Value = Trim(Cell) Next Cell End Sub