Příspěvky uživatele

Není to moc šťastné řešení, protože zapisuješ úkol do stejné buňky, jako je datum. Pokud nedodržíš oddělení data od úkolu pomlčkou, nebude to fungovat. Pomlčka je užita pro oddělení textu od data, tzn. aby se vpravo zobrazilo jen "jít do hospody" a ne "15 - jít do hospody". Počet znaků ukolu je omezen na 30. V tabulce máš ale nějakou chybu, protože dnes je 5.2 - uterý, ale ty tam máš uterý 6.2. to si oprav.

Funkce pro mini a maxi pás karet. Snad to pomůže, jdu spát

????????????? F1 startuje nápovědu a když to v tom kodu je, tak to "napovídá"

mrkni na tento způsob, zrušeno vše k tomu účelu nepotřebné.

Pokud chceš cestu i s názvem souboru vyhledat makrem, zkus toto. Do svého makra to musíš samozřejmě nějak "namontovat"

Sub najít_cestu_k_souboru()
Dim soubor As String
Sheets("List1").Select
' zjištení cesty
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = C:
.Title = "Vyber adresar"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Zrušeno": Exit Sub
Else
soubor = .SelectedItems(1)
' soubor je kompletní cesta k souboru i s jeho názvem
End If
End With
MsgBox "proměnnou souborv ve VBA použij jako kompletní cestu k souboru co potřebuješ " & soubor
End Sub

Ještě k tomu řešení co jsem poslal. POZOR na jeden nedostatek. Jistě by to šlo ošetřit nějakou kontrolou těch prázdných buněk. O co tedy jde. Prázdná buňka je prázdná, ale zárověň se tak vizuálně jeví i buňka, kde je jako znak "mezera". Program mezeru hodnotí jako znak !!!

http://www.excelvba.estranky.cz/clanky/tipy-triky-navody/pravidla-programatora-vba.html

Kde je chyba víme stejně tak, jak to víš ty - někde v počítači. Bohužel najít ji je velmi těžké, ne-li nemožné. Se stejným problémem se potýkám také na některých pc. Alespoň u mě platí pravidlo, čím starší pc, tím "zasviněnější" a pomalejší. To co mi na novém pc s WIN8 a OFF2010 běží podle představ, na starým počítačovým dědovi se vleče i 10x pomaleji. Takže s Tebou cítím, ale to Ti nepomůže.
Zkus odstranit, či jinak nahradit TAM KDE JE TO MOŽNÉ .Select, to je velká brzda Excelu a také čtení čí zápis z jednoho listu na jiný. Filtrovaná data taky obstojně brzdí, ale to se tu už taky myslím řešilo. Googli a hledej a přeji štěstí.

Sub Makro1()
Dim oblast As String
For radek = 1 To 4000
oblast = "E" & radek & ":W" & radek
ActiveWorkbook.Worksheets("Hlavní stránka").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hlavní stránka").Sort.SortFields.Add Key:=Range(oblast), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,45+1.,45+2.,45+3.,45+4.,45+5.,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,90+1.,90+2.,90+3.,90+4.,90+5.,90+6.,90+7.,90+8.,90+9.,90+10.," _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hlavní stránka").Sort
.SetRange Range(oblast)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next radek
End Sub

tak ?

Jak napsal Pavlus ... a já ještě dodám, že je nutné zamčení listu zaheslovat, aby se v tom každej nešťoural....a dost dobré je pamatovat si heslo

Jeden z mnoha možných způsobů, obyčejné vyhledání a kopírování. Akorát listy 1 a 2 jsou obráceně, takže z listu1 na list2.

To samé s výpisem řádků, kde se ještě kombinace směrem dolů opakuje.

To samé s komentářem makra pro orientaci v makru.

Tak princip stejný jako Pavlus, ale všechno makrem. Počet řádků je neomezený, v podstatě je jedno co v buňkách je, tedy něco nebo nic, pomocný sl. je skrytý a funkce Countif + podmíněné formátování = zvýraznění NEjedinečných řádků. Nějaký řádky jsem si pro vyzkoušení zkopíroval. Makro je velmi jednoduché, tak na něj koukni, odkrokuj si ho a uvidíš, jak pracuje.

Makrem bych měl, ale ještě upřesnění - na kolik to má být řádků ?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje