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
297
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
Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen
Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.6564810Harmi että
Pidät niin vastenmielisenä. Olen minäkin välissä ollut ihan kamala sinulle ja ihmetellyt miten voit minusta tykätä. Se o202255- 1031424
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos231336- 881332
Trump näytti slipoveri-ukolle kaapin paikan!
Slipoveri-ukko Ukrainan presidentti Volodimir Selenskyi meni tapaamaan valkoiseen taloon Trumppia ilman kunnon tuliaisia1301131Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681065Jos saan sinut elämääni
niin minun täytyy nukkua ihan ensimmäiseksi 2vk putkeen. Sopiiko se sinulle? Väsynyt olen ollut ja niin levollinen olo75955Kun Zele jenkeissä kävi
Enää ei Zele saanutkaan miljardeja ilmaista rahaa niin helposti. Läksyttivät oikein kunnolla pientä miestä ja joutui poi253950- 72947