Mikä makro kaava

Triboli

MIllähän makro kaavalla saisin lisättyä sarakkeen perään aina tyhjän sarakkeen ? Alla koodin pätkää, jonka avulla saan sen tehtyä, mutta ongelma on siinä kun sarakkeita on niin paljon, kohtaan ABR asti. Työtä on alla olevalla tavalla paljon.

Tiedän että on yksinkertaisempikin tapa tehdä tämä, mutta mikä se olisi. Ideoita?

Sub kokeilu1()
'
' kokeilu1 Makro
'

'
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("I:I").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("M:M").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("O:O").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("Q:Q").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("ABR:ABR").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

6

256

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Triboli

      Tai sitten jos joku tietää excelissä tavan jolla luoda uusi tyhjä sarake olemassaolevan viereen ja toistaa tämän loputtomiin siten että yksi täytetty sarake aina välissä. Yhden sarakkeenhan saa helposti mutta monta niin siinä on minun ongelmani. Onko kenelläkään idea kuin tuo makro..

      • kunde

        kuten sanoit vaatii yksinkertaisemman makron... ;-)

        Range("C1:ABR1").Insert Shift:=xlToRight

        Keep EXCELing
        @Kunde

    • Triboli

      Tuo kaavahan lisää vain tyhjiä sarakkeita välillä C1:ABR1 ja siirtää muuta dataa kauemmaksi.. Tarvitsen sellaisen kaavan, joka jättää joka toisen sarakkeen tyhjäksi alla olevan mukaan:

      C1 D1 E1 F1
      TYHJÄ SARAKE 31,778 TYHJÄ SARAKE 52,0264
      TYHJÄ SARAKE 33,7411 TYHJÄ SARAKE 54,1714
      TYHJÄ SARAKE 34,5071 TYHJÄ SARAKE 53,0189
      TYHJÄ SARAKE 32,5372 TYHJÄ SARAKE 55,0039
      TYHJÄ SARAKE 34,1241 TYHJÄ SARAKE 54,9078
      TYHJÄ SARAKE 31,2992 TYHJÄ SARAKE 51,9303
      TYHJÄ SARAKE 32,5509 TYHJÄ SARAKE 53,6369

      Onko tämä toteutettavissa?

    • kunde

      luin vain kyssäri huolimattomasti tsekkasin koodin...
      tsekka luupin max arvo onko oikein?

      Sub LisääJokatoka()
      Dim i As Long
      For i = 3 To 746 Step 2
      Columns(i).Insert Shift:=xlToRight
      Next
      End Sub

      Keep EXCELing
      @Kunde

    • Triboli

      Kiitos tätä hainkin.

      Sulla kun kerran makrot on hallussa niin miten saan tyhjän sarakkeen soluihin vielä kaavan, joka laskee edeltävän sarakkeen soluista erotuksen? Eli kun katsot ylempänä olevaa "taulukkoa" jossa toinen sarake ->33,7411 (olkoon solu D2)- 31,778 (olkoon solu D1) erotus tulisi sarakkeelle E2 ja samalla logiikalla jatkuisi loppuun asti.

    • kunde

      Sub LisääJokatoka()
      Dim vika As Long
      Dim i As Long
      vika = Range("C65536").End(xlUp).Row
      For i = 3 To 746 Step 2
      Columns(i).Insert Shift:=xlToRight
      Next
      For i = 5 To 746 Step 2
      ' vähentää nyt ylemmästä alemman, jos toistepäin niin hipsaa allaoleva kaava ja poista hipsu seuraavalta riviltä
      Range(Cells(2, i), Cells(vika, i)).FormulaR1C1 = "=R[-1]C[-1]-RC[-1]"
      'Range(Cells(2, i), Cells(vika, i)).FormulaR1C1 = "=RC[-1]-R[-1]C[-1]"
      Next
      End Sub

      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Saisinpa halata sinua joka päivä

      ja kertoa miten paljon sinusta välitän. Vaikka olisi jommalla kummalla huono päivä, väsynyt päivä tai kiireinen päivä, a
      Ikävä
      50
      5709

    2. Me työeläkeläiset äänestämme SDP:tä

      SDP on luonut koko työeläkejärjestelmän, jonka hedelmistä saamme nyt nauttia. Kansaneläkelaitos on Maalaisliiton tekele,
      Maailman menoa
      44
      4362

    3. Nykymiehet odottaa, että nainen lähestyy?

      Perus luonnonlaki menee päinvastoin! Oletko nähnyt luontodokkaria jossa naaraat juoksee uroksien perässä??? 🦁🫎🦍🐒🦦�
      Ikävä
      148
      3929

    4. Kolmen tuiki tavallisen demariahdistelijan nimet julki

      Nyt tiedetään ketkä kolme oli niissä niin tavanomaisissa demarin jokapäiväisissä askareissa avustajia ahdistelemassa. K
      Maailman menoa
      91
      3630

    5. Sannahan laski sähkön ALV:n 10 prosenttiin, Riikka runnoi 25,5 %:iin

      Tässäkin nähdään kumpi on Suomen kansan puolella, ja kumpi omaa vastaan. Putinistipersuille Suomen kansa tulee aina vii
      Maailman menoa
      70
      2864

    6. Kansalaispalkka ja maksuton joukkoliikenne

      Noilla pienillä parannuksilla saadaan Suomesta taas hitusen parempi paikka peruskansalaiselle, joka elää ekologisesti ja
      Maailman menoa
      105
      2507

    7. Antti Lindtman: "Ainahan kaikenlaisia huhuja liikkuu"

      Näin hän siis vastaa SDP:n häirintäkohuun, väistelee vastuutaan Juttuhan on niin, että Lindtman ja Tuppurainen on tasan
      Maailman menoa
      56
      1826

    8. Eikö tunnukin kamalalta, kun en

      anna periksi vaikka parhaasi olet tehnyt antaaksesi täystyrmäyksen? Ja kyllähän minä monta iskua olen saanut ja maannut
      Ikävä
      40
      1819

    9. Muistattekos kun kaupassa piti pyytää tavarat myyjältä

      Edes kahvipakettia ei saanut itse valita, vaan myyjä nouti sen hyllystä tiskille. Jos osti jauhelihaa, niin se jauhettii
      Maailman menoa
      226
      1666

    10. Kenen juontajan pitäisi voittaa tänään Kultainen Venla? Ehdolla Pimiä, Holma ja Vaaherkumpu

      Kultainen Venla gaalassa jaetaan tänään tv-alan palkintoja. Yksi suosituimmista kategorioista on Juontaja. Vappu Pimiä
      Suomalaiset julkkikset
      33
      1441
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt