Rivin lisääminen kun päiväys vaihtuu

tietoa_haluava

Olisi hakusessa makro joka lisäisi rivin aina kun päiväys vaihtuu, Taulukossa on on reilu tuhat riviä, joissa tietoa samalla päivällä voi olla yhdestä kymmeneen riviä. Haluaisin makron joka lisäisi rivin aina kun päiväys vaihtuu.

6

169

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Tsekkaapäiväykset()
      Dim vika As Long
      vika = Range("A65536").End(xlUp).Row
      For i = vika To 2 Step -1
      '¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
      If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
      Cells(i, 1).Insert
      End If
      Next i
      End Sub

      Keep EXCELing
      @Kunde

      • tietoa_haluava

        Mitä pitäisi muuttaa, että lisäisi koko rivin, kun nyt siirtää sarakkeeen soluja alaspäin

      • enoosaavba
      • enosaavba
      • kunde

        Juuri noin, kuten enosaavba kirjoittaa...

        Sub Tsekkaapäiväykset()
        Dim vika As Long
        vika = Range("A65536").End(xlUp).Row
        For i = vika To 2 Step -1
        '¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
        If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
        Cells(i, 1).EntireRow.Insert
        'Cells(i, 1).Insert
        End If
        Next i
        End Sub

        Keep EXCELing
        @Kunde

    • tietoa_haluava

      Kiitos!
      Hienosti toimii

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Nurmossa kuoli 2 Lasta..

      Autokolarissa. Näin kertovat iltapäivälehdet juuri nyt. 22.11. Ja aina ennen Joulua näitä tulee. . .
      Seinäjoki
      144
      8229

    2. Joel Harkimo seuraa Martina Aitolehden jalanjälkiä!

      Oho, aikamoinen yllätys, että Joel Jolle Harkimo on lähtenyt Iholla-ohjelmaan. Tässähän hän seuraa mm. Martina Aitolehde
      Suomalaiset julkkikset
      44
      2224

    3. Kaksi lasta kuoli kolarissa Seinäjoella. Tutkitaan rikoksena

      Henkilöautossa matkustaneet kaksi lasta ovat kuolleet kolarissa Seinäjoella. Kolmas lapsi on vakasti loukkaantunut ja
      Maailman menoa
      26
      2102

    4. Miten meinasit

      Suhtautua minuun kun taas kohdataan?
      Ikävä
      95
      1718

    5. Miksi pankkitunnuksilla kaikkialle

      Miksi rahaliikenteen palveluiden tunnukset vaaditaan miltei kaikkeen yleiseen asiointiin Suomessa? Kenen etu on se, että
      Maailman menoa
      181
      1657

    6. Et olisi piilossa enää

      Vaan tulisit esiin.
      Ikävä
      32
      1327

    7. Tunnekylmä olet

      En ole tyytyväinen käytökseesi et osannut kommunikoida. Se on huono piirre ihmisessä että ei osaa katua aiheuttamaansa p
      Ikävä
      108
      1083

    8. Taisit sä sit kuiteski

      Vihjata hieman ettei se kaikki ollutkaan totta ❤️ mutta silti sanoit kyllä vielä uudelleen sen myöhemmin 😔 ei tässä oik
      Ikävä
      5
      1009

    9. Oletko miten

      Valmis läheisyyteen?
      Ikävä
      53
      995

    10. Odotathan nainen jälleenkohtaamistamme

      Tiedät tunteeni, ne eivät sammu johtuen ihanuudestasi. Haluan tuntea ihanan kehosi kosketuksen ja sen aikaansaamaan väri
      Ikävä
      28
      860
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt