Regels doorkopiëren

[TheBri]

Beste,

Van de IT afdeling krijg ik een sheet waar heel veel lege regels instaan. Dit kan helaas niet anders.
Alle lege regels moeten aangevuld worden met de vorige regel als het gaat om de cel informatie, zie gele regels voorbeeld.
Zelf heb ik nu een macro geschreven die werkt maar erg traag is, deze macro loopt feitelijk door 1538*5 regels.
is hier een snellere oplossing voor?

 

[AlexCEL]

Mag het ook met een paar simpele formules?

 

[TheBri]

Mag het ook met een paar simpele formules?

Nee zou dit graag zien in een macro.
Maar wel bedankt.

 

[VenA]

Normaal zou dit moeten werken maar blijkbaar zijn de cellen niet echt leeg.

Sub VenA()
  With Range("D8:M" & Cells(Rows.Count, 13).End(xlUp).Row)
    .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

Dan maar zo.

Sub VenA1()
  c = Split("1 7 8 9 10")
  With Range("D8:M" & Cells(Rows.Count, 13).End(xlUp).Row)
    ar = .Value
    For j = 0 To UBound(c)
      For jj = 2 To UBound(ar)
        If ar(jj, c(j)) = "" Then ar(jj, c(j)) = ar(jj - 1, c(j))
      Next jj
    Next j
    .Value = ar
  End With
End Sub

 

[TheBri]

Normaal zou dit moeten werken maar blijkbaar zijn de cellen niet echt leeg.

Sub VenA()
  With Range("D8:M" & Cells(Rows.Count, 13).End(xlUp).Row)
    .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

Dan maar zo.

Sub VenA1()
  c = Split("1 7 8 9 10")
  With Range("D8:M" & Cells(Rows.Count, 13).End(xlUp).Row)
    ar = .Value
    For j = 0 To UBound(c)
      For jj = 2 To UBound(ar)
        If ar(jj, c(j)) = "" Then ar(jj, c(j)) = ar(jj - 1, c(j))
      Next jj
    Next j
    .Value = ar
  End With
End Sub

top werkt perfect

 

[VenA]

Da's mooi. Maar je had ook gewoon op de knop Reageer op bericht kunnen klikken ipv op de bijna onvindbare quote knop.