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

2471

Ää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. Immu otti pataan

      Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!
      Kotimaiset julkkisjuorut
      231
      3255

    2. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      16
      2519

    3. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      447
      1530

    4. Tykkäätkö halaamisesta?

      Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo
      Maailman menoa
      122
      1406

    5. Näetkö feminismin uhkana

      Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?
      Ikävä
      216
      1361

    6. Hinduilu on suurta eksytystä

      tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa
      Hindulaisuus
      548
      1313

    7. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      112
      1291

    8. Miksi kaivata miestä

      jolla ei edes muna toimi?
      Ikävä
      113
      1235

    9. Oot nainen kaunis

      muista hymyillä jatkossakin.
      Ikävä
      46
      974

    10. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      66
      954
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt