13. juni 2013 - 15:36Der 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.
Med OS2ai forsøger Aarhus Kommune og OS2-fællesskabet at give offentlige medarbejdere adgang til generativ AI uden at gøre kommunerne mere afhængige af amerikanske techgiganter.
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
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.
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.