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
321
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
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt284088Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.462125Kun kohtaat jotain ainutlaatuista
ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö471335- 831194
Mua ahdistaa
Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi381138Ei tämä enää tervettä oo
Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.251116Perämoottoreiden huolto melkoisen kallista
Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä491047Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin161935Tanskademarit: ilman risusavottaa ei rahaa!
Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os173861- 57845