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
190
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
- 1824200
- 331538
Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi401470Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen211433Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,171332- 1071259
Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381167Moi, nainen
Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun301160- 121067
Sulla on uskomaton luonne
Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s441018