CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

BentTh Juniormester

03. december 2016 - 14:43 Der er 5 kommentarer

Overfør tal til andet ark

Jeg ønsker overført mængder fra ark1 til ark2.
Mængderne står i ark1, kol. P, første i celle P11 og sidste i celle P72, hvor "slutkoden" 99999 står, og den skal ikke overføres.
Første mængde skal står i ark2, celle B8, næste i B12, næste i B16, altså i spring a` 4.
D.v.s., Kun mængder fra ark1, kol. P, hvis mængden er større end 0, skal overføres til ark2
Er det muligt?
Bent Th.

Synes godt om

ebea Ekspert

03. december 2016 - 15:47 #1

Hvis det må være en VBA løsning, er her en lille nem en. Tryk på knappen i arket, og data flyttes over.
https://www.dropbox.com/s/gxo6b5i6b9v6gou/flyt-data.xlsm?dl=0

Synes godt om

xl-Enthusiast Ekspert

03. december 2016 - 15:54 #2

Her er en formelløsning (med en hjælpekolonne) der kun overfører mængden, hvis den er større end nul.

https://www.dropbox.com/s/g1j632kpyuohz1w/Overf%C3%B8rTal.xlsx?dl=0

Synes godt om

excelent Ekspert

03. december 2016 - 16:24 #3

Sub KopierTal()

Dim rng As Range
Dim rng2 As New Collection
Dim t As Long
Set rng = Sheets("Ark1").Range("P11:P71")

For Each c In rng
If c.Value > 0 Then rng2.Add c.Value
Next

t = 8
For Each c In rng2
Sheets("Ark2").Cells(t, "B") = c
t = t + 4
Next

End Sub

Synes godt om

xl-Enthusiast Ekspert

04. december 2016 - 07:16 #4

I #2 havde jeg glemt, at data starter i P11.
Det er der taget hensyn til her.

https://www.dropbox.com/s/vvevyfz2pl00ogp/Overf%C3%B8rTal_2.xlsx?dl=0

Synes godt om

excelent Ekspert

04. december 2016 - 15:04 #5

En anden formel løsning :
Indsæt formel i celle Ark2!B8

=INDEKS('Ark1'!$P$1:$P$71;MINDSTE(HVIS('Ark1'!$P$11:$P$71>0;RÆKKE('Ark1'!$P$11:$P$71));RÆKKE(11:$250)/4-1,75))

Formlen er en matrixformel som skal afsluttes med CTRL+SHIFT+ENTER

Marker derefter cellerne B5, B6, B7 og B8
kopier så formlen ned via lille kryds i nederste højre hjørne i celle B8

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	19/04/202413:33	-
Formelhjælp Af boro23 i Excel	4	19/04/202410:54	22/04/202409:25
Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel	6	18/04/202413:47	22/04/202418:07

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS