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
497
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
IL - Kansanedustaja tehnyt ITSEMURHAN eduskuntatalossa!!
"IL:n tiedot: Kansanedustaja tehnyt itsemurhan Eduskuntatalossa Iltalehden tietojen mukaan kansanedustaja on tehnyt its4058859Eemeli Peltonen teki itsemurhan eduskuntatalossa
Kevyet mullat sitten vaan. Ei mulla muuta.1723268- 171744
- 771136
- 761068
- 271055
Sylikkäin.
Sylikkäin, suudellen. Milloin haluaisit näin nainen tehdä ? Vain häntä ajatellen 😘. Tietenkin jos häntä asia kiinnosta641011Eemeli Peltosen viimeinen postaus Facebookissa!
"Olen ollut kevätistuntokauden viimeisillä viikoilla paljon poissa eduskuntatyöstä. Sain toukokuussa hyvää hoitoa HUSiss79975- 55973
- 65920