17. april 2010 - 01:49Der er
1 kommentar og 1 løsning
Gentage kode, Excel, vba
Jeg har lavet denne lille stykke kode, som går ud på, at den skal gentage en stykke kode til og med det antal rækker der i en anden arkfane. Men den virker desværre ikke. Håber nogen der kan hjælpe.
Sub kopierOmraade()
Dim maxRow As Integer Dim tempRng As Range
maxRow = Worksheets("Ark2").Range("B2").Rows.Count Set tempRng = Worksheets("Ark2").Range("B1:D1")
For i = 2 To maxRow Worksheets("Ark2").Range(Cells(i, 2), Cells(i, 4)).Copy tempRng Worksheets("Ark1").Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False
maxRow = Worksheets("Ark2").Range("B2").Rows.Count Returnerer kun 1, da antallet af rows for range B2 er 1 - nemlig række 2... Når du så kører Fori = 2 to 1, så skal den jo ikke køre... Du er nødt til udvide dit område... f.eks. maxRow = Worksheets("Ark2").Range("B2:B50").Rows.Count maxRow = Worksheets("Ark2").Range("B2").End(xlDown).Rows.Count men jeg ved jo ikke hvad den skal...
Når du kopierer skifter du fint område Worksheets("Ark2").Range(Cells(i, 2), Cells(i, 4)).Copy tempRng
MEEEEN når du sætter det ind igen er det altid i A6... altså vil A6 blier overskrevet hele tiden - er det meningen? Worksheets("Ark1").Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.