meni sormi suuhun. solussa b2 = (today) solualue D2:E13 kuukauden alku ja loppu...näin D2 ( 1.1.2009 ) E2 ( 31.1.2009 ) D3 ( 1.2.2009 )jne. solussa B4 tarpeen mukaan syötettävä arvo esim. 1000. Kaipaan kaavaa joka katsoo B2 mikä päivä on ja hakee minkä kk päivien väliin se sijoittuu, ja mielellään sijoittaa B4 syötetyn arvon sarakkeeseen L2-L13 ( samalle riville kuin kuluva kuukausi)
haku funktio
tai jokin muu
3
383
Vastaukset
moduuliin... Option Explicit Sub Siirrä() Dim Löydetty As Range Dim haku As Date On Error Resume Next Application.ScreenUpdating = False haku = DateAdd("D", -1# * DatePart("D", CDate(Range("B1"))) 1, CDate(Range("B1"))) Set Löydetty = EtsiJaSiirrä(haku, Range("D:D")) Löydetty.Offset(0, 8) = Range("B4") Application.ScreenUpdating = True End Sub Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range Dim solu As Range Dim EkaOsoite As String With HakuAlue Set solu = .Find( _ What:=Hakuehto, _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If Not solu Is Nothing Then Set EtsiJaSiirrä = solu EkaOsoite = solu.Address Do Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu) Set solu = .FindNext(solu) Loop While Not solu Is Nothing And solu.Address EkaOsoite End If End With End Function keep Excelling @Kunde
- jatkaa
jokin pielessä, ei pelitä ?
- jatkaa lisää
jatkaa kirjoitti:
jokin pielessä, ei pelitä ?
Hätä ohi.. kiitos Kunde soluosoite vain väärin......b1 > b2 ja lisäsin siirtymää yhdellä....
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1533010En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois951614- 1431537
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1241435Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3741423Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991225Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet15941On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s48862Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks259815- 60805