Avatar billede 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.
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede 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
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat