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

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: lege regel invoegen na nieuw tekst

  1. #1
    Mega Senior vrouw's avatar
    Geregistreerd
    27 maart 2010
    Vraag is opgelost

    lege regel invoegen na nieuw tekst

    Hallo,

    Is het en zo ja hoe kan ik dat dan doen, om in een lijst zoals in het voorbeeld steeds een nieuwe lege regel in te voegen als er een andere tekst staat dan de regel erboven in kolom D?

    Dus na de 2e regel met kantoor 1 een lege regel etc.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Dat wordt zoiets mits er toch iets staat in de 1e rij en de 1e kolom, anders moet er eventueel iets aangepast worden voor die Usedrange
    Code:
    Sub InvoegenRij()
       For Each c In ActiveSheet.UsedRange.Columns("D").Offset(1).Cells 'alle gebruikte D-cellen, behalve 1e rij
          If Len(c) > 0 And Len(c.Offset(1).Value) > 0 And c.Value <> c.Offset(1).Value Then 'de rij en die eronder niet leeg, maar inhoud verschillend
             c.Offset(1).EntireRow.Insert 'lege rij in de rij er onder invoegen
          End If
       Next
    End Sub

  3. #3
    Mega Senior vrouw's avatar
    Geregistreerd
    27 maart 2010
    Super bedank, Ben er heel blij mee.

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