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

2477

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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...

      • 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ä.

    Luetuimmat keskustelut

    1. Mitä ominaisuutta arvostat eniten hänessä?

      Ihastuksessasi, rakkautesi kohteessa
      Ikävä
      167
      2804
    2. Miksi mies kääntyy poispäin

      Ja teeskentelee, ettei näe minua, kun törmäämme vahingossa? 🫣
      Ikävä
      201
      2087
    3. Oletko kertonut jo muille tunteistasi?

      Ystävillesi esimerkiksi? Minä en ole vielä kertonut kenellekään tästä meidän jutusta.
      Ikävä
      50
      1922
    4. Kerro kaivatustasi.

      1. Minkälainen koti 2. Ammatti 3. Ulkonäkö 4. Ikä
      Ikävä
      71
      1776
    5. Kysy jotain kaivatultasi

      Laita tunnisteet molemmista
      Ikävä
      92
      1658
    6. Kesä, kesä!

      Veikkaan, ettet juuri nyt ikävöi minua, ehket enää koskaan? Näkemättömyys on laimentanut tunteet, ja katselet iloisena k
      Tunteet
      9
      1531
    7. Minkälaisesta seksistä

      haaveilet kaivattusi kanssa?
      Ikävä
      81
      1244
    8. Kai me nainen jollain tasolla tykätään

      Toisistamme kun tämä on kestänyt niin kauan
      Ikävä
      81
      1080
    9. Tarkkanäköisyys

      Oon muuten pirun hyvä huomaamaan asioita! Senhän sä varmaan kyllä jo tiesitkin.
      Ikävä
      95
      1039
    10. Miksi sanotaan että Suomella on suuri armeija, tykistö jne.

      Asioita tarkemmin seuranneet tietävät että tuolla Ukrainassa palaa kuukaudessa sen verran mitä Suomella on kokonaisuudes
      Maailman menoa
      196
      1030
    Aihe