Olisi hakusessa makro joka lisäisi rivin aina kun päiväys vaihtuu, Taulukossa on on reilu tuhat riviä, joissa tietoa samalla päivällä voi olla yhdestä kymmeneen riviä. Haluaisin makron joka lisäisi rivin aina kun päiväys vaihtuu.
Rivin lisääminen kun päiväys vaihtuu
tietoa_haluava
6
239
Vastaukset
Sub Tsekkaapäiväykset()
Dim vika As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -1
'¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Cells(i, 1).Insert
End If
Next i
End Sub
Keep EXCELing
@Kunde- tietoa_haluava
Mitä pitäisi muuttaa, että lisäisi koko rivin, kun nyt siirtää sarakkeeen soluja alaspäin
- enoosaavba
http://analysistabs.com/excel-vba/insert-rows-worksheet/
En tiedä auttaisiko entirerow lisääminen
Cells(i, 1).EntireRow.Insert - enosaavba
enoosaavba kirjoitti:
http://analysistabs.com/excel-vba/insert-rows-worksheet/
En tiedä auttaisiko entirerow lisääminen
Cells(i, 1).EntireRow.InsertEi mene noin. sorry.
Juuri noin, kuten enosaavba kirjoittaa...
Sub Tsekkaapäiväykset()
Dim vika As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -1
'¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Cells(i, 1).EntireRow.Insert
'Cells(i, 1).Insert
End If
Next i
End Sub
Keep EXCELing
@Kunde
- tietoa_haluava
Kiitos!
Hienosti toimii
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Onnea Riikka! Työttömyys aste on nyt täysi kymppi!
🎯 💪 Kiitoksia Riikalle ansiokkaasta työstä Suomen kansantalouden tuhoamisessa. V.Putin suljetun rajan tuolla puolen885023Hyvällä tuurilla Suomen väkiluku nousee 7 miljoonaan
Vuoteen 2050 mennessä, mikäli onnistumme maahanmuuttopolitiikassa hyvin. Näin analysoi väestötieteen tohori Hiilamo. ht1774378Riikka jytkytti työttömyyden uuteen ennätykseen!
Erinomaista työtä jälleen kerran irvistelevältä saksiniekalta. ”Yhtä korkeaa työttömyysastetta ei löydy työvoimatutkimu1664284Päivän Riikka: Valmet Automotive aloittaa jättimäiset muutosneuvottelut
😭😭😭😭😭😭😭 Tämäkin vielä, Brutukseni. Että ei olisi Suomen historian pahimmat työttömyysluvut riittäneet, niin Riik893485Mercedes-Benzille riitti Suomen äärioikeistohallitus
Tästä jo pari vuotta sitten varoiteltiin, että kaikki ulkomaalaiset investoijat poistuvat fasistipersujen myötä tukemast163224Sebu Tynkkynen vaatii Ulkopoliittisen instituutin rahoituksen leikkaamista
kun UPI:n tutkija kritisoi Tynkkystä, Mikä Trump tuo Tynkkynen oikein luulee olevansa? https://www.iltalehti.fi/politi142932Keskisarja kiihotti persuja kansanryhmää vastaan
Rikoksen vakavuutta lisää se, että Keskisarja toimii eduskuntapuolueen puheenjohtajana, jonka puheilla on enemmän painoa362929Kolmepäiväinen työviikko on kulman takana
Zoomin toimitusjohtajan mukaan tekoäly alkaa olla monissa työtehtävissä niin tehokas, että ihmiset voivat pudottaa työpä22786Aamun Riikka: sakset tiputtavat 31 000 lasta köyhyysrajan alle
✂️ STM:n tuoreen arvion mukaan Riikan leikkaukset pudottavat peräti 31 000 lasta köyhyysrajan alle, kun aikaisempi THL542658Nuoret pois politiikasta!
Näillä 30-kymppisillä ei ole juuri mitään elämänkokemusta. Ja tällaiset raakileet saavat huseerata ja pilata Suomen!291854