17. august 2004 - 11:46Der er
6 kommentarer og 2 løsninger
makro slet linier
Jeg har nedenstående makro og vil nu at det også skal virke på linierne 241 til 256:
Sub SkjulRækker() Dim vStartRow As Long, vEndRow As Long Dim vCounter As Long vStartRow = 197 'Her sætter du værdien på startrækken vEndRow = 215 'Her sætter du værdien på slutrækken
For vCounter = vStartRow To vEndRow If Cells(vCounter, 4).Value = "" Then '4 angiver fjerde kolonne (D) 'slet indhold af A. Cells(vCounter, 1).Value = "" '1 angiver kolonne 1 (A) End If Next
Range("A12:A256").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub
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.
Du kan f.eks. gøre rækkenumrene til en del af procedurekaldet:
Sub SkjulRækker(vStartRow As Long, vEndRow As Long) Dim vCounter As Long
For vCounter = vStartRow To vEndRow If Cells(vCounter, 4).Value = "" Then '4 angiver fjerde kolonne (D) 'slet indhold af A. Cells(vCounter, 1).Value = "" '1 angiver kolonne 1 (A) End If Next
Range("A12:A256").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub
oG så kalder du funktione to gange fra en anden sub:
Sub SkjulRækker2() SkjulRækker(197, 215) SkjulRækker(241, 256) EndSub
Med alle foreslåede ændringer kan dine funktioner mere logisk ændres til
Sub SletIndholdiA(StartRow As Long, EndRow As Long) Dim vCounter As Long For vCounter = StartRow To EndRow If Cells(vCounter, 4).Value = "" Then '4 angiver fjerde kolonne (D) 'slet indhold af A. Cells(vCounter, 1).Value = "" '1 angiver kolonne 1 (A) End If Next End Sub
Ups. Der havde selvfølgelig indsneget sig et par fejl. Brug nedenstående i stedet.
Sub SletIndholdiA(StartRow As Long, EndRow As Long) Dim vCounter As Long
For vCounter = StartRow To EndRow If Cells(vCounter, 4).Value = "" Then '4 angiver fjerde kolonne (D) 'slet indhold af A. Cells(vCounter, 1).Value = "" '1 angiver kolonne 1 (A) End If Next
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.
