MS Excel

Dobrý den. Je možné makrem najít poslední řádek a poslední sloupec stránky? Tedy "čárkované" hranice po otevření sešitu. Zkusil jsem objasnit v příloze. Díky Vladimír Krist

Zaslat odpověď >

Hav-Ran(28.9.2016 10:25)#032915

Do svojho makra zabudujte napr. toto:

Sub poslednySaR()
Dim r As Long
Dim c As Integer
With ActiveSheet.UsedRange
r = .Row + .Rows.Count - 1
c = .Column + .Columns.Count - 1
End With
MsgBox "Riadkov " & r & " ."
MsgBox "Stlpcov " & c & " ."
Cells(r, c).Select
End Subcitovat

Palooo(28.9.2016 11:08)#032916

tych moznosti je Vela :)

Příloha: zip

32916_najdi_makrem_konec_stranky.zip (18kB, staženo 34x)

citovat

kristv(29.9.2016 11:54)#032926

Děkuji pánové za rychlou odpověď. Můj potíž je ale trošičku jinde. Nejde mi o poslední řádek (sloupec) tabulky nebo oblasti, ale o poslední řádek (sloupec) stránky - tisk. V příloze je obrázek, který upřesní, jak jsem to myslel. Moc děkuji.

Příloha: jpg

32926_zjisti_makrem_konec_prvni_strany.jpg (49kB, staženo 34x)

citovat

Palooo(29.9.2016 15:10)#032930

no toto bude trosku komplikovanesie

kedze areu na tlacenie dostanete z PrintArea
ale tato area moze byt este rozdelena na dalsie casti a tie dostanete z VPageBreak a HPageBreak.

Sub test()
Dim aColumnBreak As VPageBreak
Dim aRowBreak As HPageBreak

With Sheets("Sheet1")
Debug.Print "PrintArea: " & .PageSetup.PrintArea
For Each aColumnBreak In .VPageBreaks
Debug.Print "Column PageBreak: " & aColumnBreak.Location.Column
Next
For Each aRowBreak In .HPageBreaks
Debug.Print "Row PageBreak: " & aRowBreak.Location.Row
Next
End With
End Sub

dufam ze vam tento kod nasmeruje k tomu co potrebujetecitovat

eLCHa(29.9.2016 15:27)#032931

Můžete zkusit kouknout sem, zda vás to navede.
http://elcha-en.blogspot.com/2015/05/horizontal-page-breaks.html citovat

kristv(1.10.2016 15:15)#032950

Dobrý den pánové. Velice děkuji za pomoc a nasměrování. Už mi vše funguje. Bez vás bych to nedal. Tak ještě jednou díky. Vladimír Kristcitovat

Téma: Najdi makrem poslední řádek a sloupec stránky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje