Příspěvky uživatele

jde-li o číslo vpravo, tak ano.

Taky si přidám jeden pokus, byť 12 minut po dvanácté :-)
=ZPRAVA(A1;DÉLKA(A1)-NAJÍT("###";DOSADIT(A1;" ";"###";DÉLKA(A1)-DÉLKA(DOSADIT(A1;" ";"")));1))*1
M@

Trochu se obávám, že neaktivitou bude myšleno to co se běžně ve firmách u síťových souborů děje, uživatel A otevře soubor, třeba jen proto, že se chce podívat a pak někam narychlo musí a soubor nechá otevřený, čímž ostatním znemožní úpravy a bylo by tak ideální kdyby se po nějaké době sám zavřel. Což zní jednoduše, ale s realizací je to horší.
Když u nás máme takovéto soubory, tak se snažím je ukládat s nastavením "Doporučeno jen pro čtení", tak aby 80% uživatelů, kteří jen nahlíží mohli otevřít opravdu jen pro čtení a neblokovali soubor těm 20% co potřebuje dělat změny. Nicméně pořád je to o lidském faktoru.

Teoretickou možností by byl script, který by prostě "utnul" excel, tento script by byl spouštěn v Plánovači úloh a jako spouštěč by nesloužil konkrétní čas, ale položka "Při nečinnosti" na daném pc. Je to jen tip, nezkoušel jsem, ale fungovat by mělo, jen to může někoho hodně naštvat, když si neuloží práci a odskočí si :-)

M@

Jen taková rychlovka ...

M@

Když už proběhl Pacman, tak dáme i jednu retro logickou :-)
https://cs.wikipedia.org/wiki/Logik_(hra)
M@

koukám že, jsem neposlal přílohu :-)

@ elnino
Nějak mi např. 5010 nesedí, měla by být modrá a v tvém souboru je hnědá :-/.

http://rgb.to/ral/5010

Pokud je Office 2013 a vyšší, tak by mohla fungovat funkce webservice, pomocí které makro v příloze získá json odpověď z webu http://rgb.to a z toho textově vypreparuje hodnoty RGB, podle kterých obarví buňku.
Vypreparování by mohlo být snazší za pomocí json knihoven, ale nechtěl jsem to komplikovat.

Podmínkou je připojení k internetu :-)
Pokud by mělo fungovat i bez něj, tak je potřeba si uložit a použít převodní tabulku viz. odkaz od elnina a z té získat RGB hodnoty.

M@

Ve sdíleném souboru může být víc lidí na jednou, když každý bude mít přesně danou oblast k doplnění aby nedocházelo k přepisování.

Každopádně nejlepší pokud je to opakovaná činnost by bylo použití databáze, což není tak "jednoduchá" záležitost jako Excel, ale určitě je praktičtější.

No a na konec je tady možnost nechat to tak jak máte a povolat do akce makra. Za předpokladu, stejné struktury jednotlivých souborů i toho cílového, makro pak může projít všechny soubory ve složce a data přepsat do cílového, k tomu je ale potřeba znát strukturu souborů, což ze zadaného textu nikdo nevytuší. Mám takový pocit, že už se tady něco takového řešilo, zkuste pohledat.

M@

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Cells(Target.Row, 4) = "ano" And Cells(Target.Row, 8) = "" Then Cells(Target.Row, 8) = "=B" & Target.Row
Application.EnableEvents = True
End Sub
M@

Třeba to pomůže ;-)
If Rows(radek).Hidden = False Then

Jedině makrem ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 Then 'nastavit podmínku pro řádek / řádky na kterých se má po enteru přesouvat vpravo.
Application.MoveAfterReturnDirection = xlToRight
Else
Application.MoveAfterReturnDirection = xlDown
End If
End Sub

M@

příklad v příloze.

M@

Public Sub makro()
Dim tmpind As Boolean
For r1 = 1 To List1.UsedRange.Rows.Count
tmpind = False

For r2 = 1 To List2.UsedRange.Rows.Count
If List1.Cells(r1, 1) = List2.Cells(r2, 1) Then
tmpind = True
Exit For
End If
Next

If tmpind = False Then
r2 = List2.UsedRange.Rows.Count + 1
List2.Range("A" & List2.UsedRange.Rows.Count + 1 & ":A" & List2.UsedRange.Rows.Count + 1 + 11) = List1.Cells(r1, 1)
End If

Next
End Sub
M@

Sice by bylo rozumnější aby uživatel v souboru s makrem stiskl tlačítko a zobrazil se mu dialog pro výběr souboru, ale abych odpověděl na zadání, tak viz. kód níže. Blbý bude až budeme mít otevřeno více souborů :-), nebo když se mu podaří každý soubor spustit v jiné instanci excelu - proto bych doporučil to přehodnotit a mrknout i na druhý příklad.

Dim jmeno As String
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
jmeno = wb.Name
Exit For
End If

Next

If jmeno <> "" Then MsgBox jmeno Else MsgBox "Nenalezeno"

Výběr souboru ...
Dim soubor As String
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
Application.FileDialog(msoFileDialogOpen).Show
If Application.FileDialog(msoFileDialogOpen).SelectedItems.Count = 1 Then
soubor = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
MsgBox soubor
End If

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje