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
Mikä makro kaava
6
283
Vastaukset
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
@KundeKiitos 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
Perintovero 100 prosenttiin, työeläkkeet ja maataloustuet pois
Noilla eväillä lähden tasapainottamaan valtiontaloutta ja korjaamaan työntekijöiden palkkakuoppaa nostamatta työnantajie1665504Seksuuaalivinksataneiden toimintaa rahoitetaan valtion varoilla.
Setan toimintaa rahoitetaan valtionavustuksilla, joilla mm kierretään kouluissa haalimassa alaikäisiä mukaan perverssii894920Riikka runnoo: polttoöljyn hinta nousi maaliskuussa 40 prosenttia
Onko irvistelijällä sakset hävinneet, vai miksei osaa leikata polttoaineiden hintaa kansalaisten kukkarolle sopivalle ta353775Purra ryöväsi Marinin Itä.-Suomelle neuvottelemat EU-rahat
Perust vihaavat suomalaisia, mutta eritoten itäsuomalaisia. "Osa kaksikäyttörahoista on alun perin Itä- ja Pohjois-Suom263143Miksi persut hyökkäävät jatkuvasti henkilöitä päin?
Miksei persut yritä lainkaan korjata asioita, vaan koko ajan haukkuvat henkilöitä? Ei tuollaisilla turvanpieksäjillä ole493048Demariskandaali! Eveliina Heinäluoma (sdp) kahmii kaikki Hitas asunnot itselleen!
Heinäluoma on ostanut useita yhteiskunnan tukemia, hintasäännösteltyjä asuntoja itselleen! Ei ihme, että Hitas on ollut1582816Mökkejä ostellaan nyt ihan hulluna!
Tyypilliset lainamäärät on yli 500 000€ mökkejä ostellessa eli erityisesti tuollaiset miljoonamökit on nyt suomalaisten872663Seida Sohrabi: Suomi ei ole rasistinen maa
Seidalta taas täyttä asiaa. Miksi punavihreät naiset eivät pysty samaan - no se ideologia estää. "Meillä on valitettava282658Demarien sanoin kuvaamaton ahneus - Eveliina Heinäluoma vain yksi esimerkki
Mutta näin se on demari-eliitissä aina ollut, käytännössä siis nämä eliittiin kuuluvat ovat puhtaasti porvareita - Marin712376Ranskan vasemmistojohtaja tunnustaa, että väestö on vaihtumassa
ja se on vaan hyvä asia hänen mielestään. Kyseessä siis Ranskan vasemmistojohtaja Jean-Luc Mélenchon jonka puheet järkyt652009