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
Rivien lisääminen ja kopioiminen
En osaa
2
132
Vastaukset
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
Kuolemanrangaistus
Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen503780Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,1843374Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 172352907Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina712489Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta
"Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S3171826Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.111523Lopetan ikävöinnin
Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään31391Vihervassarit
Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät271391Muovipusseista pitäisi saada panttimaksu takaisin
Ostan joka päivä yhden muovipussin, ja niistä palautuu keskimäärin takaisin kaupan pullomaatin yhteydessä olevaan roskik421278Ei ole liian myöhäistä..
Tule mun luo ja katso silmiin, niin saadaan taas se sanaton yhteys ja sano sitten vain anteeksi rakas ja suutele ja hala31152