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

962

    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.


      • kunde
        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. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      39
      12490
    2. V*ttuu että mä haluan sua

      Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!
      Ikävä
      91
      4291
    3. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      110
      4023
    4. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      51
      3658
    5. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      53
      3351
    6. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      116
      3304
    7. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      48
      2235
    8. Koska olet viimeksi nähnyt ikävän kohteesi?

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      39
      2143
    9. Keskusta hajoaa Palojärvi lähtee

      Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul
      Kemijärvi
      27
      1968
    10. On sillä rääpyä

      Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva
      Ähtäri
      13
      1661
    Aihe