Code verkorten

[wieter]

Is de onderstaande code te verkorten met een FOR - NEXT lus ?

With Sheets("Raportage").Range("A65536").End(xlUp)
        .Offset(1, 0).Value = Sheets("Invoertabel").Range("B2").Value
        .Offset(1, 1).Value = Sheets("Invoertabel").Range("B3").Value
        .Offset(1, 2).Value = Sheets("Invoertabel").Range("B4").Value
        .Offset(1, 3).Value = Sheets("Invoertabel").Range("B5").Value
        .Offset(1, 4).Value = Sheets("Invoertabel").Range("B6").Value
        .Offset(1, 5).Value = Sheets("Invoertabel").Range("B7").Value
       
    End With

Grtn

 

[pasan]

zoiets?

 Sheets("Invoertabel").Range("B2:B7").Copy
    Sheets("Raportage").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True

 

[huijb]

Voor de oplossing zie hier http://www.helpmij.nl/forum/showthread.php/748428-Code-verkorten gebruiker had de vraag twee keer geplaatst.

 

[wieter]

Sorry,
Ik vond mijn vraag niet meer terug (verwijderd?)
Daarom stelde ik ze opnieuw
Sorry voor het ongemak