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
111
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
No Purra missäs ne työpaikat ovat?
Niinhän sinä väitit, että sinun puuhasi lisäävät 100 000 uutta työpaikkaa. Oliskohan jo aika myöntää että olet ollut vää3332114VOIKO MITÄÄN MIELIPUOLISEMPAA ENÄÄ EHDOTTAA?
NATO:n pääsihteeri Mark Rutte ja EU:n Kaja Kallas ehdottavat että euroopan maiden eläkevarat ja Terveydenhoito varat käy3221357MTV: Harvinainen haastattelu: Peltsi paljastaa Osmon elämästä julkkiksena: "Aika paljon tullut..."
Ihanat Peltsi ja Osmo . Tällä isällä ja pojalla on kyllä erityisen lämmin suhde. Isä ja poika kertovat väleistään ja pa71002- 68953
Tiedän meidän molempien pitävän toisistamme
Siitä huolimatta näen tuhat eri vaihtoehtoa siitä, mikä menee pieleen yhteydenoton jälkeen. En kiusaa, härnää tai lupaa33945Sofiallako rakkaus rakoilee? Missä rillirakas?
Ukkeli taisi saada tarpeekseen Sofiasta ja lähti vaimon ja vauvan luo.185944- 51902
Voi kun tietäisin mitä
Sinä olet. Ajattelen sinut hyvin helläksi ja välittäväksi. Siihen rakastuin. Mutta sitten se toinen puoli, miksi?51828- 110794
Kerro yksi positiivinen kokemus kaivatusta
Voi tunnistaa. Jos ei ole positiivista, voi kertoa negatiivisen. Ne ehkä jää mieleen paremmin.35746