< návrat zpět

MS Excel


Téma: VBA komentare rss

Zaslal/a 27.1.2011 12:32

Zdravim,

prosim o radu jestli někdo neví jak napsat makro aby se mi automaticky kopírovaly obsahy buňek které splňují nějakou podmínku do komentářů. Na netu jsem našel makro které kopíruje vzorce ale moc mi to nepomohlo .. nemáte někdo prosím někdo nějakou radu? Předem díky

podmínka (např): =SUMA(KDYŽ(StCHa1!I7:I4000=9;KDYŽ(StCHa1!O7:O4000=64;1;0))) (samozřejmě na něco jinýho musela by se k tomuto účelu nějak upravit)

Zaslat odpověď >

icon #003915
Poki
chapu, otazka je, pro jake bunky toto uplatnit a jake jsou ty podminky.
Pro nazornost, nasledujici kod umisti hodnotu aktivni bunky do jejiho komentare v pripade, ze se aktivni bunka rovna 1 If ActiveCell.Value = 1 Then
ActiveCell.AddComment (CStr(ActiveCell.Value))
End If
citovat
#003919
avatar
Zdravim,

pro lepší pochopení přikládám soubour o který se jedná a věc je následující:

do listu 2 (M7-X4000) nakopíruji seznam
buňky A7-L4000 obsahují podmínky přes které si poté můžu vyfiltrovat potřebné údaje
pro příklad filtrován sloupec J (PV2>AV)

v listu 1 je tabulka (A1-N19) kde se provádí součty informací které splňují podmíky

moje otázka je jestli je nějaká možnost udělat makro které by do listu 1 např. do buňky K15
udělalo komentář z listu 2 buňka M10 (zde se jedná jen o jednu buňku a jeden komentář ale jiný případ by mohl být víc komentářů do jedné buňky)
Příloha: zip3919_status-changes.zip (430kB, staženo 11x)
citovat
icon #003920
Poki
Udelat jde temer vsechno, jen je otazka, jak to "neco" nadefinovat.
Mozna jsem natvrdlej, ale porad to nechapu.

Bylo by mozne jasne rici, co potrebujete?
Napr. Do bunky K15 na listu 1 potrebuji vlozit komentar, ktery by obsahoval hodnotu bunky M10 z Listu 2 pouze v pripade, ze bunka M10 na listu 2 nebude prazda.

Nebo neco v tomto duchu - mozna je to tema pivkama, co jsem si vcera dal, ale proste nechapu... 7citovat
#003921
avatar
Pohodička 4 možná jsem to napsal špatně ....

prostě vytvořit makro který by udělalo komentář k příslušnej buňce v listu1 tzn.:

zkopíruju si seznam do listu2 jak se už psal kde má každej sloupec zadaný vzorce který filtrujou nějaký údaje takže si vyfiltruju informace jak už jsem psal ve sloupci PV2>AV ty se mi automaticky propíšou do tabulky v 1istu1 ale právě bych tam potřeboval aby se automiticky k těmto buňkám přidělili komentáře z buněk v listu2 (obsahy - XVK79******) tzn že by to makro muselo brát v potaz zadané podnínky a dokázalo podle nich přidelit komentář do příslušné buňky v listu 1 ...a vypadalo by to následovně : v listu1 je tabulka kde u "varianty" XVK79 je 1 událost která splňuje podnínky a v komentáři by bylo přesné číslo této varianty XVK79****** která splnila tyto podnínky ....kua to je hrozná věta ... 7citovat
icon #003922
Poki
takhle by to snad mohlo jit...
Příloha: zip3922_status-changes.zip (521kB, staženo 23x)
citovat
#003925
avatar
co na to říct ... úklon až k zemi ...jestli seš z Plzňe máš u mě moc piv ...díky!!!citovat
icon #003927
Poki
tak jsem to teda nakonec asi pochopil.
Bohuzel z Plzne nejsem, tak si budu muset dat specialitku z my rodny hroudy - vino :).
Viva Znojmo!!! 7citovat
#003935
avatar
Čus,

tak ještě jednou otravuju .. dnes jsem to v práci odzkoušel a jak jsem psal funguje to přesně jak jsem potřeboval ale pouze na omezenou oblast …proto jsem chtěl poprosit jestli by to nešlo rozšířit na všechny buňky … nasimuloval jsem jak by to mohlo vypadat (každý den se seznam mění).
Pozn. Upravil jsem podmínky ve vzorcích (Ano-1 / Ne-X pro všechny podmínky) před tím to bylo stupňovaný po sloupcích (Ano-1 / Ne-X ; Ano-2 / Ne-X atd.)

A poslední prosba nedoporučil bys mi nějakou literaturu na VBA for apl. Chtěl bych se to taky naučit a už víc neotravovat :o)
Příloha: zip3935_status-changes1.zip (481kB, staženo 16x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:49

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 10:47

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:40