Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Cellen kopieren database

  1. #1
    Junior Member
    Geregistreerd
    27 februari 2017
    Vraag is opgelost

    Cellen kopieren database

    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

  2. #2
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Code:
    Range("C24").value=Range("AL24").value 'personalia
    etc

  3. #3
    Junior Member
    Geregistreerd
    27 februari 2017
    Hoe simpel kan het zijn! En hoe stom ook, had het de andere kant op min of meer hetzelfde opgelost..

    Hartstikke bedankt!

  4. #4
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    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.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren