MS Excel

Já to tušil, že z Select a Selection nebudete dvakrát nadšený (škoda, že ikony neobsaahují palce nahoru, určitě bych nějaký dostal) , přesto jsem na vaši odpověď čekal, to se přiznám a děkuji za ní. A říkal jsem si, jestli někdo bude reagovat, pak to bude eLCHa, bo se mu to bude líbit. Ale o to jestli je to hnus či ne nešlo, nešlo ani o to že mohu pracovat jen s určitou oblastí. Tu bych mohl ostatně makrem definovat, ale šlo mi o to, zda skutečně jen spojení UsedRange a ohraničení dělá tuto zmíněnou neplechu a jestli se s tím již někdo setkal a proč to je. Zjistil jsem to náhodou, když jsem použil orámování, moje oblíbené,(ale až po Select ) a najednou to dělalo něco jiného. A ani jsem to k ničemu nepotřeboval, jen jsem zkoušel SpecialCells a co to může a nemůže. V podstatě jsem došel ke stejnému závěru a to i s tím, že pokud by to měl být úmysl, muselo by se to projevit i do stran, ale proč?citovat

Tak už jen pro doplnění.
Problém je asi známý, leč vysvětlení se mi nedostalo.
Nalezení posledního řádku oblasti tímto zůsobem
Set r = ActiveSheet.UsedRange
Cells(5, 3) = r.SpecialCells(xlCellTypeLastCell).Row
vypočítá chybu (je-li tam xlThick)
Ron de Bruin to řeší následovně:
Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function

takže děkuji za vysvětlení nějakých mých (častých) chyb a s konstatováním že jsem objevil ameriku si připadám jako J. Cimrman. citovat

A ta funkce má jednu vlastnost, která se mi nelíbí
A to, že mění Dialog Find
Ten by se měl minimálně resetovat do defaultního nastavení
Např.:Cells.Find What:=vbNullString, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False

Pokud byste chtěl použít SpecialCells ke zjištění posledního vyplněného řádku, tak to samozřejmě lze
Ten kód bude delší, ale nic nemění
Function fncLastRow(ByRef sh As Worksheet, Optional ByVal sPassword As String = vbNullString) As Long
'by eLCHa, eLCHa@email.cz

Dim bProtection As Boolean
bProtection = sh.ProtectContents
sh.Unprotect sPassword

Dim rDataOnSheet As Range
On Error Resume Next
Set rDataOnSheet = sh.UsedRange.SpecialCells(xlCellTypeConstants)
If rDataOnSheet Is Nothing Then
Set rDataOnSheet = sh.UsedRange.SpecialCells(xlCellTypeFormulas)
Else
Set rDataOnSheet = Union(rDataOnSheet, sh.UsedRange.SpecialCells(xlCellTypeFormulas))
End If
On Error GoTo 0
fncLastRow = rDataOnSheet.SpecialCells(xlCellTypeLastCell).Row

If bProtection Then
sh.Protect sPassword
End If

Set rDataOnSheet = Nothing
End Functioncitovat