Vraag & Antwoord

Programmeren

Excel Macro vraag

3 antwoorden
  • Ik ben bezig een programma in Excel aan het schrijven m.b.v. Macro's. Weet iemand hoe ik d.m.v. een loop de kolommen C t/m H 15 keer ernaast kan kopieren? Zie onderstaand code van wat ik wil doen. Alleen wil ik de hele zooi niet uitschrijven maar in een loop doen. Daar komt nog bij dat het getal 15 variabel kan zijn. [code:1:3e54394c89] Columns("C:H").Select Selection.Copy Range("I1").Select ActiveSheet.Paste Range("O1").Select ActiveSheet.Paste Range("U1").Select ActiveSheet.Paste Range("AA1").Select ActiveSheet.Paste : : [/code:1:3e54394c89]
  • Sub MAIN() Dim intX As Integer, intCopy As Integer ' intX bepaalt de start kolom waarin A-H gekopieerd wordt ' intCopy is het aantal maal dat A-h gekopierd moet worden intCopy = 15 Columns("A:H").Select Selection.Copy For intX = 1 To intCopy ' 8* omdat H de achtste kolom is Range("A1").Offset(0, 8 * intX).Select ActiveSheet.Paste Next intX End Sub :o
  • [quote:1ab13a8858="avalon"]Sub MAIN() Dim intX As Integer, intCopy As Integer ' intX bepaalt de start kolom waarin A-H gekopieerd wordt ' intCopy is het aantal maal dat A-h gekopierd moet worden intCopy = 15 Columns("A:H").Select Selection.Copy For intX = 1 To intCopy ' 8* omdat H de achtste kolom is Range("A1").Offset(0, 8 * intX).Select ActiveSheet.Paste Next intX End Sub :o[/quote:1ab13a8858] Bedankt voor de tip. Maar stel nu dat ik de waarde van intCopy via een cel in Excel wil opgeven, bijvoorbeeld cel "B3" van blad "Sheet 2". Hoe doe ik dat dan?

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.