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

264

Ää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. Lääppijä Lindtman jäi kiinni itse teosta

      Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852
      Maailman menoa
      179
      4154

    2. Huomaatteko Demari Tytti ei esitä pahoitteluitaan

      Samanlainen ilmeisesti kuin Marin eli Uhriutuu no he ovat Demareita ja muiden yläpuolella siis omasta mielestään
      Maailman menoa
      82
      3272

    3. Vedonlyöntiä .

      Olen valmis lyömään ison vedon , että homma kaatuu . Jos kerta Sivonen ei lähde mukaan , niin ei tuoho usko kukaan muuka
      Ähtäri
      24
      2436

    4. Turvaan tulleet lähettävät omia lapsiaan vaaraan - hullua

      MOT-ohjelman jakso ”Loma vaihtui kahleisiin” kertoi, kuinka Suomessa ja muualla Euroopassa asuvat somaliperheet lähettäv
      Maailman menoa
      56
      2226

    5. Mikä on pahinta, mitä kaivatullesi

      pelkäät tapahtuvan? Jos kuolemaa, vakavia sairauksia yms. ei lasketa?
      Ikävä
      88
      2085

    6. TUNNISTELAATIKKO

      Tähän ketjuun voi laittaa yhdellä tai kahdella lauseella (tai vaikka yhdellä sanalla) täydellisen tunnisteen, jonka vain
      Ikävä
      85
      1381

    7. Tykkäätkö enemmän tavis- vai julkkiskisaajista tv:ssä?

      Tykkäätkö enemmän tavis- vai julkkiskisaajista tv:ssä? Moni reality ja visailuohjelma luottaa julkkiksiin, mutta sentään
      Tv-sarjat
      26
      1290

    8. Minkä tunteen tunnet

      juuri nyt? ap kiitollisuuden.
      Tunteet
      40
      1280

    9. Zoo jatkaa - jatkuuko mustamaalaus?

      Tänään on päätetty Zoon avaamisesta uudelleen. Mielenkiintoista nähdä kautokurujen reaktio, nyt kun kyse ei ole kunnalli
      Ähtäri
      65
      1153

    10. Valehdella saa, totuus salataan

      Vaikuttaa vähän siltä, että sensuuria toteutetaan juorupalstallakin. Asioita saa kaunistella ja vääristellä, mutta totuu
      Savonlinna
      10
      788
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt