Sain "Nimimerkiltä" tämän makron, nyt tarvitsisi muuttaa sitä niin että voisi tulostaa samassa tyäkirjassa olevia muita taulukoita vaikka tämä taulukko ei olekkaan vielä täynnä. Tämähän estää työkirjan kaikki taulukot?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim mySolu As Range
For Each mySolu In Range("tarkistaNamaSolut")
If mySolu = "" Then
Cancel = True
MsgBox ("Et voi tulostaa! tietoja puuttuu ")
Exit Sub
End If
Next mySolu
End Sub
http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000023015867
tietojen tarkistus
kavi
3
303
Vastaukset
oletuksena nyt eka taulukko, jota testataan
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim mySolu As Range
If ActiveSheet.Name = Worksheets(1).Name Then
For Each mySolu In Range("tarkistaNamaSolut")
If mySolu = "" Then
Cancel = True
MsgBox ("Et voi tulostaa! tietoja puuttuu ")
Exit Sub
End If
Next mySolu
End If
End Sub- kavi
Kiitoksia Kundelle.
- kavi
kavi kirjoitti:
Kiitoksia Kundelle.
Pystyykö makrossa määrittelemään MsgBox tekstin kokoa, väriä, fonttia tai yleensäkään mitään?
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 313010
- 951626
- 1271464
Mira Luoti ja Julkkisselviytyjät 2017 - Ketä kuumottaa juuri nyt?
HS: Tässä ohjelmassa Mira Luoti kertoi kokeneensa seksuaalista väkivaltaa "PMMP-yhtyeen Mira Luoti kertoo Ylen uudessa381306- 821209
Törkeä eläinsuojelurikos Sonkajärvellä
Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo261099- 541018
Julkisuuden henkilön päiväin päätös
Sitä vaan, että kyllä nyt kaikki tietävät kuka oli Eemeli Peltola (kansanedustaja, joka päätti päivänsä eduskuntatalossa270971MESTARI SIVALTAA JÄLLEEN
https://www.is.fi/politiikka/art-2000011436243.html Suomen ainoa Mestari lausuu tosiasiat Sannasta , Tuomiojasta ja hil230958Jotkut ihmiset pelkäävät syöpää sairastavaa
On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall124937