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.
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.