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

Příspěvky uživatele

co takto?

Myslim, ze to jde takto:
ActiveSheet.Range("$A$1:$A$27").AutoFilter Field:=1, Criteria1:="<>a", _
Operator:=xlAnd, Criteria2:="<>b"

ale funguji jen dve podminky, takze jestli jich mate vic, bude potreba to vyresit jinak.

Nevim, jak ostatni, co se tady na foru poflakuji, ale tohle jsem fakt nepochopil ani za boha - cetl jsem to 3x a nemam nejmensi tuseni.

Takze bud tazatel PRESNE popise, co potrebuje a prilozi prilohy (samozrejme fiktivni data), aby bylo videt, co vlastne chce mit jako vysledek, nebo tohle tema uz nesebere ani minutu meho casu...

Podivejte se na prilozeny soubor - na listu DATA do sloupce A doplnte ICa a stisknete tlacitko Get Data (jeden zaznam trva par sekund, takze jestli jich mate 400 - bude to trvat...)
snad to bude fungovat :)

tech je tam taky spousta a nemyslim, ze vsechny jsou zadouci, asi by to chtelo presny popis...

V Aresu je spousta dat, z OR, z ZR, DPH...jaka data potrebujete?

MOzna jsem dotaz uplne nepochopil, ale treba tento vzorec bude aspon inspirovat...
=KDYŽ(A(SUMA(A1:A100)>4999;SUMA(A1:A100)<10001);"mezi 5000 a 10 000";KDYŽ(A(SUMA(A1:A100)>10000;SUMA(A1:A100)<15001);"mezi 10 000 a 15 000";"suma je menší nez 5 000 nebo vetsi nez 15 000"))

to okno skace kvuli tomuto radku:
MsgBox Worksheets(List).Name
staci ho smazat

Pokud budete ouzivat tlacitko ActiveX, tak je jeho kod umisten vzdy v modulu listu, kde je tlacitko umisteno - v tomto kodu lze tedy pouzivat odkaz na tento list takto:
Worksheets(Me.Name)

Pokud budete pouzivat tlacitko Formulare, musite mu priradit makro (napr. Klik) - pak se na list, kde je tlacitko umistenot da odkazovat takto:
Sub klik()
Dim List As String
List = ActiveSheet.Name
MsgBox Worksheets(List).Name
End Sub

...jestli potrebujes napsat kod, tak je potreba vlozit nejaky soubor...jinak se to dela dooost tezko

Urcite to jde, jde jen o to, napsat proceduru, ktera bude vyhledavat v prislusnem liste ony popisy (tato procedura bude spustena vzdy, kdyz dojde ke zmene textboxu)

tak posli nejaky soubor - nema smysl, aby si nekdo, kdo chce pomoci, jeste navic vytvarel sablonu, kterou uz mas ty...

Jde to takhle:
With ActiveWorkbook
.BuiltinDocumentProperties("Author") = "Jeza"
.BuiltinDocumentProperties("Title") = "Jezovo"
.BuiltinDocumentProperties("Subject") = "Jeza says"
.BuiltinDocumentProperties("Manager") = "Jeza MBA"
.BuiltinDocumentProperties("Keywords") = "Jezovy slova"
.BuiltinDocumentProperties("Category") = "Jezovy kategorie"
.BuiltinDocumentProperties("Comments") = "Jezuv koment"
End With

Dalsi vlastnosti najdes v napovede VBE po zadani: BuiltinDocumentProperties

asi takto:
=DATUM(ROK(G4);KDYŽ(DEN(G4)<10;MĚSÍC(G4);MĚSÍC(G4)+1);10)

je to jednoduchy podmineny soucet (2 podminky)
Lze pouzit:
1) maticovy vzorec (v priloze)
2) funkci SUMIFS (od office 2007)
3) funkci SOUČIN.SKALÁRNÍ

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse