Solujen väri

Ookos koskaan kokeillut makronauhoitinta?
Tommosta se aikaan...
Sub Macro1()
'
' Macro2 Macro
' Macro recorded 2.3.2011 by kunre
'

'
Range("D6:L6").Select
Selection.Interior.ColorIndex = 56
End Sub

toki sitä voi kaunistella ja poistella yleensä 80-90% turhaa skeidaa ja saada se helpommin luettavaksi ja paremmin toimivaksi...

Sub Macro1()
Range("D6:L6").Interior.ColorIndex = 56
End Sub

Keep EXCELing
@Kunde

hmmm. Tarkoitin että väri olisi vakiona pohjassa valmiina noissa soluissa eli ei tarvitsisi painaa nappia.

Makron osaan kyllä nauhoittaa.

Tarkoitan että kun avaan juurikin tämän ks. exel tiedoston niin Taul.1:sen solut D6:L6 olisivat harmaita.

Mielellään niin että niiden väriä ei käyttäjä pystyisi muuttamaan excel puolelta. Toki samaisiin soluihin tulee pystyä syöttämään numeroarvoja.

Tiedä sitten onko tämä edes mahdollista.

Works like a Charm
TänX !

Kysytäämpäs täältä jos joku osais auttaa.

Eli saako tuota automaattista solujen värjäytymistä jotenkin pois? Eli jos esim. solu H29 on vihreä, tulee sen alapuolella olevastakin H30 solusta vihreä mikäli lisään rivejä. Tämähän ei suuri vaiva olisi käsin vaihtaa tyhjäksi, mutta kun noita rivejä tulee aika paljon lisää automaattisesti välisummia laskettaessa, ja näin ollen noita värejä on soluissa joissa niitä ei kuuluisi olla. Muistelin että jossain olisi ollut asetus automaattisesta muotoilusta, jossa uusiin soluihin ei mitään muotoiluja kopioituisi, mutta enpäs tällaista löydä mistään valikoista enkä excelin ohjeista.

Suuret kiitokset jos joku ratkaisun keksii.

En tiedä oliko tuo vastaus edes minulle, mutta tavoite olisi siis, että jos solu on muuten tyhjä, mutta väri on joku muu kuin valkoinen, muuttuisi se itsestään valkoiseksi, eli tyhjäksi. Kun noita tyhjiä värillisiä soluja tulee siis ympäri taulukkoa kolmeen eri sarakkeeseen (H, L, M) ja lukemattomille eri riveille, aina kun joutuu laskemaan välisummat.

Koska jos rekisteriin lisää uusia henkilöitä, tulee välisummat poistaa aakkostamisen ajaksi. Käsittääkseni. Kun rekisteri on taas järjestetty aakkosten ja muiden perusteella, välisummat lisätään uudelleen ja tulee noita tyhjiä rivejä välisummien kohdille. Niissä on vaan sitten noita värejä miten sattuu ylläolevien solujen mukaisesti.

Nauhoitin makron tuohon operaatioon, mutta haluaisin lisätä siihen sen että se poistaisi nuo värilliset tyhjät solut.


Toinen makroon lisättävä juttu olisi se, että välisummien jälkeinen loppusumma tulisi heti viimeisen henkilön perään, eikä kymmeniä rivejä alapuolelle. Jos taas alueen valitsee käsin, tulee loppusumma tietysti haluttuun kohtaan, mutta koska rekisteriin on lisätty henkilöitä, ei tämä käsin merkitty alue enää päde kun makroa käytetään seuraavan kerran.

Hienoa jos joku edelleen jaksaisi vaivautua auttamaan!

"Eli saako tuota automaattista solujen värjäytymistä jotenkin pois? Eli jos esim. solu H29 on vihreä, tulee sen alapuolella olevastakin H30 solusta vihreä mikäli lisään rivejä"

Joopa joo
ihan eri juttu...
no katellaan kun keritään

Joo selitin tuon ekalla kerralla vähän eri tavalla, sama tavoite kuitenkin edelleen. Meinaan vaan että tulos on sama lisääpä rivin itse vai tuleeko se automaattisesti välisummien mukana, värit siihen kuitenkin kopioituu haluamattani. Itse en tuota omin neuvoin saa kyllä ratkaistua eikä netistä neuvoja ole löytynyt joten kiitokset jo tässä vaiheessa kun asiaan jaksat paneutua!

Loistavaa! Aloin jo olla siinä uskossa että ei edes ole mahdollista, mutta olihan se näköjään. Kiitos paljon! :)

Loppusumman pitäis tulla siis aina eri kohtaan kun uusia henkilöitä on lisätty. Esim. tällä hetkellä loppusumma on solussa F371, mutta jos rekisteriin lisätään vaikka 2 henkilöä, tulisi loppusumman olla solussa F373 jne. Eli en voi aluetta käsin valita, koska alareunasta jää aina puuttumaan lisättyjen henkilöiden verran soluja. Vaikea selittää. Jos taas valitsen koko F-sarakkeen klikkaamalla F:ää, loppusumma tulee kymmeniä soluja liian alas, eli "paperin alareunaan". Tämä taas tuntuu tulevan ihan sattuman varaiseen paikkaan, mutta kuitenkin aivan liian alas, josta se pitää aina käsin nostaa oikeaan kohtaan. Pieniä mutta kovasti helpottavia asioita, jos toimisi oikein.

Eli lähinnä hakisin sitä, että kun välisummat lisätään, osais se automaattisesti päätellä missä on ensimmäinen kokonaan tyhjä rivi ja laittaisi siihen loppusumman. Makro tavallaan itsestään valitsisi F-sarakkeesta pelkästään siihen asti, mihin henkilöt loppuvat, sitten loppusumma tulisi heti viimeisen henkilön perään. Lieneekö mitenkään tehtävissä.


Jos tuon saisi vielä toimimaan, olisi lopputulos todella hyvä, koska koko operaation saisi kuitattua lisättyjen henkilöiden jälkeen makron avulla sekunnissa, kun ennen puhuttiin minuuteista.

If vika = 1 Then
Range("F" & vika 1) = Application.WorksheetFunction.Sum(Range("F1:F1"))
Else
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
End If
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))

Mikä on viimeisen rivin tarkoitus?

Kiitokset vaivannäöstä! Valitettavasti tulos ei ollut ihan halutunlainen tällä kertaa mutta en viitsi vaivata enempää. Tuo toi mukanaan enemmän ongelmia kuin helpotusta. :) Ehkä on käyttäjässä vika tällä kertaa mutta en saanut toimimaan niin kuin toivoisi.

Nyt kun lisään välisummat, tulee loppusumma kahteen kertaan ja toiseen loppusummaan on vielä lisätty toinen loppusumma. Jos poistan jotain sarakkeesta F, sen yläpuolella olevaan soluun tulee joskus nolla, en tiedä millä perusteella. Tai jos lisään rivejä, tulee loppuun myöskin nolla jne. Pitäsi tajuta enemmän tuosta koodista että vikaa osaisi etsiä. Toimii jotenkin omituisesti nyt.

Kiitokset kuitenkin tähän astisista avuista. Hienoa kun joku jaksaa auttaa. Joka tapauksessa taulukko toimii nyt jo paljon paremmin kuin alussa ja sai palauteltua muutenkin vähän excelin käyttöä mieleen noita pähkäillessä.