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

162

Ää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. Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."

      Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww
      Suomalaiset julkkikset
      68
      5623

    2. Henkirikos Alakylässä

      Nainen löydetty elottomana, mies otettu kiinni. Mitä on tapahtunut?
      Seinäjoki
      61
      3764

    3. Suodatinpussin kastelemalla saa parempaa kahvia

      Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap
      Maailman menoa
      153
      2755

    4. Tidätkö nainen

      että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o
      Ikävä
      105
      2196

    5. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      109
      2045

    6. Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"

      Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-
      Suomalaiset julkkikset
      21
      1329

    7. Onkohan sinulla kaikki hyvin?

      Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...
      Ikävä
      38
      1297

    8. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      96
      1278

    9. Huikeeta, mahtavaa, ihan mielettömän upeeta

      Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M
      Kotimaiset julkkisjuorut
      195
      1232

    10. Viimeinen reissu tälle kesälle

      Pian se syksy on. Hyvää huomenta ja aurinkoista päivää. ☕🌞🍁🌻🐺❤️
      Ikävä
      173
      1146
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt