Avatar billede Butterfly Ekspert
19. november 2019 - 07:07 Der er 1 kommentar

Kopier data fra alle ark til Ark1

Godmorgen
Jeg danner et regneark med 9 -12 faner (Sheet1-Sheet12). Derefter opretter jeg Ark1, hvor jeg kopier alle rækker fra alle faner til Ark1. Det starter i linje 11, variabelt antal linjer på alle faner.
Hvordan kan jeg kopier kun én linje?
Lige nu bruger jeg denne
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
men den melder fejl, når der kun er en linje med tekst
Hvordan kan jeg fra starten fortælle hvor mange faner der er?
Avatar billede Jan Hansen Ekspert
19. november 2019 - 07:23 #1
tænker:

dim FirstRow as long,LastRow as long
dim MyRows as range

FirstRow=11
set MyRows=Rows("1000:1000").End(xlUp)
LastRow=MyRow.Row
set Myrow=Rows(FirstRow &":"& LastRow)
MyRow.Copy

ej testet
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

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