Avatar billede ransborg Juniormester
11. februar 2004 - 06:48 Der er 3 kommentarer og
1 løsning

Markering af alle række, hvor celle værdi er 1

Hej Alle,

Jeg har hurtigt brug for jeres hjælp.

Jeg har et kæææææmpe regneark, hvor jeg skal have noget kopieret over i et nyt ark.

Følgende skal gøres:

Jeg har i kolonne AJ stående henholdsvis 1 eller 0, når en betingelse er opfyldt. Nu vil jeg gerne have alle de rækker (incl. formler) overført til et nyt regneark, hvor værdien i kolonne AJ er 1.

Håber på et hurtigt svar

Mvh
Ransborg
Avatar billede kabbak Professor
11. februar 2004 - 08:20 #1
Prøv denne makro, ret sel navnet på det ark den skal hen på.


Public Sub MoveRows()
A = Range("AJ65536").End(xlUp).Row
Q = 1
For i = 1 To A
If Range("AJ" & i).Value = 1 Then
Sheets("Ark2").Rows(Q).Value = Rows(i).Value
Q = Q + 1
End If
Next
End Sub
Avatar billede kabbak Professor
11. februar 2004 - 23:30 #2
Så ikke lige det skulle være med formler, det er med nu.

Public Sub MoveRows()
A = Range("AJ65536").End(xlUp).Row
Q = 1
For i = 1 To A
If Range("AJ" & i).Value = 1 Then
'Sheets("Ark2").Rows(Q).Value = Rows(i).Value ' uden formler, kun værdier
Sheets("Ark2").Rows(Q).Formula = Rows(i).Formula ' med både formler og værdier
Q = Q + 1
End If
Next
End Sub
Avatar billede ransborg Juniormester
12. februar 2004 - 07:24 #3
tak skal du have, kabbak
Avatar billede kabbak Professor
09. marts 2004 - 22:30 #4
Ransborg, skal vi ikke få lukket ?
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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