18. april 2005 - 10:20Der er
8 kommentarer og 1 løsning
macro spørgsmål
Hej eksperter
Ved ikke om dette er muligt, men kan man lave en macro som når man trykker på den tager den f.eks A1 til A6 på ark1 og kopiere over til A1-A6 på ark2, hvorefter den så skal slette A1-A6 på ark1 og næste gang man trykker skal den så kopiere de samme felter altså A1-A6 men denne gang til B1-B6 på ark2?
jeg kan fint få den til at gøre noget af det, men den vil altid smide det ind på A1-A6 på ark2 istedet for at rykke et felt ned efter hvert tryk.
lige én ting, jeg ændrede så den tager D30:J30, så den altså smider de 7 tal over i ark2 på 1 række, næste gang jeg trykker vil den smide det ind ved siden af, men vil gerne have den til at gøre det nede på næste række istedet, hvor er det liiige man fixer det ? :) og kan man få den til at smide D30:J30 ind på valgfri steder i ark2, f.eks på A1, D1, F1 etc.
Sub Macro1() Dim rngInsert As Range Set rngInsert = Application.InputBox("Hvor skal det indsættes", "Indsættelsespunkt", , , , , , 8) Sheets("Ark1").Range("D30:J30").Cut Destination:=rngInsert End Sub
Sub Macro3() Dim wsh As Worksheet Dim lLastRow As Long Dim lLastCol As Long Set wsh = Sheets("Ark2") With wsh On Error Resume Next lLastRow = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row lLastCol = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column On Error GoTo 0 Sheets("Ark1").Range("D30:J30").Cut Destination:=.Cells(lLastRow + 1, lLastCol + 1) End With 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.
