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. Moikka rakas

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

    2. 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
      237
      3541

    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
      482
      1820

    4. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      137
      1587

    5. 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
      148
      1545

    6. Hinduilu on suurta eksytystä

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

    7. Näetkö feminismin uhkana

      Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?
      Ikävä
      217
      1427

    8. Miksi kaivata miestä

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

    9. Oot nainen kaunis

      muista hymyillä jatkossakin.
      Ikävä
      49
      1109

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

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