Hei, nauhoitin makron ja muokkasin sen tällaiseksi:
Sub vuosi()
Dim v As Integer
Range("A3").Select
v = Application.InputBox("Anna vuosi muodossa VVVV", Type:=1)
Selection.AutoFilter Field:=1, Criteria1:=">=1.1." & v, Operator:=xlAnd, _
Criteria2:="
AutoFilter ei toimi makrolla oikein
apua pyydän
1
195
Vastaukset
päivämäärät on usein kinkkisiä excelissä. Toimiakseen lajittelussa vaatii jenkkityyliset päiväykset, mutta koska Excel tallentaa päivät numeroina niin ne kannattaa muuttaa luvuiksi
korjasin hiukan koodiasi ja nyt se toimii
Sub vuosi()
Dim v As Integer
Dim Päiväys1 As Long
Dim Päiväys2 As Long
Range("A3").Select
v = Application.InputBox("Anna vuosi muodossa VVVV", Type:=1)
Päiväys1 = DateSerial(v, 1, 1)
Päiväys2 = DateSerial(v 1, 1, 1)
Selection.AutoFilter Field:=1, Criteria1:=">=" & Päiväys1, Operator:=xlAnd, _
Criteria2:="
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 18711418
- 575422
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html462687- 402365
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131841Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,441795Otavassa tapahtuu!
Rakennuspalo, yläkerta tulessa. Henkirikosta epäillään. Tiettyä henkilöautoa etsitään, minkä mahdollinen epäilty ottanut271463Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta411450Tulemmeko hyvin
Toimeen ja juttuun keskenämme? Luulen, että sopisit hyvin siihen ☀️ympäristöön, paljon kaikkea erilaista.♥️mietin tätä s61386Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v371359