Søg
Avatar billede mrkr Juniormester
14. september 2008 - 13:10 Der er 3 kommentarer og
1 løsning

hente data fra andet ark (fortsat)

Jeg har fået hjælp til en kode i dette spørgsmål http://www.eksperten.dk/spm/844875

Koden henter data fra et ark udfra hvad jeg har skrevet i A1

Nu kunne jeg virkelig godt bruge at jeg kan trække et interval.
Intervallet bliver defineret i A1 og B1 (f.eks. 1000 og 1025)

Herefter skal den hente alle bonner fra 1000-1025 over i mit ark.
Avatar billede kabbak Professor
14. september 2008 - 13:24 #1
prøv denne, det er en omskrivning af den kode du brugte i det andet spørgsmål.

Sub Kopier()
    Dim intI As Integer
    Dim intJ As Integer

    intJ = 5
    Do Until (ThisWorkbook.Sheets("Genudskriv").Cells.Range("C" & intJ) = "")
        intJ = intJ + 2
    Loop

    For intI = 5 To 10000
        If (ThisWorkbook.Sheets("2008").Cells.Range("C" & intI) >= ThisWorkbook.Sheets("Genudskriv").Cells.Range("A1") _
            And ThisWorkbook.Sheets("2008").Cells.Range("C" & intI) <= ThisWorkbook.Sheets("Genudskriv").Cells.Range("B1")) Then
            Sheets("Genudskriv").Range("A" & intJ & ":C" & intJ) = ThisWorkbook.Sheets("2008").Cells.Range("A" & intI & ":C" & intJ)
            intJ = intJ + 2
        End If
    Next intI
End Sub
Avatar billede kabbak Professor
14. september 2008 - 13:29 #2
der var en fejl. prøv denne
Sub Kopier()
    Dim intI As Integer
    Dim intJ As Integer

    intJ = 5
    Do Until (ThisWorkbook.Sheets("Genudskriv").Cells.Range("C" & intJ) = "")
        intJ = intJ + 2
    Loop

    For intI = 5 To 10000
        If (ThisWorkbook.Sheets("2008").Cells.Range("C" & intI) >= ThisWorkbook.Sheets("Genudskriv").Cells.Range("A1") _
            And ThisWorkbook.Sheets("2008").Cells.Range("C" & intI) <= ThisWorkbook.Sheets("Genudskriv").Cells.Range("B1")) Then
            ThisWorkbook.Sheets("2008").Cells.Range("A" & intI & ":C" & intI).Copy ThisWorkbook.Sheets("Genudskriv").Range("A" & intJ)
            intJ = intJ + 2
        End If
    Next intI
End Sub
Avatar billede mrkr Juniormester
14. september 2008 - 13:47 #3
lige i øjet.....
Mange tak for hjælpen.

Har du et svar, så har jeg points
Avatar billede kabbak Professor
14. september 2008 - 13:47 #4
et svar ;-))
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
I går 14:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
15/0513:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
15/0511:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
White papers
Flere white papers »