Millä ohjelmalla ja miten

Sussssu

Eli olen syöttänyt lukuarvoja excel taulukkoon, esim. A1=100 ja B1=200 C1=13.7.2006, A1 tarkoittaa lähtöarvoa ja B1 päättymisarvoa eli Arvot ovat 100:sta 200:aan. Arvoja on useita riveja mutta kaikki alkuarvot sijaitsevat sarakkeessa A ja loppuarvot sarakkeessa B. Samat luvut voivat esiintyä useaan kertaan tai tiettyjen lukujen sisällä (esim. A2=120 ja B2=150 C2=10.8.2006). Arvoja tulee kokoajan lisää. (n.100riviä/vuosi) kuinka helpoiten tietoon että minä päivänä arvo 123 on lisätty? (arvojen jälkeen on lisäyspäivämäärä). Näillä arvoilla vastaus olisi 13.7 ja 10.8.

1

320

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Excelissä kannattaa tehdä.
      Moduuliin koodi...
      Nyt kysyy arvoa ja kopioi päiväykset F1 alkaen, muuta itsellesi sopivaksi :-)

      Sub Suodata()
      Dim Target As Range
      Dim i As Integer
      Dim Suodatetut As Range
      Dim KopioAlue As Range
      On Error GoTo virhe
      Range("F:F") = ""
      With Columns("A:C")
      x = Application.InputBox("Anna luku", Type:=1)
      .AutoFilter Field:=1, Criteria1:="=" & x, Operator:=xlAnd

      For Each solu In ActiveSheet.AutoFilter.Range.Columns(3).SpecialCells(xlCellTypeVisible)
      i = i 1
      Cells(i, 6) = solu.Value
      Next solu
      .AutoFilter
      End With
      Exit Sub
      virhe:
      Columns("A:C").AutoFilter
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      236
      4600
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      76
      3035
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2463
    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1767
    5. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      25
      1613
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1439
    7. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      85
      1285
    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      143
      965
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      938
    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      894
    Aihe