Sub FindTomRække() Dim LastRow, x As Long LastRow = ActiveSheet.UsedRange.Rows.Count For x = 1 To LastRow If WorksheetFunction.CountA(Range(Cells(x, 1), Cells(x, 11))) = 0 Then GoTo A: End If Next A: Cells(x, 1).Select End Sub
Sub FindTomRække() Dim LastRow, x As Long LastRow = ActiveSheet.UsedRange.Rows.Count 'find sidste række For x = 1 To LastRow ' test hver enkelt række If WorksheetFunction.CountA(Range(Cells(x, 1), Cells(x, 11))) = 0 Then ' i rækken tæl fyldte celler i kolonne A til K GoTo A: ' Hvis = 0, så gå til A: End If Next A: Cells(x, 1).Select ' vælg celle Ax 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.