Kan man lave en makro hvor en reference automatisk tilpasse fra situation til situation?
Hvis man f.eks. indspiller en makro der kopierer data fra celle a1:a12 og indsætter det i celle b1:b12. Kan man så lave makroen på en sådan måde at næste gang man bruger den, kopierer den data fra celle a1:a12 og indsætter det i celle b13:b25 (altså i enden af de tal der allerede er sat ind).
Det er ikke noget problem f.eks. at lave en formel der kan gengive navnet på den første celle der skal indsættes data i, måske kan det bruges i makroen.
Skriv endelig hvis I har brug for flere oplysninger for at kunne hjælpe.
Hvad så hvis jeg skal kopiere A1:A12 til B1:b12 i et andet ark (sheet2)? Og data også hele tiden skal sættes ind i bunden. Er der noget specielt man så skal være opmærksom på? Synes nemlig ikke lige jeg kan få det til at fungere....
Og så er der bare lige lidt mere .... Hvis nu jeg skal indsætte data som transponer, fordi jeg har data i B5:e5 og de skal stå i kollonne e (i bunden) hvordan kæder jeg så det ind i makroen? Min makro ser pt. sådan her ud:
Sub indsæt_makro()
ActiveSheet.Range("b5:e5").copy Sheets("dataark").Range("e65536").End(xlUp).Offset(1, 0) End Sub
Men der skal på en måde noget paste.special med ind, så jeg kan indsætte data fra vandret til lodret.
Sub test() Dim rng As Range ActiveSheet.Range("B5:E5").Copy Set rng = Sheets("Sheet2").Range("E65536").End(xlUp).Offset(1, 0) rng.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.CutCopyMode = False End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
