Dobrý den,
tak jsem dnes v práci zjistil, že na MS Excel 2010 mi to nefunguje. Přitom na MS Excel 2016 nebyl problém. Existuje ještě jiná metoda pro MS Excel 2010?
Děkuji
Paráda, moc děkuju. Celý den to zkouším pokus omyl.
Děkuju.
Dobrý den,
prosím,
mám makro pro import dat. V Inputbox se mi automaticky vyplní
aktuální datum. Potřeboval bych ale do Inputboxu dostat místo datumu aktuální kalendářní týden.
Datum = Replace(Application.InputBox("Import dat","Získat data", Format(Date, "yyyy.mm.dd"), Type:=2), ".", "/")
If Datum = "False" Then Exit Sub
Děkuji za pomoc
Je to super, děkuju.
Tak mi to stačí.
Dobrý den,
šlo by převést makrem datum dd.mm.rrrr na vzorec =datum(rrrr;mm;dd)?
děkuji
Dobrý den,
mám problém se sloupcovým grafem. Ve zdroji grafu mám funkci nedef(). Když přidám popisky do grafu zobrazí se mi tam není k dispozici. Doma u Excel 2016 se mi to neděje, ale v práci mám Excel 2010 ten to dělá. Nemohl by jste mi někdo pomoci? 
Už jsem na to přišel. Děkuju. 
Mohl by jste to trochu rozvést?
Funkci ZÍSKATKONTDATA jsem ještě nikdy nepoužíval.
Dobrý den,
chtěl bych se zeptat, zda-li by šlo přeházet pořadí sloupců v kontingenční tabulce (KT) přes makro podle směn při změně kalendářního týdne (filtru). Nad KT mám tabulku kde se zobrazí směny podle toho jak jdou po sobě. A takto bych je potřeboval seřadit i v tabulce.
Děkuji
Tak
ActiveWindow.SplitVertical = 216
nefunguje.
Nejde mi o nastavení šířky.
Jde mi o to, že když mám např. 1000 řádků dat, potom je smažu a posuvník se mi nezvětší do základní velikosti a zůstane malý pro 1000 řádků i když tam žádná data nejsou.
Dobrý den,
chtěl by se zeptat, jestli lze upravit velkost posuvníku listu a popřípadě jak?
Jde o MS Excel 2016
Děkuji
Asi by to šlo vyřešit textem do sloupců
Karta Data -> Text do sloupců
Přihoďte přílohu a mrknem na to
Dobrý den,
nevím co dělám špatně, ale mě to nefunguje.
Potřeboval bych zkopírovat dokončené a potom odstranit řádky("Dokončeno").
a ještě bych potřeboval kdyby do tabulky "Tabulka38" přibylo dalších 10 nových řádků.
Dobrý den,
lze provést toto makro na všech listech?
Nějak si s tím nevím rady.
Sub skryt()
Dim wsSheet As Worksheet
Set wsSheet = Worksheets("List1")
If wsSheet.Columns("C:C").EntireColumn.Hidden = False Then
wsSheet.Columns("C:C").EntireColumn.Hidden = True
wsSheet.Columns("AI:AI").EntireColumn.Hidden = True
wsSheet.Rows("77").EntireRow.Hidden = True
wsSheet.Rows("80").EntireRow.Hidden = True
Else
wsSheet.Columns("C:C").EntireColumn.Hidden = False
wsSheet.Columns("AI:AI").EntireColumn.Hidden = False
wsSheet.Rows("77").EntireRow.Hidden = False
wsSheet.Rows("80").EntireRow.Hidden = False
End If
End Sub
Paráda, to je ono. Moc děkuji.
Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.