Exceliin pudotusvalikko ja klikattava nappula - mites...?

excel_elukka

Eli mulla olis melkein valmis excel taulukko, jossa eka välilehdellä on sivu johon kirjotetaan kaikenlaisia tietoja ylös. Toisella ja kolmannella sivulla sitten käytetään ja varastoidaan näitä tietoja.

Pitäis saada luotua pudotusvalikko jolla valitaan kohde johon sitten nappulaa painamalla kopioidaan nämä tiedot. En ole kaipaamassa kädessäpitäen ohjetta, lähinnä tuo alasvetovalikon ja nappulan tekeminen ei onnistu sitten millään. Pari tuntia olen nyt googlettanut enkä apua ole löytänyt. pistin vielä alle kuvan selventämään mitä olis tarkoitus saada aikaan.

http://kuvat.mun.fi/?id=exceliinapuaTxwi.jpg


kiitos jo etukäteen, edes hyvä linkki olisi jo avuksi, kiitos :)

6

2473

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      View/Toolbars/Visual Basic ja siitä combobox. Tee sitten johonkin alueelle vaihtoehdot kohteille ja ominaisuuksissa ListFillRange laitat alueen.Nimeä alueet ja sitten nappi samasta valikosta ja napin koodiin

      Private Sub CommandButton1_Click()
      Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("C10")
      End Sub

      siinäpä se -ei paljon koodia vaaadi...

      • kunde

        niin sulla oli vaihtoehtojakin tallennukselle, joten koodiin korjaus

        Select Case Combobox1.Text
        Case Alue1
        Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("C10")
        Case Alue2
        Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("G10")
        Case Else
        End Select

      • excel_elukka
        kunde kirjoitti:

        niin sulla oli vaihtoehtojakin tallennukselle, joten koodiin korjaus

        Select Case Combobox1.Text
        Case Alue1
        Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("C10")
        Case Alue2
        Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("G10")
        Case Else
        End Select

        Combobox... oon aika käsi tämän excelin kanssa :). Eli mites tuommonen comboboksi tehdään (mulla on suomenkielinen excel)?

      • excel_elukka
        excel_elukka kirjoitti:

        Combobox... oon aika käsi tämän excelin kanssa :). Eli mites tuommonen comboboksi tehdään (mulla on suomenkielinen excel)?

        ...Ja excel 2002 versio käytössä...

      • excel_elukka
        excel_elukka kirjoitti:

        ...Ja excel 2002 versio käytössä...

        Teen varmaan sitten IF:llä koko homman kun en tajua mitään mitä kirjotit

      • excel_elukka
        excel_elukka kirjoitti:

        Teen varmaan sitten IF:llä koko homman kun en tajua mitään mitä kirjotit

        Oon kyllä täys apina tän excelin kanssa!

        Copy/pastella sain seuraavan aikaiseksi mutta ei toimi, miksi? Valittaa jo tuon eka rivin kohdalla että "Compile error: Argument not optional"...

        Eli tarkoitus olis neljä erilaista solukkoa kopsata toiselle välilehdelle haluttuihin paikkoihin (itse siis valittaisiin annetuista vaihtoehdoista se haluttu kohderyhmä siitä alasvetovalikosta...)

        Alasvetovalikon koodia ei sitten muokata ollenkaan, vai?

        ---
        Private Sub CommandButton1_Click()


        Select Case ComboBox1.Text

        Case kohde1
        Sheets("taalta").Range("I3:J29").Copy Sheets("sinne").Range("d6:e32")
        Sheets("taalta").Range("C34:D44").Copy Sheets("sinne").Range("d71:e81")
        Sheets("taalta").Range("C47:D57").Copy Sheets("sinne").Range("d85:e95")
        Sheets("taalta").Range("I34:J41").Copy Sheets("sinne").Range("d99:e106")

        Case kohde2
        Sheets("taalta").Range("I3:J29").Copy Sheets("sinne").Range("j6:k32")
        Sheets("taalta").Range("C34:D44").Copy Sheets("sinne").Range("j71:k81")
        Sheets("taalta").Range("C47:D57").Copy Sheets("sinne").Range("j85:k95")
        Sheets("taalta").Range("I34:J41").Copy Sheets("sinne").Range("j99:k106")

        Case kohde3
        Sheets("taalta").Range("I3:J29").Copy Sheets("sinne").Range("an6:ao32")
        Sheets("taalta").Range("C34:D44").Copy Sheets("sinne").Range("an71:ao81")
        Sheets("taalta").Range("C47:D57").Copy Sheets("sinne").Range("an85:ao95")
        Sheets("taalta").Range("I34:J41").Copy Sheets("sinne").Range("an99:ao106")


        Case Else

        End Select

        End Sub
        ---

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      22
      5494

    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      32
      4810

    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      28
      2731

    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2354

    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2058

    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2008

    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1647

    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1601

    9. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      23
      1472

    10. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      25
      1449
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt