• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Myslíš toto ?
Sub PridatNovyList()
Dim JmnLst As String
Application.EnableEvents = False
On Error Resume Next
Sheets("NovyList").Select
If Err.Number = 0 Then
If MsgBox("Odstranit List /NovyList ?", vbExclamation + vbYesNo) = vbYes Then
Application.DisplayAlerts = False
Sheets("NovyList").Delete
Application.DisplayAlerts = True
Else
GoTo KONEC
End If
End If
On Error GoTo 0
Sheets.Add.Name = "NovyList"
KONEC:
Application.EnableEvents = True
End Sub

Pro náhodný výběr od 1 do 15
Vyber = Round(Rnd * 14) + 1
A pro pozastaveni běhu kódu na cca 15sec
Application.Wait (Now + TimeValue("0:00:15"))

1)Při přidání mu přiřadit Jméno:
Sheets.Add.Name = "NovyList"

2)Po přidání je Aktivním Listem.
Dim JmnLst As String
Sheets.Add
JmnLst = ActiveSheet.Name
Sheets(JmnLst).Name = "NovyList"

Ten sešit blbne ve stejné verzi Excelu ve které byl stvořen?

Ten cyklus se dá vynechat.
if llist.Shapes.Count = 0 Then

Zkus:

Dim cmd as String
cmd = "CommandButton" & i
UserForm1.Controls.Item(cmd).Enabled = False

a nebo ještě

Dim Fcmd As String
Dim cmd As String
Fcmd = "UserForm1"
cmd = "CommandButton" & i
UserForms.Add(Fcmd).Controls.Item(cmd).Enabled = False

Co tohle.

O co jde?! Po přidání, či odebrání řádků se SUMA(OBLAST) sama upraví! Jinak lze taky SUMA(POSUN(R1C;;;ŘÁDEK()-1)).
Jinak lze taky v té proceduře ten vzorec upravit.

Podle mě jde o to, že prohledávaná oblast musí být souvislá. Tak nevím co máš na mysli. Zda jako v každém desátém, nebo podobně?

Teď je to ono.

Nechal jsem si poradit, tak to zkus.

Ještě chvilku s tou instalací 2003 počkej.
To bys musel na každém PC, kde to budeš chtít spustit.
To není řešení. Jseš už druhý, kterému na 2007 nejde nastavit FileSearch.
Pokusím se to zjistit, pokud to do té doby nevyřeší někdo z místních guru.

Něco jsem slepil. Někde to rozbal a zkus. Otevři sešit UpravPropojeni.xls. Odzkoušeno v EXCEL/2003 tzn *.xls.
V novějších verzích EXCELU (xlsx,xlsm) nevím jak bude fungovat, nutno vyzkoušet.

Jojo je to tak, odkazy na zavřené sešity musí být vypsány s celou adresou, žádné (..\). Pokud jsou ve stejné složce umí si to EXCEL upravit sám. Pokud jsou však v jiné je notno tento Link změnit buď manuálně v Úpravy-Propojení, nebo si napsat Makro, které tuto úpravu Linku provede ve všech sešitech.

Na tom přece není nic složitého. Stačí se podívat do nabídky vestavěných funkcí, trochu se zamyslet a zkoušet.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje