Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Regels doorkopiëren

  1. #1
    Junior Member
    Geregistreerd
    8 november 2017
    Vraag is opgelost

    Regels doorkopiëren

    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?
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Mag het ook met een paar simpele formules?
    Bijgevoegde bestanden Bijgevoegde bestanden
    -- een voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Junior Member
    Geregistreerd
    8 november 2017
    Quote Origineel gepost door AlexCEL Bekijk Bericht
    Mag het ook met een paar simpele formules?
    Nee zou dit graag zien in een macro.
    Maar wel bedankt.

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Normaal zou dit moeten werken maar blijkbaar zijn de cellen niet echt leeg.

    Code:
    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.
    Code:
    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
    Laatst aangepast door VenA : 12 juli 2019 om 13:49
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Junior Member
    Geregistreerd
    8 november 2017
    Quote Origineel gepost door VenA Bekijk Bericht
    Normaal zou dit moeten werken maar blijkbaar zijn de cellen niet echt leeg.

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

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Da's mooi. Maar je had ook gewoon op de knop Reageer op bericht kunnen klikken ipv op de bijna onvindbare quote knop.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren