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

131

    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. Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue

      Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää
      Maailman menoa
      208
      5175
    2. Olen väsynyt tähän

      En osaa lopettaa ja koen huonoa omaatuntoa tästä. Kaikki on muutenkin turhaa ja tekemisesi sattuvat. Tunteita on vain hy
      Ikävä
      46
      4880
    3. Oppiiko vasemmistolaiset valehtelun jo kotonaan?

      Sillä vasemmistolaiset/äärivasemmistolaiset valehtelee ja keksii asioita omasta päästään todella paljon. Esim. joku vas
      Maailman menoa
      202
      2769
    4. Seuraava hallituspohja - Kokoomus, kepu, persut + KD

      Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 17
      Maailman menoa
      135
      2358
    5. Olenko mies sinun mielestä outo?

      Saat vastata rehellisesti.
      Ikävä
      65
      1992
    6. Maailman laiskin eläin: persu

      Persu ei ole eläessään laittanut rikkaa ristiin itsensä elättämiseen. Luonnossa tuollainen ei olisi mahdollista, mutta s
      Maailman menoa
      112
      1871
    7. Millasia unelmia sulla on?

      onko unelmia...?
      Ikävä
      67
      1804
    8. Miten usein toivot

      Tai olet toivonut että olisimme lähekkäin vai toivotko ollenkaan?
      Ikävä
      208
      1694
    9. Miksi et voi tutustua minuun irl?

      Vastaa yleisellä tasolla/ympäripyöreästi, jos pelkäät tunnistamisia.
      Ikävä
      184
      1323
    10. Martina tienaa itse rahansa

      Ei tarvitse anella elättäjältään rahaa, ruokaa ja laukkuja.
      Kotimaiset julkkisjuorut
      261
      1042
    Aihe