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

197

Ää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. Mitä siellä ABC on tapahtunut

      Tavallista isompi operaatio näkyy olevan kyseessä.
      Alajärvi
      164
      6598

    2. Kuvaile elämäsi naista

      Millainen hän on? Mikä tekee hänestä sinulle erityisen?
      Ikävä
      54
      1965

    3. Klaukkalan onnettomuus 4.4

      Klaukkalassa oli tänään se kolmen nuoren naisen onnettomuus, onko kellään mitään tietoa mitä kävi tai ketä onnettomuudes
      Nurmijärvi
      44
      1772

    4. Kuvaile elämäsi miestä

      Millainen hän on? Mikä tekee hänestä sinulle erityisen?
      Ikävä
      54
      1152

    5. Ukraina ja Zelenskyn ylläpitämä sota tuhoaa Euroopan, ei Venäjä

      Mutta tätä ei YLE eikä Helsingin Sanomat kerto.
      Maailman menoa
      346
      1130

    6. Kolari Klaukkala

      Kaksi teinityttö kuoli. Vastaantulijoille ei käynyt mitenkään. Mikä auto ja malli telineillä oli entä se toinen auto? Se
      Nurmijärvi
      51
      1085

    7. Ooo! Kaija Koo saa kesämökille öky-rempan:jättimäinen terde, poreallas... Katso ennen-jälkeen kuvat!

      Wow, nyt on Kaija Koon mökkipihalla kyllä iso muutos! Miltä näyttää, haluaisitko omalle mökillesi vaikkapa samanlaisen l
      Kesämökki
      13
      1010

    8. Olisinpa jo siellä, otatkohan minut vastaan

      Olisitpa lähelläni ja antaisit minun maalata sinulle kuvaa siitä kaikesta ikävästä, tuskasta, epävarmuudesta ja mieleni
      Ikävä
      79
      930

    9. Kevyt on olo

      Tiedättekö, että olo kevenee kummasti, kun päästää turhista asioista tai ihmisistä irti! Tämä on hyvä näin <3
      Ikävä
      84
      918

    10. Toivoisin, että lähentyisit kanssani

      Tänään koin, että välillämme oli enemmän. Kummatkin katsoivat pidempään kuin tavallisesti toista silmiin. En tiedä mistä
      Ikävä
      14
      907
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt