Valintanappi ja tulostus

valintanappi

ELI taulukossa 1 on kaksivalinta nappia joista jompi kumpi on valittava. Valinnan tarkoituksena on määrittää mitä tulostetaan painonapin ja makron avulla.
Valintanapit antavat linkkisoluun arvon 1 tai 2 riippuen siitä kumpi on valittu. Miten saan yhditettyä tuon tiedon tulostuspainikkeen makroon?

Valinta 1 tulostaa taul1 ja valinta 2 tulostaa taul 1 sekä taul 2. Erillisinä TULOSTA painikkeina se olisi helppoa mutta millainen koodi tarvitaa jotta tulostus tapahtuisi vakinnan mukaan.

1

181

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • tietämättä mistä valikosta olet napit lisännyt tein nyt visual basic valikosta valintanapeille
      taulukot 1 ja 2 oletuksena samoin nappien nimet

      ThisWorkbook moduuliin...

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
      On Error Resume Next
      Application.EnableEvents = False
      ActiveSheet.Select
      Select Case True
      Case Sheets("Taul1").OptionButton1
      Sheets("Taul1").Select
      Case Sheets("Taul1").OptionButton2
      Sheets("Taul1").Select False
      Sheets("Taul2").Select False
      End Select
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
      Sheets("Taul1").Select
      Cancel = True
      Application.EnableEvents = True
      End Sub

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

    Luetuimmat keskustelut

    1. Olet nuorempi nainen aivan ihana

      Tykkään susta ihan valtavasti ❤️❤️
      Ikävä
      56
      1288
    2. Pitkäaikaistyöttömyys Suomessa harvinaisen paha

      Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.
      Maailman menoa
      157
      1232
    3. Mitä vastaisit

      Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle
      Ikävä
      60
      1115
    4. Janni Tikkanen ohjattiin miesten pukuhuoneeseen

      Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu
      Kajaani
      54
      1093
    5. Tiedän ettet tehnyt tahallasi pahaa

      Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo
      Ikävä
      103
      1087
    6. Rakastan ja ikävöin sinua

      Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä
      Ikävä
      56
      873
    7. Nyt tiistain galluppi alkaa....

      Kuka on sun elämän rakkaus? Ketä kaipaat edelleenkin? Nyt nimiä vaan rohkeesti tuohon alle.Tää on ikäväpalsta, eikä mikä
      Ikävä
      56
      853
    8. Miten aiot saada kaivattusi?

      1) loukuttamalla 2) kidnappaamalla 3) huijaamalla 4) jokin muu, mikä?
      Ikävä
      54
      785
    9. Upea takamus

      Sulla on nainen upea takamus.
      Ikävä
      32
      782
    10. Vihjeketju naisille

      Kirjoita tähän vihjeesi kaivatullesi.
      Ikävä
      51
      777
    Aihe