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

Kibs
Kibs (4.305 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 (10.385 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

Find og marker mindste tal med en farve i hver række

Oprettet den 24. marts 2015 kl. 13.06
malldiverne giver 60 point for svar | Giv et svar »

Anvend kun komma i textbox - Betingelse

Oprettet den 19. marts 2015 kl. 11.55
malldiverne giver 100 point for svar | Giv et svar »

væftet PDF fil til mail, hvor stien ligger i en celle...

Oprettet den 25. februar 2015 kl. 20.06
malldiverne giver 100 point for svar | Giv et svar »






Computerworld

Teaser billede

Vi skiftede ét stykke hardware - nu flyver fire år gammel computer som var den ny

Med tiden vil din computer føles, som var den fra det forrige århundrede. Men ved at skifte et bestemt stykke hardware, kan du sparke liv i den igen. Vi gjorde det med en Macbook Pro, og den føles...

CIO

Teaser billede

Odense Kommune kunne ikke købe sig til it-løsning: Valgte i stedet at udvikle den selv

Der var ingen løsninger på markedet, og derfor valgte Odense Kommune at udvikle sin egen software-løsning. Her fortæller kommunen om erfaringerne med selv at udvikle software.

Comon

Teaser billede

Skype-brugere raser: Hvorfor sniger Microsoft Bing og MSN med i installationen?

Når man installerer Skype, skal man være på dupperne, hvis man ikke ved samme lejlighed vil have Bing og MSN installeret. Det er langt fra alle Skype-brugere tilfredse med.

Channelworld

Teaser billede

It-direktør tæller på knapperne: Skal jeg trække millionoverskud ud af mit firma?

Dansk hardware-forhandler har i de seneste 10 år tjent gode penge på salg af hardware. "Der er mange i branchen, der ikke synes, det er spor fancy at sælge en boks. Men der skal jo være en,...

White paper

Teaser billede

Sådan får du lynhurtige web- og mobil-apps

Byg et netværk der kan håndtere din virksomheds komplekse økosystem af forskellige typer af apps og skab den bedst mulige brugeroplevelse.



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