Příspěvky uživatele
< návrat zpět
Jiří497 napsal/a:
Jedna možnost:
If foundRange.Offset(0, 17).Value < DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
Bohužel nefunguje a druhá možnost by nebyla ?
Zdravím hekři :-),
prosím o pomoc v těch datumech mám stále nedostatečné znalosti.
Mám kód:
If foundRange.Offset(0, 17).Value < Date Then
a u toho Date bych chtel kontrolovat Date minus rok, aby to kontrolovalo datum starší než jeden rok..
Děkuji za jakékoliv nakopnutí.
(Datum a čas je pro mě tabu)
Díky
Vždy když se zapisují ve VBA uvozovky tak se musí napsat 2x
Zdravím,
chtěl bych se zeptat, jestli lze automaticky rozsirovat vzorec v kontingenci tabulce, jelikoz ted ji mam ted udělanou tak, že když pribude řádek tak se automaticky rozšíří, ale když jsou v ní nějaké vzorce tak ty se nerozšíří níž..
Dík za jakékoliv info
Zdravím,
asi mi to už nemyslí, ale nějak se mi to furt nedaří..
Mám:
ActiveSheet.Range("S" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Offset(0, 0).Value
pod tlačítkem se nachazí číslo 1 potřebuji to přepsat na 2, jelikož mám podmínku když 1 tak něco udělá a chci, aby to přepsalona 2 a když 2 tak něco jiného
Díky moc za jakoukoliv radu
Tak mě napadlo, že bych vytvořil: pokud se ve sloupci Smlouva zadají data tak se zobrazí ve sloupci T tlačítko, kterým se to odešle nebo když se v sloupci Smlouva udělá změna tak to automaticky odešle mail, ale nevím kde bude emailová adresa
když tak pisnete nejak to udelam 
Tak funguje perfektně to by mě nenapadlo i když jsem už tohle i dělal a v tomto případě mě to nenapadlo..
Děkuji moc krát
Mrkněte na to hned vecer diky moc doufam, ze to nejak dokoncim
Zdravím,
chtěl bych se zeptat, jestli lze číslu přiřadit každému číslu jiný znak nebo jiné číslo.
Vzor s převodem mám v příloze.
Děkuji za jakékoliv nakopnutí
tzv. aby to udělalo záznam při načtení ID karty a vyprázdnilo to textbox.
Poprvé to udělá a podruhé už to nic neudělá
opravdu nejblbější řešení 
, ale funguje
Hoj Hekři ,
řeším takový problémek :
Když zkopírujete nějaké ID např. "12345678" a kliknete na tlačítko "Přidat záznam" a vložíte do pole "Naskenovat ID kartu..." tak se správně vloží záznam, ale problém je v tom, že to bude připojené k čtečce karet a chtěl bych, aby to fungovalo opakovaně, ale nedaří se mi to zprovoznit 
Díky za jakoukoliv radu
elninoslov jsi jednička s milionem hvězdiček
No teď mě napadlo, že to vždy končí "min" , ale jak to tam implementovat
Zdravím,
chtěl bych se zeptat, jestli lze makrem vyhledat určený text a přebarvit ho ?
Např.:
Nezapsané prostoje- 1h47min, NOK stanice - 1h4min,
Přechod - změna MIX/UL- 11min, MIX Váha - šnek / Vibrátor- 32min, Start-up / Čekání na Start-up - měření teplot- 11min,
a přebarvit část textu např. Nezapsané prostoje- 1h47min
, ale ten čas je pokaždé jiný..
tzv. kliknu na tlačítko a pokud najde Nezapsané prostoje + časy v některých buňkách tak je přebarví na červenou
Mám udělané zatím tohle:
Set myRange = Range("A1:A100")
substr = "Nezapsané prostoje-"
txtColor = 3
For Each myString In myRange
lenstr = Len(myString)
lensubstr = Len(substr)
For i = 1 To lenstr
tempString = Mid(myString, i, lensubstr)
If tempString = substr Then
myString.Characters(Start:=i, Length:=lensubstr).Font.ColorIndex = txtColor
End If
Next i
Next myString
, ale nevím jak přidat ten čas který se mění
Díky za radu
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články