Vinkki ;-)
Keksin vahingossa tämän kun koodia väsäilin- eipä ole vastaan netistä tullut
Kokeileppas tehdä erikoissuodatus jostakin Taul1 alueesta vain ainutkertaiset tietueet vaihtoehdolla ja kopioi toiseen paikkaan esim. Taul2 solu A1.
Ei onnistu kun Excel herjaa "Suodatettuja tietoja voi kopioida vain aktiiviseen taulukkoon "...
Näin se onnistuu...
1. Aktivoi Taul2 ja ruksit Kopioi toiseen paikkaan ja Vain ainutkertaiset tietueet
2. Luetteloalueeksi valitset normaalisti Taul1 alueen
3. Kopioi kohtaan joku Taul2 solu
4. Ok
ja siinä se!!!
tätä olinkin tarvinnut monesti, mutta olen sen joutunut kiertoteitse koodaamalla tekemään mutta nyt se meneekin todella iisisti. Eli kopioi Taul1 A1:A100 ainutkertaiset tietueet Taul2 soluihin C1:CXX
Sheets("Taul2").Activate
Sheets("Taul1").Range("A1:A100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
Keksin vahingossa tämän kun koodia väsäilin- eipä ole vastaan netistä tullut
Kokeileppas tehdä erikoissuodatus jostakin Taul1 alueesta vain ainutkertaiset tietueet vaihtoehdolla ja kopioi toiseen paikkaan esim. Taul2 solu A1.
Ei onnistu kun Excel herjaa "Suodatettuja tietoja voi kopioida vain aktiiviseen taulukkoon "...
Näin se onnistuu...
1. Aktivoi Taul2 ja ruksit Kopioi toiseen paikkaan ja Vain ainutkertaiset tietueet
2. Luetteloalueeksi valitset normaalisti Taul1 alueen
3. Kopioi kohtaan joku Taul2 solu
4. Ok
ja siinä se!!!
tätä olinkin tarvinnut monesti, mutta olen sen joutunut kiertoteitse koodaamalla tekemään mutta nyt se meneekin todella iisisti. Eli kopioi Taul1 A1:A100 ainutkertaiset tietueet Taul2 soluihin C1:CXX
Sheets("Taul2").Activate
Sheets("Taul1").Range("A1:A100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
Vastaukset
Vanhimmat
Ei viela vastauksia.