I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Public Sub Slet2_af_3() Dim I 'Marker den sidste celle i den kolonne der skal slettes ' så sletter den de 2 nederste og lader den 3. nederste stå Application.ScreenUpdating = False For I = Selection.Rows To 1 Step -3 Rows(I & ":" & I - 1).Delete Shift:=xlUp Next End Sub
Husk at teste på en kopi først, makroer kan ikke fortrydes
den manglede lige en linie, den aktiverer skærmen igen
Public Sub Slet2_af_3() Dim I 'Marker den sidste celle i den kolonne der skal slettes ' så sletter den de 2 nederste og lader den 3. nederste stå Application.ScreenUpdating = False For I = Selection.Rows To 1 Step -3 Rows(I & ":" & I - 1).Delete Shift:=xlUp Application.ScreenUpdating = True Next End Sub
Hvad er din sidste række, så sæt den ind i koden i sted for Selection.Rows
Public Sub Slet2_af_3() Dim I 'Marker den sidste celle i den kolonne der skal slettes ' så sletter den de 2 nederste og lader den 3. nederste stå Application.ScreenUpdating = False For I = Selection.Rows To 1 Step -3 Rows(I & ":" & I - 1).Delete Shift:=xlUp Application.ScreenUpdating = True 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.
