Avatar billede MC3390 Juniormester
13. juni 2013 - 15:36 Der er 2 kommentarer og
1 løsning

Fjerne linier, når der ikke er tastet noget i en bestemt celle i ræken

Jeg har et regneark med flere ark, hvor der står værdier i.

I kolonne "D" er der tastet en værdi i nogle af cellerene på de forskellige ark.

Jeg har behov for at samle hvad der står i rækkerne fra de forskellige ark til et nyt ark, hvis der er skrevet noget i kolonne "D", så alle linjer der bliver med data fra der forskellige kolonner A,B,C, ovs. bliver samlet på et nyt ark.

Hilsen Michael
Avatar billede jens48 Ekspert
14. juni 2013 - 12:26 #1
Prøv med denne makro:

Sub MoveRow()
Dim LastRow As Long
Dim y As Long
Dim z As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
z = 1
For y = 1 To LastRow
If Cells(y, 4) <> "" Then
Cells(y, 4).EntireRow.Copy
Sheets("Sheet2").Select
Cells(z, 1).EntireRow.PasteSpecial
Application.CutCopyMode = False
z = z + 1
Cells(1, 1).Select
Sheets("Sheet1").Select
End If
Next
Cells(1, 1).Select
End Sub
Avatar billede MC3390 Juniormester
17. juni 2013 - 22:07 #2
Hej Jens

Jeg kan ikke få den til at virke, men jeg kan måske også klare mig med mindre.

Hvis jeg har et ark og der i en celle(F.eks kolonne "D") er en værdi, kan man så via VB slette de linjer der ikke er skrevet i kolonne "D", så de forsvinder på aktive ark, så det kun er de linjer med indhold i kolonne "D" der står tilbge.

Mvh. Michael
Avatar billede MC3390 Juniormester
02. august 2013 - 22:56 #3
-
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