23. juni 2013 - 12:30Der er
5 kommentarer og 1 løsning
VBA sletter ikke linjer i version 2002
Jeg kan få denne vba kode til at virke i Excel 2013, Da det er flere der skal bruge koden har jeg behov for at den virker min fra 2002.
Som det er nu, ser den efter om der står noget i kolonne C. Det gør den umiddelbart og flytter hele linjer så de kommer til at stå i rækkerne A1, A2 osv. hvis der står noget i kolonne C, men den sletter ikke de ubrugte linjer.
Sub Forsyningsgenstande() Forsyningsgenstande (1) Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, "C").End(xlUp).Row To 1 Step -1 If Cells(i, "C").Value = "" Then Cells(i, "C").EntireRow.Delete Next End Sub
Manuelle og semi-automatiske strategier for identitetsstyring virker - lige indtil nogen beder om dokumentation. For at undgå denne fare har DKTV taget kontrol over sin identitets- og adgangsstrategi.
Jeg erfarede, at efter sletningen er der et antal rækker, der medtages, hvis man søger til slutningen med Ctrl + End. Men gennem fil (ActiveWorkbook.Save) så inkluderes disse rækker ikke mere.
Hvis du bruger denne makro bliver der testet på samtlige kolonner:
Sub Forsyningsgenstande() 'Forsyningsgenstande (1) Dim i As Long Application.ScreenUpdating = False LastRow = ActiveSheet.UsedRange.Rows.Count For i = LastRow To 1 Step -1 If Cells(i, "C").Value = "" Then Cells(i, "C").EntireRow.Delete Next End Sub
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.
