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

Příspěvky uživatele

Něco takového ?
Ale není použito sloučení buněk, protože to dělá komplikace. Určitě existuje lepší způsob, ale jde to i takto pomocí několika skrytých sloupců a podm. form.

A proč to děláte tak složitě ? Proč definujete řádky ručně ? Použijte fci =SUMIF(S). možná by bylo lepší sčítanou oblast pojmenovat např.LEDENSUM atd. Ale jako vždy, bez příkladu se těžko radí.

Mám dotaz, co je to za text? Je to zadání nebo výpočet ?
Zadání, tedy z klávesnice nebo odněkud překopírované, stažené atd. znamená, že jde upravit před vložením nebo je to výpočet a ten lze zase upravit před vložením do listu. Jde to jak už napsal cmuch.

a dál ?.....

zapomněl jsem

píšeš :Problém ale je, .... původní tabulka je totiž větší a výsledné buňky jsou i jiných rádcích a sloupcích). Hází mi to chybu.
tak to možná bude problém.
Něco jsem zkusil, ale jen pro ty sloupce CDE.
Po výběru a kliknutí na tl. jsou hodnoty v Clipboardu.

Nepomůže toto?
Function InRange(Range1 As Range, Range2 As Range) As Boolean

Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function

Sub TestInRange()
If InRange(ActiveCell, Range("A1:A100")) Then

MsgBox "Active Cell In Range!"
Else

MsgBox "Active Cell NOT In Range!"
End If
End Sub

Tak jsem to ještě doplnil.
Start je makrem START. Přepíše seznam, odstraní prázdné řádky, pak jede to původní makro, takže načte všechno z listů a nakonec odstraní řádky, kde není nic.
V seznamu se některé státy opakují, takže i na výslednici jsou dvakrát. I to by šlo odstranit a nebo to musíš promazat.

Ještě se na to podívám, jak to předělat.

Googlil jste málo
Sub CopyFolder()
Dim fso
Dim STARY As String, NOVY As String
STARY = "c:\dokumentyMT\testce"
NOVY = "c:\dokumentyMT\test2"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(NOVY) Then
fso.CopyFolder STARY, NOVY
Else
MsgBox NOVY & " adresář existuje!", vbExclamation, "CHYBA NÁZVU"
End If
End Sub

Podívej se, jestli je to tak jak to má být.
Na listu spolu musí být v posledním řádku Spolu (červené písmo) a na listu akronym musí být "konec" (opět červeně označeno). Šlo by to i bez toho, ale už nemám čas. Na počti listů nezáleží, podmínkou je, že ty dva se budou jmenovat "spolu" a "akronym" na jmenech ostatních nezáleží. Trochu problem dělají sloučené buňky na listu akronym, protože jak to hledá název státu, tak to najde řádek, ale řádek ve sloučené bunce je prázdný. Většinou jsou jen dvouřádkové, takže jsem to ošetřil tak, že pokud nenajde zkratku, skočí o řádek výš. Ideální by bylo zrušit sloučené bunky a zkratka aby byla na každým řádku.

@ lubo
nejsem si jistý, jestli dává vzorec správný výsledek. Rozhodně ne při záporných hodnotách končících nulou. Např. -120 hodí interval -121 <> -120 podle mě by to mělo být -120 <> - 111.
Když dáš + 120 tak to hodí 121 <> 120 což je taky špatně. Mělo by být 111 <> 120.
Mě vyšel ten vzoreček trochu delší, ale myslím že je správně:
=ZAOKR.DOLŮ(A1;10)+KDYŽ(MOD(A1;10)=0;KDYŽ(A1<0;0;-9);+KDYŽ(A1<0;0;1))&" < - > "&ZAOKR.DOLŮ(A1;10)+KDYŽ(MOD(A1;10)=0;+KDYŽ(A1<0;9;0);+KDYŽ(A1<0;9;10))

Neznám čísla okresů, která máte na mysli, ale vyhledávat to jistě jde, pak k nim přiřadit název okresu, to může být skryté a vyhledat na mapě nějakým takovým způsobem jako je v příloze.

=HODNOTA.NA.TEXT(A1;"mmmm rrrr")

do vzorce dosadit převod na text.

S tím nápisem načítám data je to myslím složitější. Zobrazení nápisu či postupu načítání by muselo být "zakomponováno" do vlastního makra pro načítání dat. Řešitelné to je, ale nevidím v tom žádný smysl, krom jakéhosi efektu.
Jednodušeji to jde zobrazením upozornění a pak teprve načítat data.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje