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.
Her er lidt kode, der tæller antallet af celler, der ikke er tomme i a-kolonnen:
Sub IkkeTomme() Worksheets("ark1").Range("a:a").Name = "Minyrange" antal = Application.CountA(Worksheets("ark1").Range("myrange")) Debug.Print antal End Sub
Et par andre ideer: Denne giver antallet indtil første tomme celle Antal = Range("A1").End(xlDown).Row
Denne giver antallet (rækkenummeret) på nederste udfyldte celle i kolonnen, dvs at der tillades tomme celle ind imellem data Antal= Range("A65536").End(xlUp).Row
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.