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

124

    Vastaukset

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

    Luetuimmat keskustelut

    1. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      14
      3050
    2. Jännitän sinua J mies

      Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.
      Ikävä
      122
      1342
    3. Toivotko, että

      hän tulisi juttelemaan sinulle, vai lähestytkö mieluummin itse?
      Ikävä
      89
      1222
    4. Orpo suunnittelee palestiinalaislasten Suomeen siirtoa

      "Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli
      Maailman menoa
      257
      1086
    5. Kuinka kauan kesti että ihastuit

      Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi
      Ikävä
      51
      1055
    6. Olen käyttäytynyt sinua kohtaan väärin toistuvasti

      Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk
      Ikävä
      63
      975
    7. Tunneälyä testaamaan!

      Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/125
      Lesbot
      3
      871
    8. Taposta murhaksi

      Mitä tästä tapauksesta tiedetään?
      Kajaani
      41
      842
    9. Vaikutat tosi mielenkiintoiselta ja

      paksulta. 😂 m - n
      Ikävä
      84
      821
    10. Saanko mies tulla sun kainaloon nukkumaan?

      En saa unta kun mietin sua❤️ Saako tulla sun viereen ja käpertyä sun kainaloon?
      Ikävä
      48
      778
    Aihe