Příspěvky uživatele

mozna pomuze tento kod: Sub SECTI()
Dim i As Long

'vlozeni hodnot souctu na radek
For i = 2 To Cells(1, 1).End(xlDown).Row
Cells(i, 4) = Cells(i, 2).Value * Cells(i, 3).Value
Next i

'vlozeni sumarniho radku
Cells(i, 1) = "Celkem"
Cells(i, 4).Formula = "=SUM(" & Cells(2, 4).Address & ":" & Cells(i - 1, 4).Address & ")"

'ohraniceni sumarniho radku
With Range(Cells(i, 1), Cells(i, 4))
.Font.Bold = True
.BorderAround Weight:=xlMedium
End With

End Sub

neco takovyho zkratit samozrejme lze, ale je potreba indentifikovat "vzorec", jak toho docilit, takze by bylo dobre videt vice prikladu techto nazvu (280x110x30- SPK Šamot kachľový nebo ZNS1800SP ŽB zmes), aby vysledek byl podle predstav.
Slo by napr. v kazdej z techto nazvu nalezt prvni mezeru a pouzit pouze znaky pred ni...zalezi to ale na tom, jake formaty ty nazvy maji - proto je dulezite videt poradny vzorek dat.

tak jsem zkusil neco vytvorit, zkuste to, treba to fungovat podle predstav.
Jen pro zacatek, jako dva posledni soubory musite otevrit ty dva, ktere chcete porovnavat a v obou musite pred spustenim makra oznacit oblasti, ktere chcete porovnat (museji mit stejny pocet radku a sloupcu).
V priloze jsou dva soubory, ktere jsem pouzival pro testovani (makro se nachazi v souboru PrikladTabulky2.xls)

Nevim, jak jste zbehly v psani maker, ale nejjednodussi by asi bylo si nejdriv vybrane oblasti ulozit do promennych a pak s nimi uz pracovat...
Kdyz chcete oblasti vybrat, je nutne pri jejich ukladani do promennych prepnout na konkretni sesit.
Jednotlive bunky uz pak muzete projit a porovnat jednoduchy cykles For Each...Next

Sub Oblasti()
Workbooks(2).Activate
Set oblast1 = Range(Selection.Address)
Workbooks(3).Activate
Set oblast2 = Range(Selection.Address)
MsgBox "Oblast1: " & oblast1.Address & vbNewLine & _
"Oblast2: " & oblast2.Address
End Sub

Ja teda nevim, jak vam, ale mne, kdyz oznacil listy, ktere chci kopirovat, kliknu na ne pravym a dam Presunout nebo zkopirovat (do jineho sesitu, vytvorit kopii), tak se mi nedrzi odkazy na puvodni sesitu, ale zustanou v sesitu novem (pokud ovsem nemam odkazy do listu, ktery jsem neprekopiroval...)

Nemyslel jsem to nijak zle, jen ze by bylo lepsi (pro vsechny) pokusit se popsat vse co nejprenejsi a predevsim prilozit vzorovy soubor (coz ovsem znamena byt zaregistrovany uzivatel)

Nevim teda, co tim myslite, ale treba takto?

Pro priste bch doporucil, abyste PRESNE definoval, co potrebujete, protoze tento system pokus-omyl a delani veci na petkrat nikdo nema rad a kdyz to reknu neomalene, tak se na to priste vykasle...

Zkusil jsem neco pomoci vlastni funkce (jde o upravenou Svyhledat tak, aby umela najit i dalsi vyskyty hledane hodnoty).
STaci to takhle?

Tady to je. Podminka skryti radku je navazano na bunky ve sloupci D - pokud tam je slovo "Okno", radek se skryje.

Zadne 'Promo' na listu neni.
Zkuste popsat, co tedy presne potrebujete na zaklade prikladu vasi tabulky...

Mam par otazek:
1) nechapu to, ze se zapisuji tri hodnoty pod sebe (nezapisuji se 3 hodnoty vedle sebe? - mate me to)
2) muze se stat, ze bude stejny druh ve stejny cas v oblasti A-C vicekrat? (pokud ano, ma se pocet scitat?)
3) Podle poctu sloupcu a zaznamu ve sloupci to vypada, ze muze byt v oblasti A-C maximalne 24 radku, je to pravda?

Zdravim,
snad v priloze najdete, co potrebujete.
Problem je, jak definujete barvu fontu.

V Office 2007 existuje sirsi paleta bareb, ve verzi 2003 pouze asi 56 barev.
Musite si tedy vybrat barvu, ktera je obsazena v obou verzich (tedy z verze 2003). Klasicka cervena barva je definovana jako .Font.ColorIndex = 3

Tuto barvu musi mit i vase radky v tabulce, jinak to nebude fungovat...

nemam s tim moc zkusenosti, ale zkusil jsem Obnovit konce stranek a fungovalo mi to (a pamatuje si to, resp. upravuje toi po dalsim filtrovani).

Zkus jen jednou dat: Karta ROzlozeni stranky / Konce / Obnovit vsechny konce stranek

aha, potom bych zkusil tohle:
=INDEX(A1:I15;POZVYHLEDAT(SVYHLEDAT(K3;B:B;1;1);B:B;0)+1;POZVYHLEDAT(VVYHLEDAT(L3;A2:I2;1;1);A2:I2;0)+1)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje