Příspěvky uživatele
< návrat zpět
Vovka napsal/a:
Myslím, že každém dotazu by měl předcházet pokus o využití zabudované nápovědy. Během jedné minuty jsem pod heslem sdílení v nápovědě našel vše, co potřebujete vědět. Nevidím důvod, proč bych měl tu nápovědu tlumočit (je v češtině). Tohle je plýtvání časem lidí, kteří by mohli dělat něco užitečnějšího !
Prohledal jsem jak nápovědu Excelu tak různá témata na webu Microsoftu a jiných diskuzních fórech. Nepodařilo se mi najít žádné informace které by vedly k vyřešení problému
Vovka napsal/a:
Nejspíš došlo ke kolizi při duplicitní změně ve stejných buňkách v době mezi dvěma uloženími. Zkuste odstranit tu kolizi. Excel na to má nástroj, který jsem nikdy nemusel použít, protože se úzkostlivě vyhýbám módu sdílení s přístupem více uživatelů do stejných dat. Proto ani neumím poradit, jak taková náprava má probíhat.
Nevíte kde tento nástroj najdu? Nikde jsem na něj nenarazil.
Dobrý den,
asi 15 lidí pracuje s jedním sdíleným souborem. Již delší dobu probíhá práce bez problémů. Dnes se ovšem u 2 lidí začala při uložení objevovat chyba "Změny nebyly uloženy do souboru E01E0A30.xlsm0, protože došlo k narušení sdílení. Pokuste se o uložení do jiného souboru."
Nevíte prosím jak se toho zbavit? Všem ostatním ukládání funguje v pořádku.
Děkuji
marjankaj napsal/a:
napríklad aj takto
Range("d1").Formula = Range("d1").offset(1,0).Formula
alebo
Range("D2").Copy Range("d2").Offset(-1, 0)
A jak to můžu vložit sem?
aZad = .Range("B3:B11").Value
.Range("A2:P2").Value = Array(aZad(2, 1), aZad(3, 1), aZad(5, 1), aZad(1, 1), aZad(6, 1), Month(aZad(6, 1)), aZad(7, 1), Worksheets("Zadání").Range("D1").Value, aZad(8, 1), aZad(4, 1), Year(aZad(6, 1)), aZad(9, 1), .Range("N3").Value, aZad(6, 1), .Range("P3").Value)
Ani jeden z uvedených kódů mi v tom nefunguje.
elninoslov napsal/a:
Ešte miniúprava (a keď ja by som si nahradil Range za Cell). Skúste si dočasne vyradiť riadok ActiveWorkbook.RefreshAll a uvidíte, aký budete mať rozdiel.
A nepomohlo by pretiahnutie tých súborov z LAN k Vám na disk a aktualizovať data z disku? Ale to iba tápem...
Děkuji Vám mnohokrát, hned jsem o něco chytřejší :)
Jediný problém mám se sloupcem D, N, P. Potřebuji, aby se mi vždycky z buňky pod ní zkopíroval vzorec, né hodnota. Šlo by to nějak pozměnit? Děkuji
Potřebuji soubor upravovat na síti, aby k němu měli přístup i ostatní uživatelé, kteří také dělají úpravy a vkládají nové hodnoty.
marjankaj napsal/a:
No keďže prílohy sa asi nedočkám(neviem či kopíruješ hodnoty alebo vzorce)
tak namiesto
Sheets("Přehled").Select
Range("F2").Copy
Range("O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
By som dal
Sheets("Přehled").Range("F2").Copy sheets("Přehled").Range("O2")
Ale keď nevidím obsah listu tak je to iba také teoretizovanie.
Ale ten tvoj kód sa mi ani nechce čítať nie to ešte aj analyzovať.
Vytvořil jsem na rychlo ukázkový soubor. Vyplňují se pouze políčka v listu Zadání a pouze bílá.
elninoslov napsal/a:
Pomalý bude ten ActiveWorkbook.RefreshAll
Mám v souboru 4 kontingenční tabulky, které je potřeba aktualizovat. Neexistuje tedy nějaký jiný příkaz na aktualizaci?
marjankaj napsal/a:
myslím, že by si to mohol zrýchliť, keby si dal prílohu. Píšeš, že máš vytvorený list, ale my nemáme. A asi si ho vytvárať nebudeme(a ani nevieme vytvoriť)
No ja by som vyhodil tie SELECTy.
Dobrý den, soubor jsem nepřikládal, protože je propojený s dalším 5 soubory a nefungovalo by ani to zadávání (kam se tahají data z jiných sešitů).
Jakože mám např. místo Sheets("Přehled").Select
Range("F2").Select
Selection.Copy
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
dát
Sheets("Přehled").Select
Range("F2").Copy
Range("O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Bude to takhle fungovat?
Dobrý den,
nejsem zběhlý ve tvorbě maker, tak jsem vytvořil makro jednoduše. Určitě se dá zrychlit, protože na počítačích v síti makro trvá někdy i minutu. Můžete mi pomoct?
Jde tu hlavně o odkazování na buňky. Mám vytvořený list Zadání odkud kopíruji hodnoty do listu Přehled.
Děkuji
Sub Makro2()
'
' Makro2 Makro
' Zastavení makra v případě chybného textu v A12 nebo nevyplněného data/času
If Range("A12") = "Číslo operace neexistuje" Then
MsgBox "Číslo operace neexistuje. Zkontrolujte číslo operace nebo vykažte hodiny na operaci Ostatní a popište ji do poznámky."
ElseIf Range("A12") = "Tato operace je již ukončena!" Then
MsgBox "Zvolená operace byla již pro tuto zakázku ukončena. Zkontrolujte číslo operace a zakázky, nebo vykažte hodiny na operaci Ostatní a vložte popis do poznámky."
ElseIf Range("B6") = "Vyplňte číslo operace" Then
MsgBox "Zadejte číslo vykazované operace do buňky B5."
ElseIf Range("C8") = "Zadejte datum" Then
MsgBox "Zadejte datum vykazované operace do buňky B8."
ElseIf Range("C9") = "Zadejte hodiny" Then
MsgBox "Zadejte hodiny vykazované operace do buňky B9."
Else
' Vypnutí obrazovky -> zrychlení zápisu
Application.ScreenUpdating = False
' Odemčení aktivního listu (Přehled)
Sheets("Přehled").Select
ActiveSheet.Unprotect Password:="Heslo123"
' Přidání řádku
Sheets("Přehled").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Odemčení aktivního listu (Zadání)
Sheets("Přehled").Select
ActiveSheet.Unprotect Password:="Heslo123"
' Hodiny vykazuje
Sheets("Zadání").Select
Range("B3").Select
Selection.Copy
Sheets("Přehled").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Výrobní zakázka
Sheets("Zadání").Select
Range("B4").Select
Selection.Copy
Sheets("Přehled").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Číslo operace
Sheets("Zadání").Select
Range("B5").Select
Selection.Copy
Sheets("Přehled").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Činnost
Sheets("Zadání").Select
Range("B6").Select
Selection.Copy
Sheets("Přehled").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Operace
Sheets("Zadání").Select
Range("B7").Select
Selection.Copy
Sheets("Přehled").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Font.Bold = False
' Datum
Sheets("Zadání").Select
Range("B8").Select
Selection.Copy
Sheets("Přehled").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = False
Sheets("Přehled").Select
Range("F2").Select
Selection.Copy
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = False
' Měsíc
Sheets("Přehled").Select
datumPrace = Range("F2").Value
Sheets("Přehled").Select
Range("G2").Value = Month(datumPrace)
' Rok
Sheets("Přehled").Select
datumPrace = Range("F2").Value
Sheets("Přehled").Select
Range("L2").Value = Year(datumPrace)
' Hodiny
Sheets("Zadání").Select
Range("B9").Select
Selection.Copy
Sheets("Přehled").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = False
' Datum zadávání
Sheets("Zadání").Select
Range("D1").Select
Selection.Copy
Sheets("Přehled").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Poznámka
Sheets("Zadání").Select
Range("B10").Select
Selection.Copy
Sheets("Přehled").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Ukončení-kopírování hodnoty
Sheets("Zadání").Select
Range("B11").Select
Selection.Copy
Sheets("Přehled").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Operace+zakázka (skrytý sloupec v Přehledu)
Sheets("Přehled").Select
Range("D3").Select
Selection.Copy
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' Operace+zakázka+ukončeno (skrytý sloupec v Přehledu)
Sheets("Přehled").Select
Range("N3").Select
Selection.Copy
Range("N2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
' Operace+ukončeno (skrytý sloupec v Přehledu)
Sheets("Přehled").Select
Range("P3").Select
Selection.Copy
Range("P2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D2").Select
' Zamčení aktivního listu (Přehled)
ActiveSheet.Protect Password:="Heslo"
' Tlačítko ukončení-odškrtnutí
Sheets("Zadání").Select
Range("C11").Select
ActiveCell.FormulaR1C1 = "FALSE"
' Číslo operace; hodiny; poznámka-vymazání
Sheets("Zadání").Select
Range("B5").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B10").Select
Selection.ClearContents
' Zamčení aktivního listu (Zadání)
ActiveSheet.Protect Password:="Heslo123"
' Zvolení buňek po dokončení
Range("B5").Select
' Aktualizace kontingenční tabulky
ActiveWorkbook.RefreshAll
End If
End Sub
Dobrý den,
mám tabulku s názvy produktů a vlastnostmi. Do pole vlastnosti potřebuji ze seznamu v jiném listě vybrat vlastnosti (např. cena, barva, výkon, atd.) tak, aby byly za sebou v jedné buňce, oddělené čárkou.
Je možnost nějak tyto vlastnosti zvolit např. z rozevíracího seznamu (ověření dat) nebo pomocí zaškrtávacího políčka nějak přes makro?
Děkuji za odpověď.
Dobrý den,
do buňky B3 vložte vzorec
=SUMIFS(dochadzka!$E:$E;dochadzka!$B:$B;ZAKAZKY!$A3;dochadzka!$A:$A;ZAKAZKY!B$2)
Pokud nechcete zobrazovat nuly při nevykázaném času zvolte vzorec
=KDYŽ(SUMIFS(dochadzka!$E:$E;dochadzka!$B:$B;ZAKAZKY!$A3;dochadzka!$A:$A;ZAKAZKY!B$2)>0;SUMIFS(dochadzka!$E:$E;dochadzka!$B:$B;ZAKAZKY!$A3;dochadzka!$A:$A;ZAKAZKY!B$2);"")
Vzorce poté roztáhněte do ostatních buněk.
marjankaj napsal/a:
No ja akosi zadaniu nerozumiem.
Ako by mal podľa teba vyzerať výsledok?
4 položky treba filtrovať? Veď v každej sa v B stlpci vyskytuje na začiatku "Z".
V první řadě děkuji za reakci.
Potřeboval bych to tak, že když vyfiltruji např. Montáž, aby ve sloupci B nebylo datum, ale číslo zakázky (Z-2014-...).
Dělám to kvůli tisku na jednotlivé provozovny. Abych mohl nějak jednoduše vytisknout plán zvlášť pro montáž, zvlášť pro elektro, apod.
Zdravím, chci se zeptat na filtrování v přiloženém souboru.
Je to jednoduchý plán výroby a potřeboval bych vždy vyfiltrovat operaci (svařovna/lakovna/..) a to tak, aby vždy v tom filtru bylo v sloupci B označení začínající na "Z" (např. Z-2014-2-000416)
Jde to i jinak, než rozkopírováním tohoto čísla do všech řádků?
Nešlo by to nějak přes makro? Vyrobením tlačítka: Svařovna, Lakovna, Spirály,..
Děkuji moc za odpověď, už si nevím rady..
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články