Olen tekemässä maksuvalmiusexceliä. Ainoaksi ongelmaksi on muodostunut miten voi kopioida kuukausia kahvalla. Eli ekassa solussa on päivämäärä muodossa toukokuu 11, seuraava kesäkuu 11, mutta kun yritän kopioida kahvalla, eipä onnistukaa. Miten tuollaisen voi kopioida niin , että voin kopioida sen vuoteen 2021 asti. Onko ideoita?
vaikea excel ongelma päivämäärissä
pete-vnt
10
193
Vastaukset
- pete-vnt
Korjaan, siis miten teen kopioitavan kaavan, että kun kirjoitan ensimmäiseen vaikka maaliskuu 11 se ampuu koko taulukon täyteen seuraavia kuukausia ilman vetokahvaa. Anteeksi sekoiluni.
- pete-vnt
kunde kirjoitti:
niksinurkasta toka postaus
http://keskustelu.suomi24.fi/node/9847941Kunde ihan tuosta ei ollut kyse. Vaan miten tehdä kaavan, joka ilman raahaamista tekee saman eli kirjoitat elokuu 11 niin se osaa allaoleviin kavoihin kirjoitetulla funktiolla luoda sarjan elokuu 11 , syyskuu 11, lokakuu 11, marraskuu 11 ...ja sitten kun tulee uuusi laskelma laitan ekaan soluun esim. tammikuu 12 ja sitten se se taas osaa ampua seuraavat kuukaudet.
eihäm tommosta ookaan joka osaa lukea sun ajatukset ja laittaa ne sarakkeeseen...
jos haluat niin makrolla voi tehdä aktiivisesta solusta alkaen (oletuksena nyt sitten alaspäin...) antamastasi päiväyksestä alkaen loppupäiväykseen kuukausittain päiväykset ja muuttaa ne muotoon elokuu 11, syyskuu 11
tommostako haluat....- pete-vnt
jep. Nyt pääsit kärryille Kunde. Eli tismalleen sama asia kuin normi kaavoissakin eli miten saa kaavalla tehtyä sen, että kun syötän ekaan soluun tammikuu 11 ja laitan seuraavaan soluun kaavan. =A1 1 tulis helmikuu 11 jne.
pete-vnt kirjoitti:
jep. Nyt pääsit kärryille Kunde. Eli tismalleen sama asia kuin normi kaavoissakin eli miten saa kaavalla tehtyä sen, että kun syötän ekaan soluun tammikuu 11 ja laitan seuraavaan soluun kaavan. =A1 1 tulis helmikuu 11 jne.
täyttää aktiivisesta solusta alaspäin valittujen päiväysten väliset kuukaudet
moduuliin...
Sub TäytäKuukaudet()
Dim Alku
Dim Loppu
Dim i As Long
Dim testi
Application.ScreenUpdating = False
uusi1:
Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
If Not IsDate(Alku) Then
MsgBox "päiväys virheellinen"
Alku = ""
GoTo uusi1
End If
uusi2:
Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
If Not IsDate(Loppu) Then
MsgBox "päiväys virheellinen"
Loppu = ""
GoTo uusi2
End If
testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
If testi = 6 Then
ActiveCell = Alku
For i = 1 To DateDiff("m", Alku, Loppu)
ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
Next i
Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
End If
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde- pete-vnt
kunde kirjoitti:
täyttää aktiivisesta solusta alaspäin valittujen päiväysten väliset kuukaudet
moduuliin...
Sub TäytäKuukaudet()
Dim Alku
Dim Loppu
Dim i As Long
Dim testi
Application.ScreenUpdating = False
uusi1:
Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
If Not IsDate(Alku) Then
MsgBox "päiväys virheellinen"
Alku = ""
GoTo uusi1
End If
uusi2:
Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
If Not IsDate(Loppu) Then
MsgBox "päiväys virheellinen"
Loppu = ""
GoTo uusi2
End If
testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
If testi = 6 Then
ActiveCell = Alku
For i = 1 To DateDiff("m", Alku, Loppu)
ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
Next i
Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
End If
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kundewow..mikä temppu.
Suurkiitos Kunde, oon ihaillu jo vuosia sun osaamista ja taas ei voi muuta kuin kehua. Toimii todella hyvin..Siihen ekaan soluun jäi se syötetty päivämäärä, miten senkin sais muotoiltuu samallatavalla , kuin kaikki muutkin eli samaan formaattiin kesäkuu 11 heinäkuu 11 jne. vai saako sitä? pete-vnt kirjoitti:
wow..mikä temppu.
Suurkiitos Kunde, oon ihaillu jo vuosia sun osaamista ja taas ei voi muuta kuin kehua. Toimii todella hyvin..Siihen ekaan soluun jäi se syötetty päivämäärä, miten senkin sais muotoiltuu samallatavalla , kuin kaikki muutkin eli samaan formaattiin kesäkuu 11 heinäkuu 11 jne. vai saako sitä?joo bugi oli , muuttuja oli väärää tyyppiä sille ekalle solulle(String kun pitäs olla Date)...
Pikkuvika ja helppo korjata. Kumma, kun en itse huomannut testatessa tota eroa...
ActiveCell = Alku
ActiveCell = CDate(Alku)
mutta tossa korjattu versio
Option Explicit
Sub TäytäKuukaudet()
Dim Alku
Dim Loppu
Dim i As Long
Dim testi
Application.ScreenUpdating = False
uusi1:
Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
If Not IsDate(Alku) Then
MsgBox "päiväys virheellinen"
Alku = ""
GoTo uusi1
End If
uusi2:
Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
If Not IsDate(Loppu) Then
MsgBox "päiväys virheellinen"
Loppu = ""
GoTo uusi2
End If
testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
If testi = 6 Then
ActiveCell = CDate(Alku)
For i = 1 To DateDiff("m", Alku, Loppu)
ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
Next i
Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
End If
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde
kiitti palautteesta ;-)
Musta tuntuu, että ainoa keino tehdä haluamasi on ohjelmointi.
Kahvasta kopiointi onnistuu kyllä, esimerkiksi seuraavasti:
Kirjoitat ensimmäiseen soluun Tammikuu 11 (vuosi).
Muotoilet solun sisällön
- Aloitus-välilehden
- Lukumuotoilu-pudotusvalikon
- Lisää numeromuotoja -komennolla esiin tulevassa valintaikkunassa.
Valitse luokka Oma ja kirjoita Laji-kenttään kkkk vv.
Sen jälkeen voit kopioida arvon vetämällä kahvaa toisella hiiren painikkeella ja valitsemalla pikavalikosta viimeisen käskyn. Tee esiin tulevassa valintaikkunassa Yksikkö-kohdassa vielä valinta Kuukausi.Laitat A2:een =päiväys(vuosi(a1);kuukausi/(a1) 1;päivä(a1)) ja sitten vedät sen alas.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht1352379Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava3451865- 401547
Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii311363Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua281300Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em941183- 541153
Muutama kysymys ja huomio hindulaisesta kulttuurista.
Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul327897Jumala puhui minulle
Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles104840Annan meille mahdollisuuden
Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil53752