< návrat zpět
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 SubcitovatStalker(28.1.2012 1:22)#007093 co takto:
Příloha: 
7093_datum-a-jmeno.rar (11kB, staženo 15x) citovatholenajann(28.1.2012 10:31)#007094 
Takhle je to skvělé. Moc děkuji za odpověď.
citovat
RSS nejnovější články