Příspěvky uživatele

Pokud trváš na "rozložení" buňky A1 do 4 buněk.

Postup importu excel 2007

Koukni se na PODMÍNĚNÉ FORMÁTOVÁNÍ.

Něco jako tohle?

Můžeš poskytnout nějaký vzorek ?

Koukni se na funkci COUNTIF.

Tady to máš. Jsou použity maticové vzorce (při uzavření mačkáš kombinaci CTRL+SHIFT+ENTER)

Nebo takto?

Vyzkoušej

http://wall.cz/velmi-skryty-list.a176.html

http://www.office4you.cz/rady-a-navody-ms-excel/281-excel-spolehlive-skryti-listu.html

Ahoj, tuto funkci Excel nabízí.
Mám tu verzi 2007 tak Ti to popíšu na ní.
Na kartě "Data" z pole "Načíst externí data" vybereš "z webu". Otevře se něco jako prohlížeč, kde si vybereš web z kterého chceš "tahat" data. Bohužel KB mi to nebere, u ČNB (http://www.cnb.cz/cs/index.html) to jde.

Po pravé straně je kurzovní lístek a u něj malá šipka na žlutém podkladu. Po kliknutí se změní na zatržítko. Poté stačí kliknout na "Importovat". Excel se zeptá na umístění, ještě než to potvrdíš jdi na tlačítko "Vlastnosti" kde si nastavíš jak se mají data aktualizovat a je hotovo.

Snad sem to popsal srozumitelně

EDIT:
tady to máš i s obrázky http://www.office4you.cz/rady-a-navody-ms-excel/260-excel-import-dat-z-internetu.html

Tak se mi po dlouhém boji podařilo dosáhnout kýženého výsledku. Sice to nejí nejelegantnější ani nejlepší řešení, ale hlavní je, že funguje

Private Sub CommandButton1_Click() 'vloží nový list
Application.ScreenUpdating = False
x = Application.InputBox("Zadejte jméno nového listu", "Vložení nového listu")
If x = vbNullString Or x = False Then
Exit Sub
End If

On Error GoTo chyba2
Sheets.Add after:=Worksheets(1)
ActiveSheet.Name = x
Sheets("index").Select
Sheets(x).Select
Exit Sub

chyba2:
Application.DisplayAlerts = False
MsgBox "List s požadovaným názvem již existuje !!", vbExclamation, "Duplicita názvu listu"
ActiveSheet.Delete
Sheets("index").Select
Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Tímto bych chtěl poděkovat všem zůčastněným za jejich rady a náměty.

Díky chlape za rychlou reakci. Tak sem ten Tvůj kód vyzkoušel a funguje, bohužel né tak jak sem si představoval, že bude. Ten sešit bude využívat více lidí, proto se snažím udělat to co možná nejvíce "blbuvzdorné". Situace je taková, že zadám jméno přes inputbox (např: Leden)- vytvoří se list a pokud se pokusím zadat stejné jméno (Leden), tak se ukáže msgbox s upozorněním a makro se ukončí to je super, ale když v sešitu zůstanou defaultně vložené listy (3 - List1, List2, List3) a uživatel zadá např do inputboxu "List2" tak opět přijde havárie.
Taková kravina s vkládáním listů a člověk nad tím stráví věčnost.

Nemáš tucha jestli by se dala ošetřit i tato situace nebo už toho chci moc?
Díky za Tvůj čas strávený nad takovou ptákovinou.

Ahoj potřeboval bych pomoct s ošetřením chyby v makru, které mi vkládá nový list od sešitu. Už si s tím nějakou dobu hraju a nedaří se.

Situace: Pomocí tlačítka vyvolám inputbox, do kterého uživatel napíše požadovaný název listu a list se vytvoří - to mi běhá bez problému. Situace se ovšem změní když by se zadal název listu, který už je v sešitu obsažen (duplicita). Tady makro havaruje. Snažil sem se tuto situaci řešit, ale né zcela úspěšně.
Prosím o radu nebo nakopnutí správným směrem. Díky

Private Sub CommandButton1_Click() 'vloží nový list
Application.ScreenUpdating = False
x = Application.InputBox("Zadejte jméno nového listu", "Vložení nového listu")
If x = vbNullString Or x = False Then
Exit Sub
End If

Sheets.Add after:=Worksheets(1)
ActiveSheet.Name = x
Sheets("index").Select
Sheets(x).Select

Application.ScreenUpdating = True

End Sub

Vyzkoušej

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje