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
398
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
Mieleni harhailee sinussa
Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei132596Jännitän sinua J mies
Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.1221267- 891195
Orpo suunnittelee palestiinalaislasten Suomeen siirtoa
"Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli2451024Kuinka kauan kesti että ihastuit
Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi511013Olen käyttäytynyt sinua kohtaan väärin toistuvasti
Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk63924Tunneälyä testaamaan!
Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/1253826- 84796
- 41722
- 35719