Alasvetovalikko muutettavalla kohdesolulla

Markus R

Tarttisin tällaisen:
Alasvetovalikon tiedot ovat soluissa A1:A20. Valikon oltava yhden rivin korkuinen, mutta sitä klikatessa näkyviin tulee 8 riviä. Kaikki vaihtoehdot eivät siis näy, vaan tarvitaan vielä vierityspalkki. Valinnan tehtyä klikkaamalla valikko palautuu yhden rivin korkuiseksi ja valinta (tai sen järj.nro) tallentuu kohdesoluun. Kohdesolu on aktiivisena olevan rivin ja sarake 5 mukainen solu. (Eli se rivi joka oli klikattuna ennen alasvetovalikon käyttöä.)

Osaako joku auttaa?

5

972

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • taulukon moduuliin...

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      ComboBox1.LinkedCell = Cells(Target.Row, 5).Address
      End Sub

      jaa noi muut jutut taitaakin olla ominaisuuksien oletusjuttuja
      ListRows=8

      • Kelpoisuustarkistus

        saman asian ilman makroa. Eli:
        Valitse solu(t) johon haluat kelpoisuustarkistuksen ja mene Tiedot - Kelpoisuustarkistus ja Asetukset-välilehdeltä "Hyväksy"-alasvetovalikosta valitse "Luettelo" ja Lähde kohtaan annat solut josta löytyy nuo 20 arvoa (esim. A1:A20)ja OK.
        Nyt kun klikkaat solua johon asensit tuon kelpoisuustarkistuksen ilmestyy nuoli jota klikkaamalla avautuu valikko josta voit valita haluamasi arvon soluun.


      • Kelpoisuustarkistus kirjoitti:

        saman asian ilman makroa. Eli:
        Valitse solu(t) johon haluat kelpoisuustarkistuksen ja mene Tiedot - Kelpoisuustarkistus ja Asetukset-välilehdeltä "Hyväksy"-alasvetovalikosta valitse "Luettelo" ja Lähde kohtaan annat solut josta löytyy nuo 20 arvoa (esim. A1:A20)ja OK.
        Nyt kun klikkaat solua johon asensit tuon kelpoisuustarkistuksen ilmestyy nuoli jota klikkaamalla avautuu valikko josta voit valita haluamasi arvon soluun.

        ei kyllä tuota voi tehdä. Toi kelpoisuusehto toimii, jos laitat joka soluun kelpoisuusehdon, mutta kun pyydettiin...

        "Kohdesolu on aktiivisena olevan rivin ja sarake 5 mukainen solu."

        tuota ei voi tehdä ilman koodia


      • Markus R

        Suurkiitokset!

        Entäs jos haluan kohdesoluun valinnan järjestysnumeron?

        Rautalanka:
        Valikossa vaihtoehdot: kissa, koira, hiiri.
        Valitsen hiiren, jolloin kohdesoluun tulee numero 3, koska hiiri oli valikon kolmas vaihtoehto.


      • Markus R kirjoitti:

        Suurkiitokset!

        Entäs jos haluan kohdesoluun valinnan järjestysnumeron?

        Rautalanka:
        Valikossa vaihtoehdot: kissa, koira, hiiri.
        Valitsen hiiren, jolloin kohdesoluun tulee numero 3, koska hiiri oli valikon kolmas vaihtoehto.

        taulukon moduuliin...

        Private Sub ComboBox1_Click()
        Cells(ActiveCell.Row, 5) = ComboBox1.ListIndex 1
        'jos haluat jättää valinnan näkyville hipsaa seuraava rivi
        ComboBox1.ListIndex = -1
        ActiveCell.Select
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      224
      4312
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      70
      2777
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      394
      2443
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2363
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      43
      1657
    6. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      555
      1406
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      57
      1340
    8. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      96
      1334
    9. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1329
    10. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      125
      1206
    Aihe