Formuliertje met gevolgen............

[MarcoApeldoorn]

Hoi,

Sinds mijn macro met hulp van hier werkt wil ik aan dezelfde macro eigenlijk nog toevoegen dat er een formulier word opgeroepen waar gekozen kan worden uit de gegevens die staan in de cellen C10:C21 in de sheet "Instellingen", in B10:B21 staan de bijbehorende omschrijvingen.

In het sheet DATA moet er dus voor cel C3 een keuze komen uit de gegevens uit sheet "Instellingen" C10:C21, daarna moet in DATA!D3 de omschrijving worden geplaatst uit "Instellingen" B10:B21.

Ik heb al uitgebreid zitten vogelen met userform en listbox, maar krijg het niet voor elkaar.

De macro waar de keuze in moet komen is:

Sub Rijinvoegen()
'
' Rijinvoegen Macro
' Rij invoegen Nummer toekennen Datum invoegen
'
' Sneltoets: CTRL+a
'
    Application.Goto ActiveWorkbook.Sheets("DATA").Cells(3, 1)
    Selection.EntireRow.Insert
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = Date
    ActiveCell.Offset(0, 1).Range("A1").Select
    
End Sub

Alvast bedankt,

Marco