Søg
Avatar billede Ditte_L Nybegynder
23. november 2009 - 13:49 Der er 6 kommentarer

markering af et ukendt antal rækker ud fra specifik celleværdi

Hej!

Jeg forsøger at lave en VBA kode som kan kopiere et ukendt antal rækker til et andet ark. Men jeg kan ikke finde ud af hvordan jeg markerer flere rækker på baggrund af værdien i kolonne A

Jeg vil altså gerne markere alle de rækker hvor celleværdien i kolonne Aer 1. Der vil være et variabelt antal celler med værdien 1, men de vil altid være samlet efter hinanden.

Jeg tænker at det skal være noget med at koden først finder det range i kolonne A med vædien 1 og derefter udvide markeringen til at gælde rækkerne.

Er der nogen der kan hjælpe mig?
Avatar billede excelent Ekspert
23. november 2009 - 16:45 #1
Kopierer til Arket til højre for det aktive i A2....

Sub xCopy()
rk = Cells(5000, 1).End(xlUp).Row
If Range("A1") = "" Then Range("A1") = "temp"
Range("A1:A" & rk).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("A2:IV" & rk).SpecialCells(xlCellTypeVisible).Select
Selection.Copy Sheets(ActiveSheet.Index + 1).Range("A2")
Range("A1").AutoFilter
Range("A1").Select
End Sub
Avatar billede Ditte_L Nybegynder
24. november 2009 - 08:50 #2
Hej

Tak for svaret.

Jeg er forholdsvis ny i det her VBA, så jeg tænkte om du evt. kan forklare lidt nærmere hvad det er de forskellige kommandoer i koden gør?

Derudover vil jeg gerne, istedet for at kopiere til arket ved siden af, kopiere rækkerne til et bestemt ark der hedder "PrintOutput", og indsætte det kopierede under den række hvor celleværdien er "Gruppe 1". Placeringen af denne vil variere.
Avatar billede excelent Ekspert
24. november 2009 - 18:11 #3
Prøv

Sub xCopy()
rk = Cells(10000, 1).End(xlUp).Row
If Range("A1") = "" Then Range("A1") = "temp"
rk2 = Sheets("PrintOutput").Range("A1:A10000").Find("Gruppe 1", LookIn:=xlValues).Row
Range("A1:A" & rk).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("A2:IV" & rk).SpecialCells(xlCellTypeVisible).Select
Selection.Copy Sheets("PrintOutput").Range("A" & rk2 + 1)
Range("A1").AutoFilter
Range("A1").Select
End Sub
Avatar billede Ditte_L Nybegynder
25. november 2009 - 09:44 #4
Den melder runtime error 1004 på følgende linie

Range("A2:IV" & rk).SpecialCells(xlCellTypeVisible).Select

Kan du evt. forklare lidt nærmere hvad de forskellige linier i koden gør?
Avatar billede excelent Ekspert
25. november 2009 - 19:47 #5
Du skal stå i det ark hvor data er når du kører makro,- ikke i PrintOutput
Avatar billede excelent Ekspert
25. november 2009 - 19:58 #6
Check lige inden du prøver igen, om der er filter i arket PrintOutput, for så skal det først fjernes via Data/Filter/Autofilter
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
07/0514:15 PHP Html Af Asky i Programmeringsværktøjer
07/0511:06 Rufus mange muligheder - valg ved install Windows Af Uvanga i Windows
06/0516:53 HTML Af Asky i Programmeringsværktøjer
06/0510:01 Mister internettet efter slumre, Af valby i Windows
05/0513:02 Lille smart tingest Af nu_igen i Fitness & Smartwatches
White papers
Flere white papers »