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

218

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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..

      • kuten sanoit vaatii yksinkertaisemman makron... ;-)

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

        Keep EXCELing
        @Kunde


    • 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?

    • 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

    • 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.

    • 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ä.

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      89
      5978
    2. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      3557
    3. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      161
      2101
    4. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      231
      2022
    5. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      177
      1768
    6. Martinan bisnekset rajusti tappiolla

      Seiska 28.7: nousukiito katkesi, yritykset C-luokkaa.
      Kotimaiset julkkisjuorut
      284
      1523
    7. Tiedätkö mitä kaivattusi harrastaa?

      Minä en tiedä.
      Ikävä
      67
      1041
    8. Voiko olla, onko se tosiaan niin että

      Kumpikin rakastetaan toisiamme. Nyt pitää sukeltaa pakastimeen ❤️🥵
      Ikävä
      57
      1041
    9. Metsa Man Extra kanava toimii hyvin

      ja sieltä voipi kahta vanhoja vitejoita pahimpaan puutteeseen. Peukalot ylös.
      Tuusniemi
      21
      1020
    10. Mitkä yleiset huonot tavat ihmisillä ärsyttävät sinua ?

      Aloitukseen saa vapaasti purkaa tuntojaan. Itseäni hiukan kiusaa, kun saman talon asukkaat eivät vastaa tervehdykseen.
      80 plus
      113
      971
    Aihe