Onko mahdollista saada makron tarkastamaan onko kaikki tiedot syötetty ja antaa vasta sen jälkeen mahdollisuuden tulostaa taulukon.
Elikä on taulukko johon tiedot syötetään eri aikaan ja kun kaikki tiedot on syötetty niin taulukko on tulostettava.
Elikä on taulukko johon tiedot syötetään eri aikaan ja kun kaikki tiedot on syötetty niin taulukko on tulostettava.
Vastaukset 4
Vanhimmat
> antaa vasta sen jälkeen mahdollisuuden tulostaa taulukon.
"ThisWoorkbook" oliosta löytyy "BeforePrint" Tapahtuma - Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sinne tarkistus jossa käydään halutut solut onko tyhjiä ja jos joku solu on tyhjä niin perutaan tulostus.
Kannattaa varmaan ensin valita solut jotka haluat tarkistaa ja sitten annat niile nimeksi vaikka "TarkistettavatSollut" sitten koodissa käyt noi solut for lauseella läpi ja jos löytyy tyhjä solu laita se "Cancel = True" asentoon niin printtaus peruuntuu
Yritä ensin itse ja kysy tarkemmin missä et saa toimimaan.
>kun kaikki tiedot on syötetty niin taulukko on tulostettava.
jos siis haluat että taulukko ilmoittaa kun kaikki tiedot on syötetty ilman että sitä yritetään tulostaa niin laita tuo tarkistus aina kun solun valinta muuttuu eli Sheet olion SelectionChange Tapahtumaan - Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
tässäkin kannatta ensin nimetä ne solut jotka haluat tarkistaa ja sitten käydä kyseiset solut läpi jos ei löydy tyhjiiä soluja niin MsgBox:lla ilmoitus että voi tulostaa
Tässä tuosta toisesta vaihtoehdosta testattu makro, kokeile jos tuo vastaa tarkoitustasi, huomaa nimetä tarkistettavat solut nimellä "tarkistaNamaSolut" voit tietenkin pistää oman maun mukaan muunkin nimen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim mySolu As Range
For Each mySolu In Range("tarkistaNamaSolut")
If mySolu = "" Then Exit Sub
Next mySolu
MsgBox ("Voit Tulostaa")
End Sub
Tuosta ekasta vaihtoehdosta voisi tulla vastaavasti tällainen, en testannut:
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, jotakin tietoja puuttuu")
Exit Sub
End If
Next mySolu
End Sub
ensinmäinen ohje antoi jotain herjaa, mutta ei sillä väli kun toinen toimi niin kuin pitääkin.
Olen ollut kokoviikon koulutuksessa en ole siksi päässyt vielä testaamaan tuota makroa, yritän testata kun kiire vähenee kiitos opastuksesta.