Macro: werknemer toevoegen aan juiste afdeling

[litmanen10]

Hallo, ik wil een macro maken waarbij ik iemand een nieuwe werknemer kan laten invoeren en dat deze dan op basis van de subafdeling, te weten:
algemeen
particulier
administratie
enz. enz.

op de juiste afdeling wordt geplaatst. Ik heb een macro maar deze is nog niet af en heb geen idee hoe nu verder te gaan. Op dit moment wordt er alleen een nieuwe medewerker toegevoegd aan algemeen omdat dit de eerste kolom is. Daarnaast moet bij het invoegen van een nieuwe medewerker ook een nieuwe lege regel worden toegevoegd zodat de optelsom werkende blijft.

Alvast bedankt.


'
Range("U5:U10").Select
Selection.Copy
Range("A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A12:S12").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("U5:U10").ClearContents
End Sub

 

[Hoornvan]

litmanen10,

Zou het niet handiger zijn om een voorbeeld bestandje zonder gevoelige info, hier te plaatsen.
Doe daarin de uitleg wat er moet gebeuren.

 

[Sumpie]

Hoezo maak je geen lijst waarin de functies staan. Dan plaats je een naam en dan kan je via dropdownmenu een afdeling selecteren.
Of moet het automatisch gebeuren?

 

[danny147]

Beste litmanen10

Deze code doet net hetzelfde wat je nu al hebt.

Sub toevoegen()
[U5:U10].Copy
[A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll, , , True
[U5:U10].ClearContents
End Sub

Graag een voorbeeldbestandje zoals Hoornvan al aangaf.

Groetjes Danny. :thumb: