Zaslal/a
5.1.2015 10:39Ahoj,
potreboval by som pomôcť s jedným príkazom. Ide mi o to, aby v tabulke po stlačení tlačítka "dolů" sa kurzor dostal vždy na začiatok posledného riadku.
Mám niečo takéto, alebo vždy mi vypisuje chybu:
Sub dolu()
Dim FrstR As Long, FrstCll As Range
With ActiveSheet
FrstR = .Range(.Range("H17"), .Range("H17").End(xlDown)).Rows.Count
Set FrstCll = .Range("B17").Offset(FrstR, 0)
End With
Range(FrstCll.Address).Activate
End Sub
Ďakujem. P.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.