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.6565360Harmi että
Pidät niin vastenmielisenä. Olen minäkin välissä ollut ihan kamala sinulle ja ihmetellyt miten voit minusta tykätä. Se o212367- 1141607
Trump näytti slipoveri-ukolle kaapin paikan!
Slipoveri-ukko Ukrainan presidentti Volodimir Selenskyi meni tapaamaan valkoiseen taloon Trumppia ilman kunnon tuliaisia2321564- 931477
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos231416Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681175Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly91153Kun Zele jenkeissä kävi
Enää ei Zele saanutkaan miljardeja ilmaista rahaa niin helposti. Läksyttivät oikein kunnolla pientä miestä ja joutui poi3101116- 721047