Taul1:ssä on taulukko jonka A-sarakkeessa on päivämäärä, miten saan taul2 haettua määrätyn päivämäärän kaikki rivit?
Yritän saada aikaan jotain tämmöistä: käyttäjä syöttää taul2 soluun A1 haluamansa päivämäärän ja käynnistää makron painikkeesta. Makro tuo haetun päivän rivit taul1:stä taul2:een alkaen solusta A3.
Ehdollinen siirto toiseen työkirjaan
makrollako
5
548
Vastaukset
taulukko2 moduuliin napille koodi
Private Sub CommandButton1_Click()
Siirrä
End Sub
moduuliin...
Option Explicit
Sub Siirrä()
Dim Löydetty As Range
Dim haku As Date
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("Sheet2").Activate
Range("A3:A1000").EntireRow.Clear
haku = CDate(Range("A1"))
Set Löydetty = EtsiJaSiirrä(haku, Range("Sheet1!A:A")).EntireRow
Union(Löydetty, Löydetty).Copy Range("Sheet2!A3")
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
With HakuAlue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
Worksheets("Sheet2").Activate
End Function
muuttele nimet sopiviksi- Tiina K.
Mainio koodi. Vähän on tilausta samanlaiseen...
A-sarakkeessa kulkee päivämäärät ja B-E sarakkeella on arvoja.
Miten saisi tehtyä toiselle sivulle kuvaajan, jossa on syöttö solut alku ja loppu sekä mitä saraketta halutaan kuvattavan. Niihin laitetaan niin se hakee kyseisen alueen luvut ja tekee kuvaajan. Nykyään olen tehnyt piilottelemalla rivejä sen mukaan mitä haluan jne. :)
Helpottaisi ilkeän pomon nopeita pyyntöjä. Voisin vaikka kokeilla tehdä sitä myös visual basicillä, niin samalla tulisi sekin tutuksi. - makrollako
Kiitos vastauksesta. Valitettavasti ehdin testata tätä vasta ensi viikolla, mutta eiköhän tuo ole juuri sitä mitä haen.
Tiina K. kirjoitti:
Mainio koodi. Vähän on tilausta samanlaiseen...
A-sarakkeessa kulkee päivämäärät ja B-E sarakkeella on arvoja.
Miten saisi tehtyä toiselle sivulle kuvaajan, jossa on syöttö solut alku ja loppu sekä mitä saraketta halutaan kuvattavan. Niihin laitetaan niin se hakee kyseisen alueen luvut ja tekee kuvaajan. Nykyään olen tehnyt piilottelemalla rivejä sen mukaan mitä haluan jne. :)
Helpottaisi ilkeän pomon nopeita pyyntöjä. Voisin vaikka kokeilla tehdä sitä myös visual basicillä, niin samalla tulisi sekin tutuksi.moduuliin...
ja liitä koodi nappiin
muuttele nimet sopiviksi ja nauhoita makro , jolla saat oikean kaaviotyypin...
nyt
sheet2 solut D(alkupvm),E(loppupvm),F(mikä sarake näytetään) syöttösoluina ja tiedot sheet1 sarakkeet A-Dkunde kirjoitti:
moduuliin...
ja liitä koodi nappiin
muuttele nimet sopiviksi ja nauhoita makro , jolla saat oikean kaaviotyypin...
nyt
sheet2 solut D(alkupvm),E(loppupvm),F(mikä sarake näytetään) syöttösoluina ja tiedot sheet1 sarakkeet A-Dmoduuliin...
Sub SuodataJaTeeKaavio()
Dim dAlku As Date
Dim dLoppu As Date
Dim lAlku As Long
Dim lLoppu As Long
Dim Näytä As String
Dim vika As Integer
Dim kaavio As ChartObject
Dim Kaaviot As ChartObjects
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("Sheet2").Activate
For Each kaavio In ActiveSheet.ChartObjects
kaavio.Select
kaavio.Delete
Next
Columns("A:B").Clear
Näytä = Range("F1")
If IsDate(Range("D1")) Then
dAlku = Range("D1")
dAlku = DateSerial(Year(dAlku), Month(dAlku), Day(dAlku))
lAlku = dAlku
End If
If IsDate(Range("E1")) Then
dLoppu = Range("E1")
dLoppu = DateSerial(Year(dLoppu), Month(dLoppu), Day(dLoppu))
lLoppu = dLoppu
End If
Worksheets("Sheet1").Activate
With Sheet1
.AutoFilterMode = False
.Range("A:D").AutoFilter
.Range("A:D").AutoFilter Field:=1, Criteria1:=">=" & lAlku, Operator:=xlAnd, Criteria2:="
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Pride-rautu korvaamaan kirjolohi
Kekkosen saatanan tunari meni muuttamaan aikoinaan sateenkaariväen kalan nimen. Unkarin vallankumouksen innoittamana n422606Purran aikaisemmat kannattajat siirtyneet Lindtmanin leiriin
Melkoinen muutos on käynnissä Suomen politiikan kentällä. Tulevista häviäjistä on hirmuinen kiire päästä ajoissa voittaj1382543Järkyttävä hetki - Ellen Jokikunnas pöyristyy italialaisen lääkärin työstä
Unelmia Italiassa -sarjassa ollaan Ellen Jokikunnaksen perheen kanssa Italiassa. Jokikunnas ja Rask ovat rempanneet kakk291697Työeläkkeet ovat pois työntekijän palkasta
Jokainen työeläkkeen nimissä maksettu euro on otettu pois työtä tekevältä palkansaajalta. Mitä korkeampi työeläketaso o751352Oot tosi epätavallinen
ja erikoinen nainen. Tykästyä ikihyviksi sun kaltaiseen naiseen, mitä tästä pitäis edes ajatella.491317Etkö sä muru mussakaiseni ymmärrä
Että me päästään lähenemään vain kaveruuden kautta? Vain siten mä voin lähettää sulle kuvia ja viestejä 😌 Tänäänkin o321094- 841087
Muistatko? Maisa Torppa jakso räjäytti Veitolan somen: "epäaitoa ja teeskentelyä"...
Maisa Torppa täyttää tänään 35 vuotta, onnea! Maria Veitola vieraili Yökylässä-ohjelmassa aikansa kohujulkkis Maisa To131018- 42945
- 53825