Příspěvky uživatele

Hm co jsem zkoušel na tom vzorku co jsi poskytnul tak korektního převodu do číselného formátu sem dosáhnul pouze tak, že jsem "hodnoty" tedy sloupec C označil dal kopírovat a vložil (volba vložit jinak - hodnoty) do sloupce D a použil makro z odkazu
http://wall.cz/chyba-cislo-je-ulozeno-jako-text.a177.html

Jelikož ty "částky" jsou psány s oddělením tisíců (2 860), tak se mi to podařilo udělat pouze "s pomocným" sloupcem B, který můžeš poté skrýt.
Možná někoho napadne elegantnější řešení.

Pak je ještě možnost vytvořit si UserForm s hláškou který se na začátku makra zobrazí a na konci skryje, ale musí se tam nastavit nějaká hodnota (už si nepamatuju jaká). Zkus pohledat ve starších vláknech už seto tu řešilo.

Edit: tak sem to našel
http://wall.cz/index.php?m=topic&id=2820

Dá se umístit zpráva o běhu makra do stavového řádku (otázka je jestli si toho obsluha PC všimne).
Např: na začátku makra
Application.DisplayStatusBar = True
Application.StatusBar = "Makro pracuje"

na konci makra
Application.DisplayStatusBar = False

Něco takového?

Tak sem se o něco pokusil (určitě by to šlo udělat elegantněji)

Můžeš poskytnout vzorek. Pač z toho popisu sem to nepochopil.

Základem je udělat si "zdroj dat", někam bokem si uděláš tabulku s údaji pro Výdaj a údaji pro Příjem. A do toho druhého seznamu jako zdroj dat umístíš fci když s odkazem na tu tabulku.
No v příloze je jednoduchá ukázka tak na ní mrkni.

Ten vykřičník znázorňuje že šešit obsahuje MAKRO. Máš je vůbec povolená??
Tlačítko Office - možnosti aplikace excel - centrum zabezpečení - nastavení centra zabezpečení - nastavení maker a povolit.

Nene v buňce F5 není žádný vzorec o tu buňku se stará makro. Když bude posledního tak makro při otevírání sešitu zkontroluje jestli se datum v buňce C1 shoduje s datem v D1 a vypíše hodnotu z buňky F8

Pro vyzkoušení je možné do buňky C1 napsat datum 31.1.2011 a sešit uložit a uzavřít, při opětovném otevření makro vyhodnotí shodu dat a přepíše hodnotu buňky F8 do F5. Po "testu" znovu do buňky C1 napsat fci =DNES().

Můj pokus "funguje" až do řádku 2000
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 1 To 2000
If Cells(i, 6).Value = "ahoj" Then
Rows(i).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Sub

Tak mám tu ještě jeden pokus, ten předchozí by při změnách v šešitu k "poslednímu" v měsíci házel špatný výsledky.
Úprava spočívá v buňce C1, která obsahuje fci DNES() a makru které při každém spuštění sešitu zkontroluje datum a když najde shodu přičte hodnotu buňky F8 k F5
To znamená když bude 31.1. makro automaticky při otevření sešitu přičte hodnotu, jestli-že provedu změny v sloupci F od řádku 11 a chci aby se přičetla hodnota do F5 musím sešit zavřít (s uložením) a opět otevřít.
Snad jsem to popsal srozumitelně. Líp to udělat neumím, snad se najde někdo kdo to vylepší.

Tak sem to zkusil pomocí malýho makra, snad to bude vyhovovat.
V buňce C1 je aktuální datum (zadáš pomocí fce DNES(), ručně nebo kombinací kláves CTRL + ;), v buňce D1 je "poslední" datum v měsíci pomocí fce EOMONTH. Když se budou hodnoty (data) shodovat makro přičte hodnotu buňky F8 k buňce F5

Ostatní sloupce prostě skryješ.
Označíš 6-tý sloupec (F), stiskneš Shift a držíš poté klávesu end stále se stisklím shiftem a jako poslední kurzorovou šipku (pravou),teď pustíš ten shift. Tím se ti označí všechny soupce, poté klik pravým tlač. myši a vybereš skrýt.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje