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.
Public Sub SletOverToTal() Dim Til As Long, Kol As Integer, I As Long, A As Variant Kol = ActiveCell.Column Til = Cells(65536, Kol).End(xlUp).Row For I = Til To 2 Step -1 A = Split(Cells(I, Kol), " ") If Val(A(0)) >= 100 Then Cells(I, Kol).EntireRow.Delete Next End Sub
Stil dig på en celle i den kolonne som den skal virke på inden du kører den.
koden er sat ind i en sammenhæng hvor der bliver hentet et dokument inden. koden fejler ved If Val(A(0)) >= 100 Then. dog udføre den handlingen korrekt. du får de point, hvis jeg får det til at virke 100 %
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.
