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 :)
Exceliin pudotusvalikko ja klikattava nappula - mites...?
excel_elukka
6
2524
Vastaukset
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 SelectCombobox... 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
Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi
Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit866023KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!
STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti3255201Huono päivä
Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja202658Mikä siinä on ettei persuille leikkaukset käy?
On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei512605Lääppijä Lindtman jäi kiinni itse teosta
Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852831842Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT1031669- 1111531
Puolen vuoden koeaika
Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro171521seurakunnan talouspäällikön valinta meni perseelleen
Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa1201420Olen ihmetellyt yhtä asiaa
Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm1331393