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.
Vastaukset 2
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
Orpo pelästyi, kun asiat tulivat ilmi ? Hallitus ei enää tuekaan Garden hanketta
Pääministerinä Orpo on vastuussa hallituksensa päätöksenteosta. Hallitus päätti avokätisestä tuesta hankkeelle, joka ei3681423- 64952
- 116905
- 86893
- 66860
- 94701
- 45681
Voisitko mies auttaa..
Ottaisit yhteyttä vielä kerran, jos haluat? 🤔 Jätäthän ilkeät kommentit pois.50609En ehkä onnistu siinä
Kovasti minä yritän näyttää kauniilta, vain sinua varten, mutta en taida onnistua siinä.56604Miksi naiset tuoksuvat vaihdevuosien tietyssä vaiheessa todella etäännyttäviltä
Mietin tätä, onko luojalla ollut jokin tarkoitus näin voimakkaan lemun aikaan tekemiselle. Monet ajattelevat miten joku112564