Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: code simpeler maken voor gebruik in elke regel

  1. #1
    Vraag is opgelost

    code simpeler maken voor gebruik in elke regel

    Hallo beste leden, ik ben met een bestandje bezig om een brief aan te maken en bepaalde gegevens te kopieren met een kleine macro.
    Alleen zou komt deze code in elke horizontale lijn en heb ik deze op 150 lijnen nodig en lijkt het me verloren werk om deze macro dan ook 150 keer aan te passen voor elke lijn.
    Heeft er iemand een beter alternatief om dit gemakkelijk te doen?
    De code die ik gebruik zet ik hier bij
    Alvast bedankt
    Code:
    Sub adreskopieren()
    '
    ' adreskopieren Macro
    '
    
    '
        Sheets("NAMENBESTAND").Select
        Range("C6:G6").Select
        Selection.Copy
        Sheets("CODE").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
    End Sub

  2. #2
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Heeft er iemand een beter alternatief om dit gemakkelijk te doen?
    Zo?
    https://support.microsoft.com/nl-nl/...f-932c49474705
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Voorbeeldbestand?
    Met vriendelijke groet,
    Albert

  4. #4
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Je vertelt niet goed wat je aan het doen bent. Als je brieven maakt, is Afdruk Samenvoegen (vanuit Word) waarschijnlijk de beste optie. Mits je de gegevens netjes hebt opgezet.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  5. #5

    adres kopieren

    het is eigenlijk geen brief maar een adresbestand waarvan ik telkens de gegevens moet kopieren naar een ander blad en telkens plakken in dezelfde cellen
    alleen heb ik deze code op 100 lijnen staan waarvan ik dan telkens de code moet aanpassen bij elke lijn wat ik denk dat wel iets gemakkelijker kan.
    alleen weet ik niet goed hoe dit simpeler te maken en richt ik me tot dit forum om hulp te vragen.

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zie #3
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7

    voorbeeldbestand

    sorry, hier een voorbeeldbestand
    Bijgevoegde bestanden Bijgevoegde bestanden

  8. #8
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Ik snap nog steeds niet wat je aan het doen bent. Je wilt blijkbaar 100 regels genereren met willekeurige gegevens? Waar komen die adressen vandaan? En waar mot het heen?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Het is mij ook niet echt duidelijk. Ipv verschillende knoppen kan je beter het BeforeDoubleClick event gebruiken. Dubbelklik in de tabel op de naam en de gegevens komen in Blad2 te staan.

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(1)) Is Nothing Then
        Sheets("Blad2").Cells(5, 11).Resize(5) = Application.Transpose(Target.Resize(, 5).Value)
        Cancel = True
      End If
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Hartelijk dank vena, hier kan ik mee verder met veel minder werk en weeral dank zij jou iets bijgeleerd.

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