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

Příspěvky uživatele

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

Akurát to nemůžu formátovat jako tabulku, jelikož to bude sdílený soubor

Zdravím,
potřeboval bych poradit, už si nad tím lámu delší dobu hlavu..

Mám v listu STOP data ( které vkládám makrem ze serveru ), které bych chtěl překopírovat do listu STOPS, ale tak, aby se smazaly duplicitní řádky, ale před tím, když najde ve sloupci "I" stejné číslo chyby , aby sečetlo dané řádky ve sloupci "F" viz přiložený dokument..

list STOP má někdy i 1000 řádků a proto bych to chtěl trochu zredukovat v listu STOPS

Děkuji všem, kteří mě nakopnou nebo pomůžou

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse