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
209
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
Kelekkakisat
Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.2110935- 408207
- 1255245
- 1433646
- 693558
Virkamiehille tarvitaan tuntuvat palkankorotukset
Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi353514- 333157
- 552519
Olisipa saanut sinuun
Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak352011- 281786