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.....
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
