Du skal bygge et loop omkring - dette er utestet, men erstat linjenummeret med en variabel (her blot skrevet x):
do for x = 6 to 1000 step 1 (sæt selv antal linjer) If Range("k"&x).Value >= 1 And Range("k"&x).Value <= 14 Then Range("m"&x).Value = Range("J"&x).Value next
Sub Flyt() For X = 6 To 1000 If Range("k" & X).Value >= 1 And Range("k" & X).Value <= 14 Then Range("m" & X).Value = Range("J" & X).Value End If Next End Sub
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.