Hei,
minkälaisella VBA-koodilla etsitään taulokon viimeisen käytetyn rivin, tai ensimmäisen tyhjän rivin rivinumero, ja kuinka määritetään tulostusalueeksi rivin 1 ja edellisen perusteella löydetylle rivin välinen alue (siis makrolla)?
Kiitos jo etukäteen
-Pasi-
minkälaisella VBA-koodilla etsitään taulokon viimeisen käytetyn rivin, tai ensimmäisen tyhjän rivin rivinumero, ja kuinka määritetään tulostusalueeksi rivin 1 ja edellisen perusteella löydetylle rivin välinen alue (siis makrolla)?
Kiitos jo etukäteen
-Pasi-
Vastaukset 11
Vanhimmat
jos sulla on taulukko täytetty A1:stä lähtien, niin esim:
Sub alue()
Worksheets("Sheet1").Activate
Range("A1").CurrentRegion.Select
Selection.PrintOut
End Sub
tää printtaa default kirjoittimelle taulukosta Sheet1 ( Taul1) alueen, joka on täytetty - ei tarvi erikseen hakea ensimmäistä tyhjää riviä tai saraketta, menee näinkin
Välissä ei tietty sitten saa kokonaan tyhjiä rivejä tai sarakkeita olla
tarvitsen viimeisen rivin rivinumeroa muihinkin toimintoihin. Kokeilen tuota ehdottamaasi koodia, taulukkoni alkaa solusta B2 ja joka rivillä on jotain, ei kuitenkaan joka sarakkeessa.
Aiemmin olen etsinyt viimeisen rivin hiukan monimutkaisella koodilla, mutta tiedän siihen olevan helpon ja lyhyen tavan, en vain muista miten homma toimi.
Tulostusalueen määritystä tarvitsen siitä syystä, että taulukon kaikki solut on suojattu mutta erään makron yhteydessä suojaus poistetaan muokkausta varten. Nyt käy niin, että vaikkei soluissa olisikaan mitään, ilmeisesti suojauksen poiston takia Excel haluaa ehdottomasti tulostaa toistasataa ylimääräistä aivan tyhjää sivua...
Kiitos neuvostasi ;)
-Pasi-
Jos sinulla on jossain sarakkeessa joka rivillä "tavaraa", löydät viimeisen käytetyn rivin OSOITE funktiolla.
Esim B sarake käytössä joka rivillä
=OSOITE(LASKE.A(B:B);2;1;1)
Taulukkosi alkaakin vasta toiselta riviltä, täytyy lisätä rivinumeroon 1.
=OSOITE(LASKE.A(B:B) 1;2;1;1)
----------------------
Sub EtsiViimeinenRivi()
'
' EtsiViimeinenRivi Macro
' Macro recorded 23.4.2004 by Excelit.fi
'
' Etsitään viimeinen rivi sarakkeesta A
Dim ViimeinenRivi As String
ViimeinenRivi = Range("A10000").End(xlUp).Row
MsgBox "Viimeinen rivi on: " & ViimeinenRivi
End Sub
----------------------
Mikäli rivien korkeus on aina sama, pystyy muutamalla yksinkertaisella kaavalla ja tulostusmakrolla määrittämään halutun sivumäärän tulostukseen.
yatävällinen ja kerrot mitkä ne muutamat yksinkertaiset kaavat ovat ? Ja jos vielä sen makronkin jaksaisit kirjoittaa ??
Laitoin myös tulostustoiminnon samaan makroon, toinen tapa on tietysti tehdä erillinen tulostusmakro ja viitata siihen.
Liitteenä makro ja alempana pari kaavaa ja taulukko:
-------------------------
Sub EtsiViimeinenRivi()
'
' EtsiViimeinenRivi Macro
' Macro recorded 23.4.2004 by Excelit.fi
'
' Etsitään viimeinen rivi sarakkeesta A
Dim ViimeinenRivi As String
ViimeinenRivi = Range("A10000").End(xlUp).Row
MsgBox "Viimeinen rivi on: " & ViimeinenRivi
'Viimeisen sivun määritys ja tulostustoiminto
Sheets("Sheet2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = ViimeinenRivi
Dim ViimeinenSivu As String
ViimeinenSivu = Range("A3")
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=ViimeinenSivu, Copies:=1, Collate _
:=True
MsgBox "Tulostettu sivulta 1 sivulle " & ViimeinenSivu
End Sub
-------------------------
Niin, tuo makrohan ei vielä yksinään riitä vaan pitää tehdä aputaulukko (Sheet2) joka määrittää viimeisen sivun numeron kaavoilla ja taulukolla:
Sheet2 soluun A2 kaava "=A1/55-0,01" jossa A1 on Sheet1:n (tulostettava välilehti) viimeisen rivin numero, 55 on yhden tulostettavan sivun rivien määrä (riippuu näytöstä) ja -0,01 pyöristää rajatapaukset alemmaksi sivumääräksi.
Sivumäärätaulukko sarakkeisiin B ja C alkaen soluista B1 ja C1 ja päättyen soluihin B10 ja C10:
B C
----------
0 1
1 2
2 3
3 4
4 5
5 6
6 7
7 8
8 9
9 10
----------
Soluun A3 kaava "=VLOOKUP(A2;B1:C10;2;1)" joka hakee edelläolevasta taulukosta viimeisen sivun numeron. Mikäli haluat määrittää enemmän tulostettavia sivuja, niin se onnistuu helposti laajentamalla sarakkeiden B ja C taulukkoa alaspäin ja vastaavasti korjaamalla solun A3 kaavaa.
Näytölläsi saattaa yhden tulostussivun rivimäärä olla jokin muu kuin käyttämäni 55 riviä, kannattaa tarkistaa asia Page Setup -toiminnolla jolloin näet mille riville tulostuskatkoviiva asettuu.
kokeilen tuota keinoa. Saattaa ollakin hyvä, jos viimeisen rivin numero on jossakin taulukon solussa jolloin se päivittyy jatkuvasti ilman makroakin. Kiitos.
-Pasi-
juuri tuon tapaista makroa etsinkin. Näin lukemalla minulle ei heti aukea mitä kyseinen makro kaikkinensa tekee, mutta kokeilemallahan se selviää. Kiitos sinullekin.
-Pasi-
tämmöinen kävisi
Sub rintti()
Dim x As Long, lastCell As Range
x = ActiveSheet.UsedRange.Columns.Count
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
End Sub
ohjeesta, kokeilen tuotakin makroa kunhan kerkeän ;) Olisi kyllä kiva tietää mitä nuo rivit tarkoittaa, ehkä saan sen selville kunhan vähän aikaa tutkin ja kokeilen koodia..
Kiitos!
-Pasi-