Tarkoitus on luoda UserForm, jossa on checkboxeja, joiden perusteella liitetään yhteen multi area kokoelmaan useita alueita tulostusta ja esikatselua varten, kumpaakin toimintoa varten on nappi. Alueet on nimetty excelissä.
Olen kokeillut union methodia näiden nimettyjen alueiden yhdistämiseen, se toimi ihan hyvin muuten, mutta jotta voisin liittää tähän multi area kokoelmaan alueita, sen pitää olla alustettu.
Dim MyMulti as range
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows("1:12").Address
Set MyMulti = Range("Alue1")
MyMulti = Application.Union(MyMulti, Range("Alue2"))
Jne..
Miten saan tehtyä tämän niin että voin valita Alue1.. ..Alue9 välillä checkboxien kautta mitkä tai minkä sivun haluan esikatseluun tai tulostukseen?
If.. Then rakenteesta tulee aika monimutkainen, ainakin minun vaatimattomilla taidoillani.
Kiitos etukäteen loistavista ratkaisuista!
Named range
2
250
Vastaukset
lomakkeen moduuliin...
ja kaikki nimet nyt oletusnimiä ja alueet nimetty checkbox captionin nimillä työkirjassa esim Alue1, Alue2 jne
Option Explicit
Dim ctl As Control
Public MyMulti As Range
Sub MaaritaAlue()
Set MyMulti = Nothing
On Error Resume Next
For Each ctl In UserForm1.Controls
If TypeName(ctl) = "CheckBox" Then
If ctl.Value = True Then
If MyMulti Is Nothing Then
Set MyMulti = Range(ctl.Caption)
Else
Set MyMulti = Application.Union(MyMulti, Range(ctl.Caption))
End If
End If
End If
Next
'MsgBox MyMulti.Address
End Sub
Private Sub CheckBox1_Click()
MaaritaAlue
End Sub
Private Sub CheckBox2_Click()
MaaritaAlue
End Sub
Private Sub CheckBox3_Click()
MaaritaAlue
End Sub
Private Sub CheckBox4_Click()
MaaritaAlue
End Sub
Private Sub CommandButton1_Click()
On Error GoTo virhe
MyMulti.Select
'Me.Hide
'ActiveSheet.PrintPreview False
Exit Sub
virhe:
MsgBox "sinun täytyy valita ainakin yksi alue tulostusta varten!", vbInformation
End Sub- CheckBox
Jep, ei se sitten ollutkaan niin monimutkainen, mun viritys oli 4 kertaa pitempi, eikä se saatana edes toiminut :)
Kiitos ja kumarrus!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww574230- 472891
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1322175Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051896Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.641383Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381177- 1731066
Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1871049En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois871048Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-161012