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

950

    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. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      130
      2435
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      109
      1454
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      133
      1243
    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      346
      1208
    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      104
      1117
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1025
    7. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      46
      739
    8. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      719
    9. Ei koskaan saatu tuntea

      Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee
      Ikävä
      33
      710
    10. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      13
      691
    Aihe