Oprettet man. d. 07. januar 2013 kl. 13:07:16

Kibs
Kibs (5.905 point. Point ude: 30)


Kopier fra række indtil blank række

Hej

Jeg skal have lavet et loop af en slags. Som I kan se herunder skal jeg kopiere H2:J2, og sætte det ind i et andet ark i B2 (skal også transponeres). Derefter skal der køres en makro, og når den er kørt skal H3:J3 kopieres, makroen køres, og så fremdeles. Den skal så selv stoppe når der ikke længere er data i H.

    Sheets("Input").Select
    Range("H2:J2").Select
    Selection.Copy
    Sheets("Forside").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

Er der nogle der kan omdanne ovenstående til det jeg ønsker?

Skrevet tir. d. 08. januar 2013 kl. 22:19:16| #1

H_Klein
H_Klein (12.085 point)
Hej Kibs,

Herunder to forslag til løsning.

Metode1 benytter den metode du efterlyser og kopierer én række af gangen.

Metode2 som er en del hurtigere, specielt hvis det drejer sig om mange data, kopierer ganske enkelt alle data fra "Input" - arket, (række 2 og nedefter) og sætter dem ind i arket "Forside".

Begge metoder tager højde for at der kan være data lagt ind i Forside-arket, og vil finde første ledige celle nedefter hvis pågældende celle er optaget.

---------------------------------
Sub metode1()

    Dim rk As Long
   
    Sheets("Input").Select
    rk = 2
    Do
    Cells(rk, 8).Select
    Range(Cells(rk, 8), Cells(rk, 10)).Select
    Selection.Copy
    Sheets("Forside").Select
    Cells(1, 2).Select
    If Cells(2, 2) = "" Then
    Cells(2, 2).Select
    ActiveSheet.Paste
    Else
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    End If
    Sheets("Input").Select
    rk = rk + 1
    Loop Until Cells(rk, 8) = ""
    Application.CutCopyMode = False
End Sub
--------------------------------------------------

--------------------------------------------------
Sub metode2()

    Sheets("Input").Select
    Cells(2, 8).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Forside").Select
    Cells(1, 2).Select
    If Cells(2, 2) = "" Then
    Cells(2, 2).Select
    ActiveSheet.Paste
    Else
    Cells(1, 2).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    End If
    Application.CutCopyMode = False
End Sub
----------------------------------------

Håber at det kan bruges og ellers må du lige vende tilbage.

Med venlig hilsen

Henrik

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   



Seneste spørgsmål

Kopiere ark fra anden fil automatisk ved åbning

Oprettet den 11. februar 2016 kl. 12.22
denkel giver 30 point for svar | Giv et svar »

Har problemer med at oprette pdf´ udfra skabeloner og...

Oprettet den 7. februar 2016 kl. 22.45
Frandsen1967 giver 30 point for svar | Giv et svar »

Scanne bestemte celler, hvis tomme celler - en pop op box...

Oprettet den 7. februar 2016 kl. 17.38
marting giver 150 point for svar | Giv et svar »

Seneste guides

Luk en tråd
Defraggler og din SSD.
Must-know genvejstaster til WordPress
Slettet





Computerworld

Teaser billede

Nye iOS-opdateringer tvangslukker din iPhone hvis du har repareret telefonen uden om Apple

Apple gør din telefon ubrugelig, hvis du har brugt uautoriserede reservedele. Men bare rolig. Det er for din egen skyld, lyder forklaringen fra Apple.

CIO

Teaser billede

Her kan den danske stat lære noget: Sådan skifter Nordea it-platform til 7,5 milliarder kroner

Efter flere års tilløb er Nordea godt i gang med at udskifte hele sin it-infrastruktur. Læs her, hvordan projektet til mere end syv milliarder kroner minder om statens it-udfordringer, og hvordan...

Comon

Teaser billede

Xbox ramt af syv timer langt nedbrud: Så fik kendt musiker nok

Frustrationer over gårsdagens lange nedbrud på Xbox-netværket har fået gangsterrapperen Snoop Dogg til at gå amok over for Microsoft og selskabets stifter Bill Gates. Se videoen her.

Channelworld

Teaser billede

Storaktionær trækker sig fra kriseramte Fonas bestyrelse - se hans kryptiske begrundelse

Trods en ejerandel på 40 procent har den norske detailkæmpe Elkjøp trukket sig ud af det kriseramte Fonas bestyrelse. Dermed står Fonas ledelse alene med opgaven at finde en investor, der kan sikre...

White paper

Teaser billede

It-sikkerhed på ledelsesgangen

It-sikkerhed er blevet en naturlig del af dagsordenen for de fleste ledere, men det er ikke længere nok. Det er nødvendigt, at sikkerhedsanliggender bliver en fast del af lederens adfærd. Læs i...



Udgiver · © 2016 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger