• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

Děkuji moc

Zdravím,
Nesetkal jste se někdo s touhle chybou ?

Run-time error'-2147417878 (80010108)': Method 'Add' of object 'ChartObjects' failed

Zobrazí se jen tehdy, když dám soubor na síť a sdílím ho a jen u tlačítka, které posílá email..

Dík za jakoukoliv radu

funguje přesně jak má jsi šikula ( tohle bych makrem jak to máš nikdy nedal ).

Problém nastane tehdy, když tam je 1000 řádků trvá to strašně dlouho, tak jsem to udělal nakonec takto:

přidal jsem další sloupec:
=SUMIFS($F2:F$2000;$B2:B$2000;B2;$I2:I$2000;I2))
a nakopíroval dolů..

tím pádem mi to sečetlo časy daných chyb.
a pak jsem smazal duplicitní hodnoty


Sheets("STOPS").Select
Columns("A:AA").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("STOP").Select
Columns("A:AA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$AA$1998").RemoveDuplicates Columns:=Array(2, 3, 9, 10, _
11, 22), Header:=xlYes

pracuje to mnohem rychleji, jen tam je ten sloupec navíc.. ( a jen mi trvalo asi 10 hodin na to přijít )

Ale děkuji mockrát za ochotu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje