Jeg vil gerne at hver gang jeg aktivirer denne makro springer den ned til næste linie. Altså første gang kommer resultatet i celle I5 og J5, næste gang i celle I6 og J6 osv.....
Det skal være sådan at hver gang jeg vil kopiere de 2 celler og de bliver overført til arket "skæreseddel", så bliver de indsat i næste fri celle nedad og ja , Det er data der bliver slettet efter brug, så den skal starte i cele I5 og J6 hver gang !
Lige en lille "aber dabei". Er det muligt at gøre sådan at jeg kan slette daaerne i arket "skæreseddel" også starter i celle I5 igen ? Ellers skal jeg lukke filen ned hver gang ?
sub Start() Range("C9").Select Selection.Copy Sheets("skæreseddel").Select NN = Range("I65536").End(xlUp).Row + 1 ' NY LINIE finder den sidste tomme i I kolonnen Range("I"& NN).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("optimering").Select Application.CutCopyMode = False Range("I9").Select Selection.Copy Sheets("skæreseddel").Select Range("J"& NN).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("optimering").Select Application.CutCopyMode = False Range("B4").Select End Sub
Hvis der ikke er fyldte celler under I5, finder denne selv rækken
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.
