ginogcsbelgie
Gebruiker
- Lid geworden
- 17 nov 2014
- Berichten
- 63
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
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