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.
Millä ohjelmalla ja miten
1
320
Vastaukset
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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2364600Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii763035- 472463
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua451767- 251613
- 781439
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘851285PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden143965- 69938
Sellainen tunne sydämessä
Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,86894