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

227

    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. Ikävä sinua

      Onkohan sulla ollut sama tunne kuin mulla viimeisten parin päivän aikana, eilen varsinkin. Ollaan oltu ihan lähellä ja k
      Ikävä
      27
      3643
    2. Oletko sä oikeesti varattu?

      Että sen takii ei voida olla tekemisissä?
      Ikävä
      41
      2479
    3. Otavassa tapahtuu!

      Rakennuspalo, yläkerta tulessa. Henkirikosta epäillään. Tiettyä henkilöautoa etsitään, minkä mahdollinen epäilty ottanut
      Mikkeli
      37
      2333
    4. Tulemmeko hyvin

      Toimeen ja juttuun keskenämme? Luulen, että sopisit hyvin siihen ☀️ympäristöön, paljon kaikkea erilaista.♥️mietin tätä s
      Ikävä
      7
      2097
    5. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      43
      1582
    6. Rakas, kerro mulle

      Miltä se tuntuu?
      Ikävä
      38
      1569
    7. Horoskooppikysely

      Oma ja ikävän kohteen horoskooppi? Sopivatko yhteen?
      Ikävä
      14
      1412
    8. Oletko ollut vihainen, suuttunut tai pettynyt

      johonkin kaivattusi toimintaan?
      Ikävä
      129
      1329
    9. Pitkäaikaiset työttömät työllisyystöillä takaisin yhteiskuntaan

      Vaikka se vähän maksaakin, niin parempi on valtion teettää hanttihommia, jottei yksilöistä tule yhteiskuntakelvottomia.
      Maailman menoa
      275
      1310
    10. Kesäseuraa

      Kesäseuraa mukavasta ja kauniista naisesta. Viesti tänään mulle muualla asiasta jos kiinnostaa Ne ketä tahansa huoli, t
      Ikävä
      45
      1285
    Aihe