Deze website maakt gebruik van cookies. Waarom? Klik hier voor ons privacy- en cookiebeleid. Door op akkoord te klikken of door gebruik te blijven maken van deze website geeft u aan akkoord te zijn met het gebruik van cookies.

Akkoord

Vraag & Antwoord

Programmeren

Excel Macro vraag

Doof
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

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