Příspěvky uživatele

Ahoj, určitě se to dá vyřešit makrem, ale nejdřív zkusím jednodušší verzi v případě že by nebyly zamčené, stačí vybrat všechny listy a na jednom z nich dát vložit řádek, čím se vloží do všech listů, pak zkopírovat předchozí řádek, dát kopírovat a vložit do prázdného (vloží se i se vzorci), pak vybrat jen zadávací list a přepsat jisté hodnoty.

Pomocí makra bych na první list přidal tlačítko, které mi na vybranou pozici vloží řádek, to samé udělá i pro další vybrané listy, které si teda nejprve bude muset odemknout a po zkopírování vzorců je zase zamknout. Bude-li potřeba příklad, tak zkusím někdy popřemýšlet :-)

M@

Ahoj,

zkus do VBA na list1 do procedury Worksheet_SelectionChange zadat:
If ActiveCell.Row > 1 And Cells(ActiveCell.Row, 1) <> "" Then List2.Cells(3, 2) = Cells(ActiveCell.Row, 1)
Zde je teda nevýhodou, že při změně výběru buňky se bude přepisovat makrem jméno v listu2 a zápis do buňky makrem ruší funkci "Zpět".

M@

Děkuji

, sám se občas i přiučím :-)

M@

Asi by to šlo, ale bylo by tam hodně KDYŽ :-), myslím že excel 2003 jich dovolí maximálně 7 za sebou, což by byl limit, pak pole vzorce je omezeno jistým počtem znaků (z hlavy teď nevím kolika), tak ani nevím jestli by se to vešlo. Žadný jednoduchý způsob mě nenapadá.

M@

Ahoj,

něco jsem zkusil, je to v příloze.

S pozdravem
M@

Ahoj,
takhle na první pohled to vypadá na funkci svyhledat, ale kdyby byl přiložený příklad, tak by to bylo lepší :-).

M@

Ahoj,

asi jedině pomocí makra, kdy makro nově vkládaný kontakt zkusí nejprve vyhledat v seznamu kontaktů třeba podle jména a když ho nenajde, tak na konec seznamu přihodí nový kontakt, jinak může hodit třeba hlášku a zeptat se na přepsání.

Jinak že by excel uměl např. vložit jinak a vybrat pouze neexistující tak to ne. Ikdyž je fakt že možnosti excelu 2007 neznám, ale stejně tomu nevěřím :-).

M@

Ahoj, k zadání ani souboru jsem se nedostal, tak alespoň ten překlad :-)
=VELKÁ((ČÁST(A1;NAJÍT(",";A1)+2;DÉLKA(A1)-NAJÍT(",";A1)))&" "&ZLEVA(A1;NAJÍT(",";A1)-1))

M@

Ahoj,
Napadají mě 2 možnosti:

1) přidání jednoho sloupce do tabulky s detaily, do tohoto sloupce pak pomocí funkce svyhledat zapsat buď 1 nebo 0 podle toho zda-li daný člověk byl v seznamu vašich klientů nalezen, nebo ne. Ve finále pa použít automatický fitr právě na tomto sloupci a vyfiltrovat si pouze 1. (funkci svyhledat asi popisovat nemusím :-) )

2) Použití rozšířeného filtru (řekněme sloupec A bude obsaovat Jméno klienta a hlavička bude v obou tabulkách shodná (např. Jméno). Vyberete tabulku kde chcete filtrovat, necháte zaškrtnuto "přímo v seznamu" a jako oblast kritérií zadáte sloupec A z tabulky s vašimi klienty (hlavička musí být stejná)

Kdyžtak dejte vědět jak se zadařilo.

S pozdravem
M@

Obávám se že z bespečnostních důvodů to jinak obejít nepůjde.

Ahoj,

Neporadí mi někdo jak zachovat barvy řad kontingečního grafu dle uživatelského nastavení - při každé aktualizaci grafu mi tam totiž skočí zpět barvy výchozí.

Předem děkuji za tipy :-)
S pozdravem
M@

Ahoj,

Petr sice nejsem, ale něco podobného občas používám, tak to zkusím popsat :-).
Menu Soubor - > Uložit jako webovou stránku - > Klik na tlačítko Publikovat - > Do pole Název Souboru zadat FTP adresu kam se má ukládat / do pole Název zadat hlavičku - > zaškrtnout pole Znovu automaticky publikovat při každém uložení tohoto sešitu.

Snad to pomůže :-)

M@

Ahoj,

zkusil jsem postavit příklad za předpokladu, že buňka A1 bude říkat který řádek ve sloupci A se má odemknout:

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Cells(1, 1)) Then 'ověří zda-li je v buňce A1 číselná hodnota
If Cells(1, 1) > 0 And Cells(1, 1) <= 65536 Then 'ověří zda-li ta číselná hodnota je větší než 0 a pro excel 2003 menší nebo rovno 65536, pro excel 2007 to bude nějakých cca 1,2M
Dim radek As Single 'definice proměnné
ActiveSheet.Unprotect 'odemčení listu
radek = Cells(1, 1) 'nastavení hodnoty z buňky A1 do proměnné
Cells(radek, 1).Locked = False 'odemčení buňky na řádku radek ve sloupci 1 (A)
ActiveSheet.Protect 'zamčení listu
End If
End If
End Sub

Snad by mělo chodit i pod 2007 :-), což si ale sám nezkusím :-).

Přeji krásného Silvestra.
M@

Trochu jsem brouzdal a nic moc.

Musely by se ošetřit (zablokovat) veškeré možnosti pro vložení
Ctr+V
Shift+Insert
Enter
Popup menu
Nabídka úpravy
Panel nástrojů
a možná i další.
Což asi nebude nejsnažší řešení, takže jediné rychlé schůdné řešení je zrušení obsahu schránky při přepnutí na daný list (Worksheet_Activate), nebo při přeskočení na jinou buňku (Worksheet_SelectionChange) a to příkazem Application.CutCopyMode = False.

Snad to pomůže :-)

M@

Ahoj, jen jsem se chtěl podělit :-).
Snad to bude chodit tak jak má.

Přeji krásné Vánoce.

S pozdravem
M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje