Příspěvky uživatele
< návrat zpět
Mntík, už to snad bude ;-)
Už to máš nebo ješte ne?
Jdu na to...
Já si myslím, že takhle je to jak potřebuji už.
Zítra to zkusím zakomponovat do té mé tabulky a uvidím.
Ješte jednou díky.
Já na to šel uplně jinak a prostě ten tvuj postup je nej 
Já teda valím vulvy :-O
Takhle hladce to jde. Díki moc, takhle je to podle mých představ. Díki moc.
Jen pro upřesnění. Páč já ten tvůj kod budu zkoumat asi týden :D .. Pracoval jsi s pomocí těch názvů co jsem nadefinoval ( udaj1, udaj2, udaj3 atd.) ?
A potřeboval bych ješte aby sloupce A a B byli stále odkryty. Jak by si to zakomponoval do kódu prosím?
Takhle to mám nastvené.
Tak že se mi kontroluje bunka B100 a když je v ní 1 tak se mi zbrazí jen to co potřebuji.
Ale to nastavovaní je moc na dlouho. Zapisuji ručné, které sloupce a řádky mám skrýt.Mám cca 62 tabulek v jednom listu. A taky je to náročné na procesor.
bych potřeboval jestli někdo nezná rychlejší nastavování.
Pro příklad dávám přílohu ... o hodně menší verze toho co mám já.
Můžu se ješte obrátit k tomuhle kódu? Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c3:i31")) Is Nothing Then
If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If
End If
End Sub
Šel by průnik Interger nastavit jako (Target, a poslední použitý řádek sloupce H) ?
Díki, potřebuji to i na něco iného
Aloha všem už jsem tu zas :)
Potřeboval bych jednu záležitost vyřešit.
Mám list , kde mám cca 62 malých tabulek od sebe rozděleny. Každou tabulku jsem si pojmenoval na udaj1, udaj2, udaj3 atd. atd. ...
Potřeboval jestli by nešlo nějakým makrem dokázat to, že si všechny ostatní řádky a sloupce skryjí a zustanou mi odkryty jen ty buňky co jsou v rozsahu pojmenované časti.
Fungovalo by to následově pomocí jedné buňky, třeba na A1 .. když v ní bude 1 tak se mi zobrazí tabulka s názvem udaj1(C3:E5), když v ní bude 2 tak se mi zobrazí tabulka udaj2(F3:H5) atd atd. ...
Moje varianta je na moc dlouhé nastavování a na zatěžování procesoru.
Neporadil by mi někdo něco rychlejšího ? 
Předem děkuju
Zkus nastavit makro, které před tisknem skryje určité sloupce nebo řádky, podle toho jak potřebuješ a po tisknu je zas odkryje..
AŽ BUDU DOMA TAK SE TI NA TO MOŽNÁ MRKNU
Mám tento kod
Sub Makro1()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
If Range("B100") = "1" Then
Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
Cells.EntireRow.Hidden = True
Rows("1:2").EntireRow.Hidden = False
Else
MsgBox "Nic se nestalo"
End If
End Sub
Ale nefunguje mi. Prosím kde mám chybu. Skryjí se mi všechny sloupce i řádky ale už se mi nezobrazí ty, které si navolím.
Mám tento kod
Sub Makro1()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
If Range("B100") = "1" Then
Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
Cells.EntireRow.Hidden = True
Rows("1:2").EntireRow.Hidden = False
Else
MsgBox "Nic se nestalo"
End If
End Sub
Ale nefunguje mi. Prosím kde mám chybu. Skryjí se mi všechny sloupce i řádky ale už se mi nezobrazí ty, které si navolím.
Ty jsi bůh :))
Jak to děláš, že tobě jde všechno tak hladce? :-) Funguje to bez problémů :)
Jen ješte maličkost. Ale bez toho se i klidně obejdu. Nešlo by nějak jak se vloží ty udaje ve sloupcích do jednoho řádku v k uzavření aby byla vkládány vzestupně? Myslím podle datumu? První se vloží udaje s datumem 11. a pak až 12. atd... ? Ale pokud ne, nic se neděje i tak to je paradička :)
Jen bych potřeboval vysvětlivky ke kodům :) hlavně jakou funkci tam má "DONE" a proč je jako Dim Boolean.
Díki moc
j přesně tak, kde bude napsáno _HOTOVO" tak aby se mi ten celý řádek přesunul(né zkopíroval) do kolonky na uzavření.
Já nechci vyhledat ten stejný stroj, já chci vyhledat tu stejnou zakázku ve strojích...
Po upřesnění.
Tato tabulka bude sloužit pro přehled výrobních strojů a zadávání zakázek na určitý stroj ale jakmile celá zakázka bude hotová tak se přesune do kolonky k uzavření i s udaji ve sloupcích napravo, aby se uvolnily řádky pro nové zakázky.
Volil bych nějakou funkci vyhledej tu stejnou zakázku ve všech strojích a pokud nalezená zakázka bude u všech strojů hotová přesun celou zakázku do k uzavření.
Nevím jak lépe bych to popsal.
Jj tak se nějak ten userform zkusím nějak sestrojit aby se to zapisovalo tak jak má, už to mám v hlavě :)
Ale pokud bys mi dokázal ješte pomoci s tím to tedy:
V příloze posílám tu stejnou tabulku jen je doplněno více sloupců. Do kterých se bude zapisovat ručně kdy, kdo na té zakázce dělal a kolik ks udělal. ... Náhled "před přesuntím" ukazuje tabulku po vložení zakázek pomoci userformu a ručně doplnění udajů ve sloupcích na pravo.
Všimni si sloupce "HOTOVO". Takže chtěl bych jsem aby když se do toho sloupce u dané zakázky napíše - hotovo .. tak at vyhledá ve strojích tu stejnou zakazku a pokud bude taky ukončena (ve sloupci Hotovo bude napsáno hotovo) tak at se zakazka přesune do kolonky k uzavření a to i s těmi udaji co jsou ve sloupcích na pravo.
Udělal jsem ti tam přehled jak by to mělo vypadat tak jsem to popsal snad pochopitelně.
Nebo už chci moc?
1) tenhle postup funguje. Ale: potřeboval bych i v tabulce data ručně mazat - ve slotteru mám 3 řádky plné, pokud smažu udaje z prvního řádku už to dělá problémy při vkládání nové položky.
Musí to najít první prázdný řádek a do něj vložit data.
Něco jako na způsob :
If Cislo <> "" Or Kam <> "" Or Datum <> "" Then
start = start +1
End If
Viz první tabulka zk.
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