Příspěvky uživatele


< návrat zpět

Takhle je to skvělé. Moc děkuji za odpověď.

Dobrý večer,

pokouším se vytvořit 2 makra, z nich první by mělo smazat všechny listy kromě aktivního dalších definovaných podle jmen, ale z nějakého důvodu se mi maže i akivní list. Měl bych místo "ActiveSheet.Name" použít něco jiného

Sub smazat_listy()

Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "ActiveSheet.Name" Or ws.Name = "Sheet2" Then
Else
ws.Visible = xlSheetVisible
ws.Delete
End If
Next ws
Application.DisplayAlerts = True

End Sub


Ve druhém makru se pokouším vytvořit tlačítko, po jeho stisknutí se v buňce P10 vloží aktuální čas a datum a v Q10 jméno přihlášeného uživatele "UserName" to mi celkem funguje, ale potřeboval bych, aby po každém stisknutí vložilo na následují prázdný řádek P11 a Q11 a tak dále a s tím trochu zápasím.

Pomohl by mi někdo? Děkuji

Skvělé, moc děkuju

Výborně mi už funguje zac = 1

kon = 65535

For n = zac To kon

If Empty <> Cells(n, 2) And Empty = Cells(n, 4) Then

Rows(n).Hidden = True

End If

Next n


Jen bych to potřeboval spustit tlačítkem v jiném listě, aby se to uplatnilo jen na list s názvem "Deník"

Ahoj, jsem začátečník s excelovskými makry, nejde nějak udělat takovéto makro?

V případě, že v listě "Deník" existuje řádek, který má ve sloupci B neprázdnou buňku a současně ve sloupci D prázdnou buňku, takovýto řádek skrýt...Děkuju


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje