< 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 17x)
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 17x)
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 17x)
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

fce když a data

simplynever • 27.6. 12:48

fce když a data

Anonym • 27.6. 12:43

text > číslo=PRAVDA

Rejpal • 27.6. 12:01

fce když a data

simplynever • 27.6. 10:46

vlookup

simplynever • 27.6. 10:43

text > číslo=PRAVDA

pavelo • 27.6. 8:46

text > číslo=PRAVDA

Rejpal • 26.6. 20:29