Nedenstående makro checker om der er min. 7 sammenhængende celler i de enkelte rækker. Der bliver skrevet "7 i Række" i kolonne C eller kolonne NE hvis 7 sammenhængende celler findes. Husk at slette 2 linjer i makroen, så data kun bliver skrevet ind i den ønskede kolonne (C eller NE) Den registrerer ikke hvor mange sammenhængende celler der er, hvis der er flere end 7
Sub Raekke() Dim LastRow, x, y As Integer Application.Calculation = xlCalculationManual LastRow = ActiveSheet.UsedRange.Rows.Count Range("C3:C" & LastRow).ClearContents ' sletter gammel data i kolonne C Range("NE3:NE" & LastRow).ClearContents ' sletter gammel data i kolonne NE For x = 3 To LastRow For y = 4 To 362 If WorksheetFunction.CountIf(Range(Cells(x, y), Cells(x, y + 6)), ">0") = 7 Then Cells(x, 3) = "7 i række" ' skriver tallet ind i kolonne C Cells(x, 369) = "7 i række" ' skriver tallet ind i kolonne NE End If Next Next Application.Calculation = xlCalculationAutomatic 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.