Aanroepen van combobox, listbox of userform

[jackfish]

Onderstaande code voegt een nieuwe rij in met een vaste format. Ik zou de gebruiker graag de mogelijkheid geven om in die nieuwe rij, kolom B, de naam en het nummer van een klant in te voeren. Die gegevens worden gehaald van een ander tabblad. Is het mogelijk om dit idee in onderstaande code te integreren. Ofwel met elke nieuwe regel kan de gebruiker weer kiezen uit de gegevens van het andere tabblad.

alvast dank voor het meedenken.

Bekijk bijlage Testcase.zip

Sub Invoegen()
With Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 11))
    .Cells.RowHeight = 105
    .Cells.BorderAround
    .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        
     For x = 1 To 4
            With .Cells.Borders(x)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 0
            End With
       Next x
End With

Dim currentd As String
      currentd = Format(Date, "dd-mmm")
      ActiveCell = currentd

Dim lLaatsteRegel As Long
       lLaatsteRegel = Range("A" & Rows.Count).End(xlUp).Row
       ActiveSheet.PageSetup.PrintArea = Range("A1:L" & lLaatsteRegel).Address(1, 1)

Application.ScreenUpdating = True
End Sub

 

[snb]

Waarom gebruik je geen tabel (Excel 2007, 2010, en 2013) ?

 

[jackfish]

Het is een extra functionaliteit voor een eerder werkstuk waarbij regels van het ene tabblad naar het andere gezet wordt. Maar ik ben inmiddels een eind gekomen.

Nog 1 vraag, hoe voeg ik de informatie van 2 kolommen (A en B) beter samen tot 1 cel? De informatie van kolom A moet dan op regel 1 en de informatie van kolom B in de regel eronder (handmatig gebruik ik alt+enter om twee regels in 1 cel te maken)

Bekijk bijlage Testcase2.zip

p.s. zet de cursus in kolom 1, onder de aanwezige rij en klik daarna op het rode vlak

 

[jackfish]

Ik heb de volgende code bij herhaling gevonden om 'alt+enter' te simuleren bij het samenvoegen van twee cellen (A1 en B1) waarbij de waardes onder elkaar staan (in C1)

=A1&CHAR(10)&B1

Ik krijg echter, met terugloop ingesteld, de foutmelding #NAAM?

Wie weet waar het mis gaat?

 

[jackfish]

Het moest zijn

=(A1&TEKEN(10)& TEKST(B1;"dd-mm-jjjj"))

voor naam klant en daaronder d geboortedatum .... solved!