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
145
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
- 1101615
- 1051175
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro1381061- 49959
Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni50844Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v240838- 127833
Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?70735Pridekulkue kiellettävä?
Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla178709Mä oon tyytyväinen, että ei ole enää tunteita.
Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu55689