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

229

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

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

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      130
      7162
    2. Kaipaisin nyt kosketusta

      jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.
      Ikävä
      14
      2519
    3. Imaami kysyy, miksi pojat uivat ilman valvontaa

      Kalajoen särkät ovat usean kilometrin pituiset. Siellä on kylttejä, joissa varoitetaan rannan vaaroista. Siellä ei ole
      Maailman menoa
      263
      1204
    4. Sokea "ystävälle"

      Oletko oikeasti noin sokea?
      Ikävä
      100
      1009
    5. Mansikkatiloilla hyväksikäytetään ukrainalaisia

      Työolot ovat surkeita ja palkka kelvoton. https://yle.fi/a/74-20172942
      Maailman menoa
      161
      937
    6. En ymmärrä käytöstäsi

      Se on ollut eräänlaista hyväksikäyttöä. Että seura kyllä kelpaa palstan välityksellä silloin kun ei ole parempaakaan tek
      Ikävä
      137
      890
    7. Kerrostaloihin ilmalämpöpumput

      Ulkomailla näkee paljon ilmalämpöpumppuja kerrostalojen ulkoseinissä. Mikä estää taloyhtiötä hankkimasta niitä asuntoih
      Sinkut
      69
      879
    8. Kiitoksia kaikille epäasiallisesta sisällöstä liputtaneille

      Se ylimielisyys ja epäasiallisen julkaisun jakaminen ei sitten kantanut.
      Tuusniemi
      79
      764
    9. Kirkonkylän puliveivarit

      Hieman pistää silmään nuo puliukot ja akat kirkonkylän penkeillä ja S-marketin kulmilla. Tarttis varmaan tehdä asialle j
      Karstula
      13
      723
    10. Persaukinen puolankalainen kävi kerjäämässä paitaa

      Ja lippistä. Nauratti suuresti kun katsoin. Kukahan mahtanee olla? Voipi katsoa täältä jutun. https://www.youtube.com
      Puolanka
      18
      711
    Aihe