Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

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.