Haluaisin kopioida luettelon toiseen paikkaan. Minulla on pitkä nimilista (kaksi saraketta ryhmä ja nimi), josta haluan poimia ihmiset jotka kuuluvat esim a-ryhmään. Ajattelin käyttää kelpoisuustarkistusta, jossa olisi luettelona ryhmä a,b ja c. Kun valitsen ryhmän jäsenet kopioituisivat listaksi valintani alapuolelle. Optimi tilanne olisi, jos saisin kopioitua kaavaa.
Luettelon kopiointi
JOS
2
513
Vastaukset
laita otsikot
A1=ryhmä B1=nimi D1=ryhmä
A4=ryhmä B4=ryhmä
solusta A5 alkaen dataa
soluun D2 kelpoisuusehto a,b,c
soluun A2 kaava =D2
taulukon moduuliin...
Private Sub Worksheet_Calculate()
Dim vika As Integer
On Error GoTo virhe:
Application.EnableEvents = False
vika = Range("D65536").End(xlUp).Row
Range("D4:E" & vika) = ""
vika = Range("A65536").End(xlUp).Row
Range("A4:B" & vika).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("D4"), Unique:=False
virhe:
Application.EnableEvents = True
End Sub- JOs
Kiitos
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 764261
Purra on kantanut vastuuta täyden kympin arvoisesti
Luottoluokituksen lasku, ennätysvelat ja ennätystyöttömyys siitä muutamana esimerkkinä. Jatkakoon hän hyvin aloittamaans903968Surullista
Että menetit sen naisen , tosi surullista ja vielä oman tyhmyyden takia ,ymmärrän että se on masentavaa572478Muuttunut käytös
Onko kaivattusi käytös muuttunut? Tiedätkö mistä se johtuu? Haluatko kertoa, mitä tapahtui?672337Väkeä oli liikkeellä
Nyt leijutaan pilvissä. Kun eläinpuistossa oli porukkaa 😆😆 Olihan siellä kun ilmaiseksi pääsivät. Eiköhän se juuri sik412044- 1231931
- 491919
Kummallista
Oletteko koskaan ihastuneet ihmiseen, joka ei ulkonäöltään vastaa ollenkaan ihannettanne?541678- 561672
- 661582