Haluaisin suodattaa tietoja erikoissuodatuksen avulla eri välilehdiltä makron avulla. Kyselyn pitäisi tapahtua niin, että makro osaisi ottaa tietystä solusta tiedon että mistä välilehdestä suodatus pitäisi tehdä. Miten tämä onnistuisi? Miten kaavaa tulee muuttaa jotta solu voi antaa tarvittavan tiedon? Haluan siis että voin muuttaa soluun arvon (esim "Vko 33") ja makro osaisi sen perusteella hakea saman nimiseltä välilehdeltä tietokannan mistä suodattaa.. Tietokanta on samanlainen kaikilla välilehdillä, arvot vaan ovat eri..
Sub Testimakro()
'
' Testimakro Makro
'
'
' Miten makro osaisi ottaa tiedon Sheets "Vko 32" aktiivisesta välilehdestä solusta D2?
'
Sheets("Vko 32").Range("A72:R246").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Ehtotaulu").Range("D3:E5"), CopyToRange:=Range( _
"B3:B33"), Unique:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
Sub Testimakro()
'
' Testimakro Makro
'
'
' Miten makro osaisi ottaa tiedon Sheets "Vko 32" aktiivisesta välilehdestä solusta D2?
'
Sheets("Vko 32").Range("A72:R246").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Ehtotaulu").Range("D3:E5"), CopyToRange:=Range( _
"B3:B33"), Unique:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.