Macro køres x antal gange afhængigt af indhold i celle
Hej eksperter.Nedenstående makro kopierer indholdet i række 1 i et bestemt ark, og indsætter det et ønsket sted i et andet ark.
Jeg ønsker at alt efter hvilket tal der står i celle a3 i arket "IT" (tallet må ikke overskride 99), så køres makroen det antal gange.
Makroen ser PT sådan ud:
Sub IndsætNyIT()
'
' Indsæt_række Makro
' Indsætter en tom række
'
'
Sheets("Skabelon").Select
Rows("1:1").Select
Selection.Copy
Sheets("IT").Select
Dim rn As Range
Dim rnNew As Range
Dim i As Integer
Set rn = Range("D1")
Set rn = rn.End(xlDown) ' find første indtastning i kolonne D og spring over 2 overskriftslinjer
Set rnNew = rn.Offset(2, 0).EntireRow
rnNew.Insert
For i = 1 To 10
Next
End Sub
Bonus:
Kan der tilføjes noget til koden, således skærmen ikke blinker når makroen kører - da man kort kan se den skifter fane, kopierer indhold, går tilbage til fanen hvori der skal indsættes og derefter indsætter. Evt. i form af en indikator i procesbaren, som kører indtil makroen er færdigafspillet?