Rivien lisääminen ja kopioiminen

En osaa

Makron pitäisi etsiä ensimmäinen tyhjä solu sarakkeesta d. Esim. ensimmäinen tyhjä solu on rivillä 18, pitäisi lisätä uusi rivi, rivin 18 alapuolelle ja kopioida rivin 18 kaavat riveille 19 ja 20, ja sama uudelleen kun ensimmäinen tyhjä solu on rivillä 19 niin, uusi rivi rivin 19 alle ja kopiot riveille 20 ja 21, jne.

Nauhoittamalla makron sain alla olevan koodin aikaiseksi, mutta kun sen pitäisi siirtyä alaspain kun riveille tulee lisää tietoa, en vaan osaa muokata koodia niin et toimisi niinkuin haluan.

Sub Makro2()
'
' Makro2 Makro
'

'
Rows("19:19").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("18:18").Select
Selection.Copy
Rows("19:19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("18:18").Select
Selection.Copy
Rows("20:20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

2

111

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Makro2()
      Dim vika As Long
      Dim Kopioi As Range
      vika = Range("D1").End(xlDown).Row 1
      Set Kopioi = Range("D" & vika)
      Kopioi.Offset(1, 0).EntireRow.Insert
      Kopioi.EntireRow.Copy Range("D" & vika).Offset(1, -3)
      Kopioi.EntireRow.Copy Range("D" & vika).Offset(2, -3)
      End Sub

      Keep EXCELing
      @Kunde

    • En osaa

      Mtien tuota koodia pitäisi muuttaa, jotta rivin lisääminen tapahtuisi automaattisesti?

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Elina Valtosella täydellinen mahalasku Ylen Ykkösaamussa. Ei hallitse alkuunkaan tonttiaan.

      Ulkoministerimme Elina Valtosen haastattelu Ylen Ykkösaamussa 25.1.2025 oli jotain niin kiusallista katsottavaa, ettei
      Maailman menoa
      365
      1763

    2. Huomaatko että

      Olen kiinnostunut seksielämästäsi. Mitä uskot sen taustalla olevan?
      Ikävä
      145
      1256

    3. Kelpaisinko vielä?

      Huolisitko minut vielä vaikka olen ollut sen toisen kanssa?
      Ikävä
      78
      903

    4. Kerro yksi positiivinen kokemus kaivatusta

      Voi tunnistaa. Jos ei ole positiivista, voi kertoa negatiivisen. Ne ehkä jää mieleen paremmin.
      Ikävä
      35
      836

    5. Olen niin pettynyt itseeni

      Että sait väärän kuvan minusta ja luulit etten ole kiinnostunut ja menit eteenpäin. Miten nyt käy jos vielä haluamme toi
      Ikävä
      39
      815

    6. Nainen, haluatko olla haluttava

      Miettinyt tässä salaisuutta sun vetovoimallesi. Kaunis? Kyllä. Kiinnostava luonne? Kyllä. Hyvä kroppa? On. Harrastukset,
      Ikävä
      44
      801

    7. Ei ole yhtään

      Helppoa olla sinuun rakastunut
      Ikävä
      101
      795

    8. Luottoluokitus-raportti Tekijä ja Duunari Oy

      "Arvotus ja luottoraja: Yrityksen pisteet: 0.00 / 100 Taloustutka-tähdet: Suositeltu luottoraja: 0 €" "Luotonantoa suos
      Imatra
      67
      686

    9. Oot hauska

      Oot hauska ja kiva nainen.
      Ikävä
      50
      678

    10. Miksi itkit silloin

      Perääni et sydämesi särkyy jos lähden. Sitten päätit särkeä minun sydämeni olemalla toisen kanssa. Tuottamalla sitä tusk
      Ikävä
      4
      664
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt