Avatar billede hgj Praktikant
29. maj 2007 - 21:49 Der er 9 kommentarer og
1 løsning

Formel der skal flytte en række til et andet ark

Lidt kompleks sag, jeg har nedenstående regneark(570 linjer i mit eget), hvor det er meningen jeg vil have en formel som kan flytte en hel række til et andet ark, hvis f.eks. F-kolonnen opfylder kriteriet "x". Som markeret. Skal gælde både F, G, H. Hvordan kan den drejes.

  A      B      C        E        F    G    H
1 Nr.      Emner      Karakter  Pain    FJ      ET  MB
2 6      x-firma    3      Invest  x   
3 4      x-firma    4      Obl.lån            x
Avatar billede hgj Praktikant
29. maj 2007 - 21:50 #1
A      B      C        E        F    G    H
1 Nr.      Emner      Karakter  Pain    FJ      ET  MB
2 6      x-firma    3      Invest  x   
3 4      x-firma    4      Obl.lån            x
Avatar billede hgj Praktikant
29. maj 2007 - 21:51 #2
Det er da ikke til at lave det ordentligt, håber det oprindelige spm. er til at forstå
Avatar billede excelent Ekspert
29. maj 2007 - 22:08 #3
denne henter værdi i Ark1!A2 hvis F2,G2 eller H2 = x

=HVIS(TÆL.HVIS(Ark1!F2:H2;"=x")<>0;Ark1!A2;"")

noget i den stil du mener ?
Avatar billede hgj Praktikant
30. maj 2007 - 11:08 #4
Ja og nej. Tællefunktionen er rigtig nok, men jeg skal have formlen til at flytte hele rækken der hvor x er sat i FJ til Ark2. Der hvor x er i MB skal rækken flyttes til Ark4. Ikke kun celle A2
Avatar billede excelent Ekspert
30. maj 2007 - 15:04 #5
i ark2 I2:L2 eller hvor du nu vil have værdierne

I2=HVIS(TÆL.HVIS(Ark1!E2;"=x")<>0;Ark1!A2;"")
J2=HVIS(TÆL.HVIS(Ark1!E2;"=x")<>0;Ark1!B2;"")
K2=HVIS(TÆL.HVIS(Ark1!E2;"=x")<>0;Ark1!C2;"")
L2=HVIS(TÆL.HVIS(Ark1!E2;"=x")<>0;Ark1!D2;"")

I ark4

I2=HVIS(TÆL.HVIS(Ark1!G2;"=x")<>0;Ark1!A2;"")
J2=HVIS(TÆL.HVIS(Ark1!G2;"=x")<>0;Ark1!B2;"")
K2=HVIS(TÆL.HVIS(Ark1!G2;"=x")<>0;Ark1!C2;"")
L2=HVIS(TÆL.HVIS(Ark1!G2;"=x")<>0;Ark1!D2;"")

Indsæt formler og kopier ned

hvad med ET ?
Avatar billede excelent Ekspert
30. maj 2007 - 17:25 #6
Denne makro kopierer celle A?:D? til øvrige ark
hvis x i kolonne E kopieres til Ark2
hvis x i kolonne F kopieres til Ark3
hvis x i kolonne G kopieres til Ark4


Sub CopyRække()
Sheets("Ark1").Activate
rk = Cells(65500, 1).End(xlUp).Row
For t = 2 To rk
rk2 = Sheets("Ark2").Cells(65500, 1).End(xlUp).Row + 1
rk3 = Sheets("Ark3").Cells(65500, 1).End(xlUp).Row + 1
rk4 = Sheets("Ark4").Cells(65500, 1).End(xlUp).Row + 1
If Cells(t, "E") = "x" Then Range("A" & t & ":D" & t).Copy Sheets("Ark2").Cells(rk2, 1)
If Cells(t, "F") = "x" Then Range("A" & t & ":D" & t).Copy Sheets("Ark3").Cells(rk2, 1)
If Cells(t, "G") = "x" Then Range("A" & t & ":D" & t).Copy Sheets("Ark4").Cells(rk2, 1)
Next
End Sub
Avatar billede excelent Ekspert
02. juni 2007 - 09:26 #7
hvordan går det ?
Avatar billede hgj Praktikant
04. juni 2007 - 17:54 #8
Det skal alligevel ikke bruges, så tak for ulejligheden. Vil du have nogle points?
Avatar billede excelent Ekspert
04. juni 2007 - 18:38 #9
ja nu har jeg jo brugt tid på det
men vi kan evt. dele
Avatar billede excelent Ekspert
04. juni 2007 - 18:39 #10
ups 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
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