Eli homman pitäisi niin, että kun avaan excel taulukon, kopioin sen työkirjaan, missä on makro tallennettuna. Makro poimii kolmesta sarakkeesta tiedot ja liittää ne taulukon alapuolelle. Sarakkeet, missä on samassa solussa pvm ja kellon aika, se heittäisi päivämäärän pois ja muuttaisi kellonajan oikeaan muotoon (h:mm).
Nauhoituksen olen suorittanut taulukossa jossa on tietoja. Kaikki toimii siihen asti mallikkaasti, mutta solu, jossa on päivämäärän ja kellonajan muotoilu.. kyllähän se muotoilee sen kellonajan oikeanlaiseen muotoon, mutta piru kun se tuo sen siitä alkuperäisestä taulukosta, missä olen makron nauhoittanut. En ole näiden kanssa paljoa värkkäillyt ja aika on hemmetin rajallista.. APUJA? :D
Nauhoituksen olen suorittanut taulukossa jossa on tietoja. Kaikki toimii siihen asti mallikkaasti, mutta solu, jossa on päivämäärän ja kellonajan muotoilu.. kyllähän se muotoilee sen kellonajan oikeanlaiseen muotoon, mutta piru kun se tuo sen siitä alkuperäisestä taulukosta, missä olen makron nauhoittanut. En ole näiden kanssa paljoa värkkäillyt ja aika on hemmetin rajallista.. APUJA? :D
Vastaukset 8
Vanhimmat
Liitä toiminnoista vaihtoehto "Liitä määräten" ja raksit ruutuihin kaikkiin tarvittaviin osiin.
- Lähteekö näin ja toimii? Pitäisi kyllä.
Kiitos Bofh49.. mutta ongelma ei mun mielestä ole siinä kopiointivaiheessa. Ja ainakaan 2007 officessa ei tuossa liitä määräten kohdassa voi täpätä paljonkaan vaihtoehtoja. Se on joko täppä kohdassa kaikki tai sitten yksitellen valittuna esim. kaava tms. Ja ongelma ilmenee makroa ajaessa.. eli silloin heittää aikataulut siitä taulukosta (lukujärjestyksestä), missä olen makron nauhoittanut.. Eli uskoisin, että sen makron tekemisen kanssa pitäisi jotenkin kikkailla, että se osais muuttaa solujen muotoilun siihen lukujärjestykseen, minkä haluan muokata halutunlaiseksi tällä ihanalla elämää helpottavalla makrolla :D Eikä tois niitä pirun aikoja siitä lukkarista, missä oon makron nauhottanu..
Siihen makrolliseen työkirjaan teet taulukkolehden, johon kopioit tietosi sopivasti nimetyille alueille. Sitten makro ainakin löytää ne uudet tiedot aluenimien perusteella. ???
Tuttumies: Ei vaikutusta. Kopioi kyllä kaiken ok, eli poimii tiedot ihan oikein. Siinä vaiheessa kun makron pitäis muuttaa solut oikeaan muotoon (h:mm), niin siinä vaiheessa tempasee jostain ne tiedot kehiin, mitkä ovat olleet siinä työkirjassa missä olen makron nauhoittanut.. esimerkiksi työkirjassa missä olen makron nauhoittanut, on solu jossa on 12.10.2010 12:00:00, ja uudessa lukujärjestyksessä on esim. 13.10.2010 15:00:00. Makro kopioi tämän ihan oikein oikeaan paikkaan, mutta kun makro suorittaa sitten solun muotoilun, eli muutan solun aika-muotoiseksi, se kyllä heittää päivämäärän hiiteen ihan oikein, mutta ottaa tuon klo 12:00 siitä lukujärjestyksestä missä makro on nauhoitettu. Olen kokeillut sitäkin, että suoritan ensin makron, joka poimii vain lukujärjestyksestä halutut tiedot ja sen jälkeen suoritan makron, mikä muuttaisi nuo pvm aika- solut aika- muotoon, mutta edelleen se heittää vain väärät ajat.
Ei se vanha nauhoitettu makro tietenkään myöhemmin lisättyjä nimiä näe, mutta jos käytät niitä nimiä makroa nauhoittaessasi (tai vaihdat nimet sinne koodiin alueviittausten kohdille), niin kyllä on hieman ihme, jos se jostain muualta aineiston nykii.
Yritä vaikka listata se makrosi tänne, koska tässä joutuu aika sokeana veikkaamaan sitä vikaa.
Miten otat tuon päivämäärän soluun?
=now()
=nyt()
=date()
- muistaakseni nuo kaikki toimii tavalla tai toisella ja en vielä testannut eroja mites tuo date tekee, olen sitäkin nähnyt uudemmissa asiakirjoissa.
- Tämä vain välipähkäilynä, kun satuin vielä keskustelun ääreen.
bofh49: Päivämäärä tulee ikävä kyllä automaattisesti samaan soluun mukaan kellonajan kans, kun lukujärjestyksen tuo toisesta järjestelmästä..
Mutta tässäpä makron koodi.. Saa antaa selkeää ohjetta tuohon, en nimittäin visualbasicin kanssa ole pelautunut sitten en yhtään :D Kiitos valtavasti jo nyt, bofh49 ja tuttumies!
Sub Makro1()
'
' Makro1 Makro
'
'
Range("J2:J8,K2:K8,L2:L8,P2:P8").Select
Range("P2").Activate
Selection.Copy
Range("J12").Select
ActiveSheet.Paste
Range("K24").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("K12:L18").Select
Selection.NumberFormat = "h:mm;@"
Range("K12").Select
ActiveCell.FormulaR1C1 = "8/13/2010 9:00"
Range("K13").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:30"
Range("K14").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:30"
Range("K15").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:00"
Range("K16").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:30"
Range("K17").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:30"
Range("K18").Select
ActiveCell.FormulaR1C1 = "8/13/2010 8:30"
Range("L12").Select
ActiveCell.FormulaR1C1 = "8/13/2010 11:30"
Range("L13").Select
ActiveCell.FormulaR1C1 = "8/13/2010 15:30"
Range("L14").Select
ActiveCell.FormulaR1C1 = "8/13/2010 16:00"
Range("L15").Select
ActiveCell.FormulaR1C1 = "8/13/2010 16:00"
Range("L16").Select
ActiveCell.FormulaR1C1 = "8/13/2010 15:30"
Range("L17").Select
ActiveCell.FormulaR1C1 = "8/13/2010 16:00"
Range("L20").Select
ActiveCell.FormulaR1C1 = ""
Range("L18").Select
ActiveCell.FormulaR1C1 = "8/13/2010 16:00"
Range("L19").Select
ActiveCell.FormulaR1C1 = ""
Range("K13").Select
End Sub
ja tosiaan se ei muuta sitten makroa nauhottaessa noita pvm aika soluja aikamuotoon, ellei tuplaklikkaa jokaisen solun päällä yksitellen... :D fun....