Jeg har følgende makro, som automatisk udfylder celler i et ark.
Sub ErstatTomme() Dim SidstUdfyldt
SidstUdfyldt = Worksheets("Ark1").Range("B2").Value For Each c In Worksheets("Ark1").Range("B3", Range("B65536").End(xlUp)) If Not c.Value <> "" Then c.Value = SidstUdfyldt Else SidstUdfyldt = c.Value End If Next c
End Sub
Når jeg udfylder nye rækker i bunden arket (fx række 200-205), så udfyldes disse rækker dog ikke. Kun celler, der indsættes mellem allerede udfyldte rækker, udfyldes.
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.
I B200 står fx Hans, og det skal der også stå i B201-B205. I C200-C205 er der fx angivet datoer, og det er altså disse celler, som sætter grænsen for udfyldningen af B-kolonnen.
SidstUdfyldt = Worksheets("Ark1").Range("B2").Value For Each c In Worksheets("Ark1").Range("A3", Range("A65536").End(xlUp)) If Not c.offset(0,1).Value <> "" Then c.offset(0,1).Value = SidstUdfyldt Else SidstUdfyldt = c.offset(0,1).Value End If Next c
SidstUdfyldt = Worksheets("Ark1").Range("B2").Value For Each c In Worksheets("Ark1").Range("C3", Range("C65536").End(xlUp)) If Not c.offset(0,-1).Value <> "" Then c.offset(0,-1).Value = SidstUdfyldt Else SidstUdfyldt = c.offset(0,-1).Value End If Next c
Skulle det ikke være C kolonnen, der skulle tages udgangspunkt i? Altså Worksheets("Ark1").Range("C3", Range("C65536").End(xlUp)) i stedet og så skal oddset værdien trimmes lidt, men mon ikke du kan finde ud af det nu?
Det fungerer ikke. Cellerne bliver ikke udfyldt, når der ikke står noget i række 206
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
