Příspěvky uživatele
< návrat zpět
Tak hotovo.
tímto ještě jednou děkuji mému zachránci s emailem irij...... za jeho pomoc.
Ještě že existuje toto skvělé fórum.
Pokud by měl prosím někdo čas se mi na tu chybu mrknout, stačí mi poslat email na hifix@seznam.cz a já mu obratem pošlu soubor na kontrolu.
Všem moc díky za pomoc.
já bych to musel nejspíš řešit také přes it oddělení. Ale možná bych se tam dalo domluvit, že by mi založili ještě jeden odkaz síťové tiskárny s nastavením na oboustranný tisk. Jak by potom vypadalo makro odkazující na konkrétní síťovou tiskárnu?
tak to už by bylo fakt moc složité. Pokud to nejde jiným jednodušším způsobem tak ten oboustranný tisk oželím.
pokud se mi na to někdo mrkne pošlu mu to na email
eLCHa napsal/a:
Abyste mohl nastavit oboustranný tisk, musíte vstoupit do vlastností tisku, tedy programu tiskárny.
Rozhodně to nebude jednoduché makro. Viděl bych to na API.
co znamená API?
Ahoj,
v práci využívám síťovou tiskárnu a potřeboval bych jednoduché makro, které mi vytiskne např. 1 a poslední list sešitu, ale oboustranně. Zkoušel jsem to přes nahrát makro, ale to mi nějak není schopné nahrát změnu v nastavení tisku na oboustranný tisk.
Dá se nějak vytvořit oboustranný tisk s využitím síťové tiskárny pomocí makra. Všem předem děkuji za odpovědi.
Ahoj mám problém s makrem. Je to toto úplně jednoduché makro, které je shodné pro 12 lisů. Problém ale je, že funguje na 11 a na prvním listu nefunguje tak jak má.
Ve zkratce se jedná se o to, že při změně hodnoty ve sloupcích D nebo E to spočte rozdíl E - D a výsledek zapíše do sloupce G + jsou tam ještě asi 2 podmínky.
Divné je to, že ačkoli je makro stejné pro všechny listy, tak na prvním listu nefunguje korektně a sice hodí výsledek do G ale špatný.
Může mi někdo poradit, jak zjistím, které makro zapisuje do jaké buňky případně jak odhalím vazby na to, zda mi hodnotu v buňce neovlivňuje jiné makro?
případně můžu zaslat na email celý sešit, zda by se mi na to někdo mohl mrknout. Rád bych si to opravil sám jen nevím, jak přijít na tu chybu. Celý kód jsem několikrát procházel a chybu nemůžu najít.
kp57 napsal/a:
1) No pokud víš jak to udělat ve Vlastním Formátu(netuším jak), tak použij záznamník. Jinak vzorcem, pokud v B1 má zápis stejný formát(pozice písmen, číslic). Nebo VBA Funkcí.
2) Označit oblast - Formát buněk - zruš zamknout a zamkni List.
1) no právě nevím jak to udělat s dynamickým datem ani ve vlastním formátu
2) mám moc listů a uvítal bych pokud by to uzamčení šlo udělat makrem, ale uzamčené by mělo být opravdu jen to formátování jinak nic
ahoj potřeboval bych poradit zda jde udělat vlastní formát buňky přes VBA, který by za každé číslo v buňce přidal /14, ale s tím, že hodnota za lomítkem by se odvíjela od aktuálního data, které je určeno buňkou A13.
vepsané hodnoty do buňky B1 = C 20 F 35 N 18 a formátování by z toho udělalo C 20/14 F 35/14 N 18/14
a pokud by to nešlo s těmi písmeny tak alespoň pokud by byly vepsány pouze číslice např. z 20 by to udělalo 20/14.
vím že si to můžu udělat ve vlastním formátu, ale jde mi o to zda to nejde udělat dynamicky na základě hodnoty v buňce A13.
A dál by mě ještě zajímalo zda jde nějak uzamknout pouze formátování na listech. Aby se nedaly změnit formáty buněk a výšky řádků a šířky sloupců. jinak by bylo vše normálně přístupné.
Díky za rady.
Všem díky za pomoc a nejvíce Opičákovi za "21195_rozdil-dnu-datum-txt2.zip" to je to co jsem potřeboval, ikdyž moc nerozumím tomuto řádku:
Cil = Split(Cil, ".")(2) & "/" & Split(Cil, ".")(1) & "/" & Split(Cil, ".")(0)
,ale celkově to dělá přesně co jsem chtěl a po menší úpravě a dotvoření makra to počítá jak má.
Ještě jednou moc dík všem.
Můžete mi prosím předělat ten kod aby to fungovalo? Zkusil jsem použít vaše rady ale nejde to.
v buňce B1 mám datum ve tvaru "14.4. - 18.4.2014" a potřeboval bych spočítat počet dnů mezi těmito daty. Vytvořil jsem tyto pomocné funkce
Function Cil(datumC)
Dim delkaRetezce As Long
Dim poZnak As Byte
delkaRetezce = Len(datumC)
poZnak = InStr(1, datumC, "-")
Kserazeni = Replace(Right(datumC, delkaRetezce - poZnak), " ", "")
Cil = Trim(Kserazeni)
End Function
Function Start(datumC)
Dim delkaRetezce As Long
Dim poZnak As Byte
delkaRetezce = Len(datumC)
poZnak = InStr(1, datumC, "-")
Kserazeni = Left(datumC, poZnak - 1)
rok = Right(datumC, 4)
Start = Trim(Kserazeni) & rok
End Function
a zkoušel jsem použít Cil - Start v makru VBA
Sub prepoctiCv()
Cil = Cil(Sheets("list1").Range("B1"))
Start = Start(Sheets("list1").Range("B1"))
vysledek As Long
vysledek = Cil.Value - Start.Value
Debug.Print vysledek
End Sub
, ale tam to zaboha nefunguje. Přitom pokud zapíšu do buňky vzorec =Cil(B1) - Start(B1) tak to funguje. Můžete mi s tím někdo pomoct.
Opičák napsal/a:
Palooo napsal/a:tu som este dorobil to opravovanie datumu ale ked bude 5.5 - 4.5.2014 .... tak k tomu priradi 2014 rok a nie 2013 ... to sa mi uz nechcelo dorabat :)Příloha: 20964_sort2.zip
u mě je to funkční až po úpravě řádku ve funkci
místo teček musím použít lomítko
aUpravit = StrOd(0) & "/" & StrOd(1) & "/" & aRok
jinak samozřejmě super. já jsem zkusil jinak, je to taky funkční, trochu složitější.
přechod z roku na rok jsem taky neřešilPříloha: 20965_trideni-datumu.zip
Opičáku díky! Tohle je přesně to co jsem potřeboval a funguje to jak jsem chtěl, až na ten přechod mezi roky, ale ten se mi tam stejně na 99,8% neobjeví. Skvělá práce a ostatním také díky za snahu pomoci.
Palooo napsal/a:
a co tak si makrom vytvorit 2 pomocne stlpce kde bude zaciatok a koniec
resp. kde bude len jeden datum tak budemat Od 13.5.2014 Do 13.5.2014
a kde budu dva datumy tak bude od 5.6.2014 Do 13.5.2014
a nakoniec len zoradite stlpec Od
.... toto riesenie by vam nestacilo?
bohužel ne musí to pracovat pouze s jedním sloupcem tak jak to je.
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