MS Excel

Téma: Smazání listu a datum revize

Zaslal/a holenajann 27.1.2012 23:48

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

Uzamčeno - nelze přidávat nové příspěvky.

Stalker(28.1.2012 0:35)#007092

Chyba je v uvozovkách ("ActiveSheet.Name")
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 Subcitovat

Stalker(28.1.2012 1:22)#007093

co takto:

Příloha: rar