Příspěvky uživatele
< návrat zpět
Presne, jak psal Jeza.m
- v excelu 2007 a 2010 je to karta Zobrazeni / Ribbon Okno - Usporadat Vse (a v okne Vedle sebe)
Asi tady probehla diskuse, jak to delat s cisly - bohuzel jsem toto vlakno necetl.
Nicmene, bylo dobre uvest konkretni veci a nejlepsi je prilozit soubor, kde ukazete, jakeho vysledku chcete dosahnout...
Zdravim,
tohle lze upravit kodem - problem se zamcenim bunek je ten, ze pokud chcete mit uzamcene bunky opravdu uzamcene (tim myslim, ze do nich nelze psat), musi byt uzamcen list.
Defaultne jsou vsechny bunky listu uzamcene.
Nasledujici kod vlozte do modulu listu, na kterem pracujete:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
ActiveSheet.Unprotect
'bila barva cele oblasti a jeji odemceni (bunek)
Range("B3:H5").Interior.ColorIndex = 2
Range("B3:H5").Locked = False
'--Liberec
If Target.Value = "Liberec" Then
Range("G4:G5").Interior.ColorIndex = 15
Range("G4:G5").Locked = True
End If
'--Plzeň
If Target.Value = "Plzeň" Then
Range("E5").Interior.ColorIndex = 15
Range("E5").Locked = True
End If
ActiveSheet.Protect
End If
End Sub
Zkusil jsem to vzorcem.
Vlozte ho do bunky N8 a protahnete doprava
=INDEX($A:$H;POZVYHLEDAT($N$4;$A:$A;0)+SLOUPEC(A2)-1;POZVYHLEDAT($N$5;$A$2:$H$2;0))
hm, ok, co takto?
spousti se opet ze souboru Zdroj (Cil musi byt otevreny)
ahoj,
posilam jen Zdroj (v nem je makro na tlacitku, ktere usporada pozadovane do noveho sesitu) - snad je to neco, co jsi potreboval.
VBA je idealni, protoze je velmi jednoduche, co se tyce literatury, resilo se uz nekde na foru - staci pohledat... http://wall.cz/index.php?m=topic&id=4723&page=1#posts
ActiveSheet.Unprotect "Heslo"
.
.
.
ActiveSheet.Protect "Heslo"
jestli ulozil puvodni soubor pote, co smazal data - uz to nelze napravit 
je to celkem jednoduche - jen je potreba nadefinovat podminky, ktere urci, ktere bunky se budou kopirovat - a pak taky kam se budou kopirovat (nejlepsi je prilozit vzorove soubory)
Zkus se podivat na funkci SVYHLEDAT (a jeji variantu NEPRAVDA (0), jakozto posledni argument funkce)
Je to pomerne snadne, jen musite presne vedet, kde se nachazi a jak se jmenuje soubor, ktery chcete prejmenovat a kde se ma nachazet a jak se bude jmenovat.
Jde tedy o to definovat Puvodni (cestu a jmeno) a Novy (cestu a jmeno) soubor, viz nasledujici kod.
Sub ReName()
Dim Puvodni As String
Dim Novy As String
Puvodni = "C:\Documents and Settings\POKI\Plocha\Volley-ases2011.pdf"
Novy = "C:\Documents and Settings\POKI\Plocha\" & Range("a1") & "_" & Range("b1") & "_" & Range("c1") & ".pdf"
Name Puvodni As Novy
End Sub
myslim, ze by stacilo ze souboru Fakce prekopirovat sloupec se zakladnima udajema nekam do souboru Original (jednoduchym vzorcem SVYHLEDAT nebo POZVYHLEDAT) zjistit, jestli je zaznam z Original i ve Fakce (v tom pripade treba priradit jednicku) a potom vyfiltrovat vsechny jednicky - zkopirovat vyfiltrovane udaje do noveho souboru a prehat do pozadovane struktury...(ovsem pokud neexistuji duplicity v zakladnich udajich...)
No nevim, jestli kdyz mate spoustu dat je moudre davat kazdy zaznam na jeden list, ale jak je libo... 
Jen tak jsem si zkusil dvojklik na krizku zavreni aktualniho sesitu a zavrely se vsechny sesity, tak nevim, jestli to muze byt tak jednoduchy...
To zalezi na tom, jak ty konkretni data vypadaji.
Jestli je napr. v obou listech nejaky jednoznacny identifikator (cislo zakazky nebo tak neco) podle ceho by se dalo vyhledavat)
Nebo jestli chcete, aby to bylo vzrocema nebo makrem...
Chtelo by to vzorovy sesit a presny popis toho, ceho chcete docilit...
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články