Hej Fredrik

Hör har du kod som gör det du ska, utgår ifrån att du använder kolumn F för antal rader. Bara att lägga in den i en modul i vbe och koppla ihop med knapp . Möjligtvis behöver du ändra bladnamnen, de ska vara döpta till vad respektive blad heter.
Mvh
Christian

Sub writeXtimes()

Dim ReadFromSh As Worksheet: Set ReadFromSh = ThisWorkbook.Sheets("Blad1")
Dim lRow As Long: lRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim Rng As Range: Set Rng = ReadFromSh.Range("F1:F" & lRow)
Dim vnt As Variant: vnt = Rng
Dim PrintToSH As Worksheet: Set PrintToSH = ThisWorkbook.Sheets("Blad2")

PrintToSH.UsedRange.ClearContents
Dim i, k: k = 1
For i = 1 To UBound(vnt, 1)
PrintToSH.Range("A" & k & ":E" & (vnt(i, 1) + k)).Value = ReadFromSh.Range("A" & i & ":E" & i).Value
k = k + vnt(i, 1)
Next i

Dim newRng As Range: Set newRng = PrintToSH.Range("A1:F" & k)
Call RndRng(newRng, PrintToSH)

End Sub
Function RndRng(Rng As Range, ws As Worksheet)


Dim rngUpper As Long
Dim myRow As Long
rngUpper = Rng.Rows.Count

For myRow = 1 To rngUpper
ws.Cells(myRow, 6).Value = Int((rngUpper * 10 - 1 + 1) * Rnd + 1)
Next myRow

Rng.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlNo
Rng.Columns(6).ClearContents


End Function

Hej hej

Ersätt :
Rng.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlNo

Med;
Rng.Sort Key1:=ws.Range("F1"), Order1:=xlAscending, Header:=xlNo

/c

Hej hej

För att lägga till en tom rad på första raden:

Sheets(ws).rows(1).insert

För att ta bort sista raden kan du skriva såhär:

Dim LastRow as long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Sheets(ws).rows(lastrow).delete

Lägg in dessa längst ner i din kod. (presis före End Function)

CHristian

Fast nu blev jag lite förbryllad.
Den fungerar som tänkt i en separat excel, men när jag kopierat in de tre bladen samt moduler, så funkar det kanon förutom att jag får en slumpad rad som är helt tom. Har ingen aning om var den kommer ifrån...

Men det fungerar att sätta 0, så det är inte problemet, som jag trodde ovan...
Kan inte se att det skiljer något i koderna etc.

 Det jag kan se är att den skapar med funktionen writeXtimes, 13 rader av min 12 (Om jag väljer att den ska göra en av varje) Den skapar 25 rader om jag väljer två av varje. Kollar jag så lägger den 1 extra av den text som jag har på rad 12 (av 12) så den kommer med en gång mer än jag vill... Var sker detta?

 

Sub writeXtimes()