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
394
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
- 1868543
En löydä sinua
En löydä sinua täältä, etkä sinä varmaankaan minua. Ennen kirjoitin selkeillä tunnisteilla, nyt jätän ne pois. Varmaan k264648- 504178
- 593722
- 513186
- 502950
Ne oli ne hymyt
Mitä vaihdettiin. Siksi mulla on taas niin järjetön ikävä. Jos haluat musta eroon päästä niin älä huomioi mua. Muuten kä262656- 432451
Anteeksi kun käyttäydyn
niin ristiriitaisesti. Mä en usko että haluaisit minusta mitään, hyvässä tapauksessa olet unohtanut minut. Ja silti toiv382143- 292086