Goedemorgen allemaal,
Ik ben een vba code aan het maken om data uit een rij met gegevens te kopieren naar een invulblad (kleine database zeg maar). op zich heb ik onderstaande code werkend, maar ik ben er eigenlijk van overtuigd dat het makkelijker en vooral sneller moet kunnen. Heb mijn VBA kennis vooral aan dit forum te danken en kom steeds een beetje verder, blijft mooi om dingen werkend te krijgen!
Is er iemand die de gouden tip heeft?
Alvast hartelijk dank!
Ik ben een vba code aan het maken om data uit een rij met gegevens te kopieren naar een invulblad (kleine database zeg maar). op zich heb ik onderstaande code werkend, maar ik ben er eigenlijk van overtuigd dat het makkelijker en vooral sneller moet kunnen. Heb mijn VBA kennis vooral aan dit forum te danken en kom steeds een beetje verder, blijft mooi om dingen werkend te krijgen!
Is er iemand die de gouden tip heeft?
Alvast hartelijk dank!
Code:
Sheets("Add_person").Select
If (MsgBox("Taking information from database will take a moment.", vbOKOnly, ) = vbOK) Then
Range("AL24").Select 'personalia
Selection.Copy
Range("C24").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AM24").Select
Selection.Copy
Range("F24").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AO24").Select
Selection.Copy
Range("W24").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AP24").Select
Selection.Copy
Range("S24").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AO24").Select
Selection.Copy
Range("O24").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AR24").Select 'traveldocuments
Selection.Copy
Range("D30").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AT24").Select
Selection.Copy
Range("D31").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AS24").Select
Selection.Copy
Range("E30").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("AU24").Select 'Medical Fitness
Selection.Copy
Selection.ClearContents
Range("E15").Select
End If
End Sub