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

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

Det er da ikke til at lave det ordentligt, håber det oprindelige spm. er til at forstå

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 ?

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

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 ?

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

hvordan går det ?

Det skal alligevel ikke bruges, så tak for ulejligheden. Vil du have nogle points?

ja nu har jeg jo brugt tid på det
men vi kan evt. dele

ups et svar