» Poradna » Hardware

EXEL POMOC

 |   | 

Prosím o nápovědu:
Přenést poslední záznam (neprázdnou buňku) ve sloupci někam na první řádek.

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

napriklad v editoru vlozit do modulu funkci:

Function LastRow(Sl As String)
Dim PosBunka As Range
' nastaveni na posledni radek listu ve sloupci
Set PosBunka = Range(Sl & ":" & Sl).Cells(Range(Sl & ":" & Sl).Cells.Count)
' presun na posledni neprazny radek listu
If IsEmpty(PosBunka) Then Set PosBunka = PosBunka.End(xlUp)
If IsEmpty(PosBunka) Then ' bunka na 1. radku je take prazdna
LastRow = vbNullString ' nebo "Bunka na 1. radku je prazdna"
Else
LastRow = PosBunka.Value
End If
End Function

a do bunky zadat vlastni funkci: =LastRow("b")
nebo funkci volat v udalostni procedure Worksheet_SelectionChange a nalezenou hodnotu ulozit do pozadovane bunky

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

je vhodne upravit funkci:

Function LastRow(Sl As String)
Dim PosBunka As Range
Application.Volatile
...

Souhlasím  |  Nesouhlasím  |  Odpovědět


Určitě si přečtěte

Nejlepší program pro střih videa na doma: 9 video editorů, ze kterých si vyberete

Nejlepší program pro střih videa na doma: 9 video editorů, ze kterých si vyberete

** Pokročilé programy na doma stojí pár tisíc korun, jsou ale i zdarma ** Podpora 4K, hromada funkcí a efektové filtry jsou samozřejmostí ** Vybrali jsme 9 nejzajímavějších programů pro Windows

Stanislav Janů | 27

Stanislav Janů
Střih videaTipyNejlepší programySoftware
Volitelná aktualizace Windows 10 opravila několik chyb, způsobila ale další problémy
Karel Kilián
Windows UpdateAktualizaceWindows 10
Jak najít hranice území obcí a okresů, abyste věděli, kde se můžete pohybovat
Filip KůželJakub Čížek
KoronavirusMapy
Jak zjistit majitele vozu podle registrační značky (SPZ)
Ondřej Králík
Tipy
Japonská MANA může být 80× výkonnější než sebelepší tranzistorový procesor

Japonská MANA může být 80× výkonnější než sebelepší tranzistorový procesor

** Tranzistory současných počítačů vyzařují při přepínání teplo ** Na Tokijské univerzitě proto vyvíjejí adiabatické procesory ** Využívají supravodivost a jsou 80× úspornější

Jakub Čížek | 48

Jakub Čížek
TranzistoryProcesoryTechnologie
Avast Omni: Krabička, která vám hackne síť a promění se v unikátní antivirus

Avast Omni: Krabička, která vám hackne síť a promění se v unikátní antivirus

** Počítač dnes ochrání kdejaký antivirus ** Drobná krabička Omni se postará rovnou o celou domácí síť ** Bude ji odposlouchávat, analyzovat a blokovat útoky

Jakub Čížek | 120

Jakub Čížek
AntivirusIoT
Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

** Uspořádání kabelů můžete vnímat i jako podivný druh umění ** To nejkrásnější se skrývá v datacentrech a serverovnách ** Podívejte se na skutečné „cableporn“ z optiky i kroucené dvojlinky

Vojtěch Malý | 53

Vojtěch Malý
DatacentraServery
Konec modrých obrazovek smrti? Microsoft vydává mimořádnou aktualizaci pro Windows 10
Karel Kilián
Windows UpdateAktualizaceWindows 10