Mulla on käytössä työkirja, jossa saattaa olla tulostettavia sivuja 2-34 riippuen siitä kuinka paljon taulukossa on rivejä. Onko mahdollista tehdä makro joka valitsisi tulostus alueen tietyssä sarakkeessa (esim. sarake O) olevan rivimäärän mukaan?
Tulostusalueen määrittely
3
447
Vastaukset
- EllaV
Helpoin tapa on ensin tarkastaa kuinka paljon rivejä löytyy mikäli kaikilla riveillä on edes jotain eli eivät ole tyhjiä.
dim inRivit as integer
dim i as integer
for i = 1 to 3000 'Määrällä ei ole merkitystä kunhan on riittävästi
if wordbooks("Sheet1").Range("A" & i) "" then
inRivit = inRivit 1
else
exit for
end if
'Siitä kun on hypätty pois niin (olettaen että sivu aktiivinen
range.("A1:O" & inRivit).select
selection.print
Valitettavasti en linukan puolelta pysty tarkastamaan toimiiko mutta vaikkaisin että aika lähelle osuu. - Miksuit
Sub ValitseTaulu()
Dim VR As Integer
Dim VS As Integer
VR = Selection.SpecialCells(xlCellTypeLastCell).Row
VS = Selection.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(VR, VS)).Select
End Sub Excelin omilla funktioilla
ThisWorkbook moduuliin...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim vika As Integer
vika = Range("O65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & vika
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Miten Eerolan silmäkuvat voivat levitä muutamassa tunnissa ympäri maailmaa?
Seuraako koko maailma persujen ja erityisesti Eerolan somea reaaliajassa? Edes kansanedustajan itsemurha eduskuntatalos4626574Suomen kansa haluaa Antti Lindtmanista pääministerin
Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http1863907Vain 21% kannattaa Lindtmania pääministeriksi
se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?1092521Miten löydän sinut
Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit262040Moraaliköyhä S-ryhmä
S-ryhmä on kehystänyt Israel-boikottipäätöksen “ihmisoikeuslinjaukseksi”, mutta toteutus paljastaa sen onttouden: valiko1371424Yöllinen autolla kaahari Heinolan seudulla
Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?751315- 681166
- 631095
Vaikea tilanne
Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te771089- 451028