Cellen kopieren database

Status
Niet open voor verdere reacties.

wams

Gebruiker
Lid geworden
27 feb 2017
Berichten
11
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!

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
 
Code:
Range("C24").value=Range("AL24").value 'personalia
etc
 
Hoe simpel kan het zijn! En hoe stom ook, had het de andere kant op min of meer hetzelfde opgelost..

Hartstikke bedankt!
 
Wat je van alle kenners te horen zal krijgen: blijf uit de buurt van .Select; dat maakt je macro's enorm traag. Zeker bij grotere gegevensblokken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan