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
535
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
Trump muka öljyn takia Venezuelaan? Pelkää mustamaalausta
Kertokaapa mistä tuollainen uutisankka on saanut alkunsta? Näyttäkääpä ne alkuperäiset lähteet, minä en löytänyt mitään18317549Kun Arman Alizad puolusti hiihtäjä Vilma Nissilää sanomalla
"älä välitä sekopäistä Vilma", ja kun siitä kerrottiin täällä, niin sekopäinen mukasuvaitsevainen teki siitä valituksen903785Lataus pakkaskelissä
En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu281849Martinalta vahva viesti
"Suuret unelmat venyttävät sinua, pelottavat vähän ja vievät mukavuusalueen ulkopuolelle. Juuri siellä kasvu tapahtuu. J2791524Miksei Trump ole kiinnostunut Suomen valloittamisesta?
Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?551481Akateemikko Martti Koskenniemi vertaa Trumpia Putiniin
"-Suomalaisena on syytä olla huolissaan siitä, että Yhdysvallat näin vahvistaa 1800-luvun alkupuolella julistamansa etup1601417Jos mies olet oikeasti...?
Kiinnostunut... Pyydä mut kunnolla treffeille ja laita itsesi likoon. En voi antaa sydäntä jos sinä olet epävarma ja eh1151314Esko Eerikäinen paljastaa järkyttävän muiston lapsuudesta - Isä löytyi alastomana slummista
Esko Eerikäisen tausta on monikulttuurinen, hän muutti vain 10-vuotiaana yksin kotoaan Kolumbiasta isovanhempiensa luo S141284- 811101
Nautitko riidan haastamisesta?
Itse olen hyvin kärsivällinen ja sopuisa noin yleensä, mutta osaan tarvittaessa olla hankala. Niin metsä vastaa kuin sin2091043