Nápověda pro psaní příspěvků.

Smazání příspěvku

Jako autor příspěvku si můžete nechat poslat odkaz pro smazání příspěvku na svůj email (pokud jste ho uvedli)

Jako správce knihy můžete smazat příspěvek zadání loginu a hesla do BlueBoard.cz

Login:
Heslo:
Návštěvní kniha
Jméno
Heslo (?)
E-mail
Home
Vzkaz
[ ? ]
 
  Opište:
Strana 1 / 36, celkem 251 příspěvků  Další → RSS
31.5.2018 (10:22) Odpovědět # X
Miroslav Soural E-mail

Odpovídáte X

7.2.2017 (11:33) Odpovědět # X
Václav Čech E-mail

Odpovídáte X

3.5.2016 (16:34) Odpovědět # X
Vladiír Matouš E-mail

Odpovídáte X

17.7.2015 (11:40) Odpovědět # X
Tomas E-mail

Radek Jureček reaguje:

17.7.2015 (11:57)X

Dobrý den, pro zjištění poslední vyplněné buňky v řádku a sloupci můžete použít tento kód:

Dim r As Integer

Dim c As Integer

'poslední řádek ve sloupci A

r = Cells(Rows.Count, "A").End(xlUp).Row

'poslední sloupec v řádku 1

c = Cells(1, Columns.Count).End(xlToLeft).Column

'nastavení oblasti tisku

ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(r, c)).Address

S pozdravem

Radek Jureček

Radek Jureček reaguje:

17.7.2015 (11:58)X

Ještě poznámka, kód platí pro aktivní list.

Tomas reaguje E-mail:

17.7.2015 (19:20)X

Nejako to nefunguje upravil som to takto, ale berie mi aj ciste bunky, asi tie v ktorých predtým boli data a už boli zmazane ... potreboval by som poslednu bunku riadku, v ktorje je nejaka hodnota ...

Dim ws As Worksheet

Dim lastRow As Long

Set ws = ThisWorkbook.Sheets("TS_tlac")

range

lastRow = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row

ws.PageSetup.PrintArea = ws.Range("AA:K" & lastRow).Address

Tomas reaguje E-mail:

17.7.2015 (19:21)X

ws.PageSetup.PrintArea = ws.Range("A1:K" & lastRow).Address

- oprava

Radek Jureček reaguje:

18.7.2015 (10:05)X

Dobrý den, pošlete mi do mailu vzorový soubor. Bude to tak jednodušší.

Odpovídáte X

29.6.2015 (06:58) Odpovědět # X
Ivo Hons E-mail

Odpovídáte X

24.6.2015 (11:28) Odpovědět # X
Radek Jureček

Odpovídáte X

Strana 1 / 36, celkem 251 příspěvků  Další → RSS
Kniha od BlueBoard.cz