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
400
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
IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!
Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja18222399Some kuhisee Sanna Marinista: "Wau"
Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant799611Sannalla tänään vuorossa The Daily Show
Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.447602Äärioikeistopurran nukke Petteri Lapanen paniikissa
Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va866401SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"
Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei1896093Täysi ryöpytys Sanna Marinille ulkomailla.
https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot485092HS - Sanna Marinin kirja on priimaluokan vedätys!
Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.1164747Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään
eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm1054466Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"
Slava Ukraina-mölinät eivät enää auta. Ukraina on sotansa hävinnyt. Nyt tarvitaan poliittista selvänäköisyyttä, reaalipo942185Marin vetäs lopullisesti maton alta hallitusyhteistyöltä Kepun kanssa
Kurvinen on jo ennättänyt kommentoimaan, ettei Kepu ole koskaan enää kiinnostunut vasemmiston kanssa hallituspaikasta, k841477