< návrat zpět

MS Excel


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

Zaslal/a 28.9.2016 9:48

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

Příloha: zip32914_najdi_makrem_konec_stranky.zip (13kB, staženo 18x)
Zaslat odpověď >

#032915
Hav-Ran
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
#032916
avatar
tych moznosti je Vela :)
Příloha: zip32916_najdi_makrem_konec_stranky.zip (18kB, staženo 18x)
citovat
#032926
avatar
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: jpg32926_zjisti_makrem_konec_prvni_strany.jpg (49kB, staženo 18x)
32926_zjisti_makrem_konec_prvni_strany.jpg
citovat
#032930
avatar
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
icon #032931
eLCHa
Můžete zkusit kouknout sem, zda vás to navede.
http://elcha-en.blogspot.com/2015/05/horizontal-page-breaks.htmlcitovat
#032950
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Vytvoření tabulky dovolených excel 2007

MisaKl • 19.9. 11:10

Excel po otevření změní filtry

Pepe123 • 19.9. 9:44

nahodne cisla

mepexg • 18.9. 12:09

nahodne cisla

pavol14pavol • 17.9. 21:46

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:21

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:15

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:13