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
328
Vastaukset 3
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
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S58780- 34775
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125726- 88653
- 24554
- 40527
Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle63489Lehtikankaan oppilas kuolema
Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞9462- 40444
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.64434- 45426
- 57409
Nyt kaatuu Kuisla
Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee24400Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.23398- 72393
- 39393
- 38384
- 33381
- 35377
Ylen suosikkisarja tuotti pettymyksen - Loppuiko Ellis tv-sarja todella tähän?
Nyt Suomessa on nähty tv-sarjan kaksi ensimmäistä kautta. Toisella kaudella tiedossa oli tv-katsojille ikävä yllätys,0376