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