Avatar billede palito Nybegynder
05. januar 2012 - 11:16 Der er 1 kommentar

Hente data og indsætte EXCEL 2007

Hvordan henter jeg alle rækker, hvori der er data i et regneark og smider al data over i et andet regneark (evt. opretter nye rækker til disse data)? Jeg går ud fra, at man ligesom i PHP kan bruge arrays og en foreach()-lignende funktion
Avatar billede H_Klein Novice
10. januar 2012 - 21:51 #1
Hej Palito,

Herunder et forslag til en enkelt løsning.

Sub Flyt_rækker()

    Dim RK As Long
   
    Workbooks.Open ("C:\Users\Henrik Klein\Documents\VBA\Map1")
    Sheets("Ark1").Select
   
    RK = 1
    Do
    Cells(RK, 1).Select
    Selection.Copy
    Windows("Map2").Activate
    Cells(1, 1).Select
    If Cells(1, 1) = "" Then
    ActiveSheet.Paste
    Else
    If ActiveCell.Offset(1, 0) = "" Then
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Else
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    End If
    End If
    Windows("Map1").Activate
    RK = RK + 1
    Loop Until Cells(RK, 1) = ""
    Application.CutCopyMode = False
End Sub
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester