Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3

asi se špatně vyjadřuji. Omlouvám se, ale jsem z toho fakt zmatenej. Mám v modulech to co jsem uvedl jako Module1

no a pak do listu jedna a do ostatních kde budu potřebovat to makro spustit chci vložit toto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Vymaz
End If
End Sub

jen nevím jak změnit adresu té buňky která je v listu vzorce!B1

aby když budu mít toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Vymaz
End If
End Sub

v listu 1, 5, 12 a 16 například, tak aby to ovlivnilo jen je ten Modul1
Teď už jsem to vysvětlil správně? 7

Ahoj jo takhle bych potřeboval aby to fungovalo ale s tím mím původním makrem.

Sub Vymaz()

If Range("A1") = "" Then
Rows("1:1").Hidden = True
Else
Rows("1:1").Hidden = False
End If

If Range("A2") = "" Then
Rows("2:2").Hidden = True
Else
Rows("2:2").Hidden = False
End If

If Range("A3") = "" Then
Rows("3:3").Hidden = True
Else
Rows("3:3").Hidden = False
End If

End Sub

Potřebuji to dát do již hotového řešení, kde jsou navzájem provázané vzorce. Tak abych nezasahoval do vzorců a fungovalo to jen na listech, kde bude tato podmínka (výše uvedené makro).

Takže, tam kde budu chtít skrýt řádky vložím do listu toto makro a to potřebuji, aby se spustilo jen v případě že změním hodnotu v buňce B1 na listu VZORCE.

Šlo by to udělat? Strašně doufám, že ano. Ještě jednou opakuji makro Vymaz umístím do listů, kde ho budu potřebovat a potřebuji aby se spustilo po změně hodnoty v buňce B1 na listu VZORCE.

target.adrees = buňka v jiném lisu prosím o pomoc. Odzkoušel jsem vše co mě napadlo a nic nejede :(.

Zatím má toto. Ale nepracuje to úplně jak chci. změna čísla v listu "vzorce" na hodnotu 1, 2 nebo 3 změní čísla v řádcích 1 , 2 , 3 sloupce A

nastavím li v listu vzorce čílo na 2 list1 mi ukáže 1, 2
ve sloupci A a 3 potřebuji skrýt. Aby se tak stalo musím změnit hodnotu v buňce b5 na listu1. Já potřebuju aby se to stalo hned při změně hodnoty ve vzorce!B2

tak makro už mám teď už jen potřebuji aby se spustilo pokud ručně změním hodnotu v buňce B1 na Listu2
funguje mi to jak má pokud mám B1 v aktuální listu ale nevím jak mám zapsat že při změně hodnoty buňky B1 v listu2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Vymaz
End If
End Sub

Opičák napsal/a:

To aby se řádek skryl není problém, když z něj , resp. z nějaké buňky odstraníš NĚCO, ale co dál ? Aby se "zjevil", když uděláš co? Dopíšeš něco kam? Ono není kam dopsat, když je řádek fuč.


v těch třech buňkách je vzorec na datum takže já na prvním listě zadám že je únor 2014 a na listě dva, tři, čtyři, ... se mi objeví ve sloupci A datumy od 1.2.2014 až po 28.2.214 a mě jde právě o poslední tři buňky které jsou proměnlivé v závislosti na měsíci a roce. někdy je poslední den 28 takže potřebuji skrýt řádky kde by jinak bylo 29, 30, 31 vzorec je nechá prázdné. no a když se v tom řádku objeví číslo dne tak se opět zobrazí. Takže příklad dvě měsíc má 30 dní tudíž poslední buňka bude prázdná a tu potřebuji skrýt. A chci aby to reagovalo pouze na změny v těch třech buňkách aby se nespouštělo makro pokaždé když dojde ke změně na listu ale jen když se změní hodnota data v těch třech buňkách.

Ahoj můžete mi prosím pomoct s makrem, které by sledovalo tři konkrétní buňky např A10:A12 a při změně v nich by se spustilo.

Makro bude skrývat buť řádek 10 nebo 11 nebo 12 na základě toho která z buněk A10:A12 bude prázdná. Pokud bude A10 něco obsahovat bude 10 řádek vidět a tak analogicky u všech tří.

Všem moc děkuji za pomoc.

Ještě jedna otázka nazávěr. Šlo by udělat, aby to makro pracovalo asi na 20-30 listech. Jde nějak hromadně určit pro které listy má to makro platit i s tou automatickou kontrolou změn v buňkách?

Je tu spousta odborníků a já jsem VBA lama tak prosím o radu. 1

Ahoj všem doufám, že mi tohle léma pomůže ještě někdo doplnit o jdnu věc a to přeskakování prázdných buněk.
-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

On Error GoTo chyba
For x = 1 To 10
If Range("B" & x + 1) <> "" Then Worksheets(x + 1).Name = Range("B" & x + 1)
Next x
Exit Sub

chyba:
MsgBox "Název listu musí být jedinečný. Zadejte jiný název listu", vbCritical, "Chyba zadání"
End Sub
-----------------------------------------------------
pomohl by mi prosím někdo s tím aby to při tom když to narazí na prázdnou buňku ve sloupci tak aby ji to přeskočilo a vzalo to až další Název listu. Dám příklad budui mít ve sloupci B jména například B1, B2, B3 budou jména a B4 bude prázdné tak aby tu prázdnou buňku přeskočilo a nebo pokud by například v B4 byla vepsána hodnota nepřiřazeno tak aby to Přeskočilo jen buňky s vyplněným nepřiřazeno.

Všem ještě jednou moc díky.

ja byh ale potreboval aby filtr tvořil jakýsi nový seznam tak, že to co se vypíše aby zůstalo a když změním zdroje dat ve zdrojovích buňkách aby filtr vypisoval dal podle podminky ktera bude jasně daná.

ahoj potřebuji poradit zda existuje způsob jak filtrovat obsah pomocí vzorce. Jde mi o to že v jednom listu mám tabulku, která má ve sloupci A datum pak nějaká nepodstatná data a ve sloupci U je buď prázdná buňka nebo název činnosti. Já potřebuji aby se mi na jiný list vypisovalo do sloupce A názvy činností které jsou ve sloupci U tak jak jdou postupně za sebou a do sloupce B se zapsalo datum ve kterém byla činnost provedena podle sloupce A z předchozího listu.
Snad jsem to dobře vysvětlil. Jde to nějak zařídit pomocí vzorce nebo nějakého makra? Všem děkuji za odpověď.

Tak vyřešeno musel jsem přepsat ve všech vzorcích které byly předchůdci formát času na desetinné číslo a jede to. Díky 1

TAKŽE MÁM VZOREC =MAX(MIN(KDYŽ(NE($E16<$D16);1;$E16);0,25)-MAX($D16;0);0)+MAX(MIN(KDYŽ(NE($E16<$D16);1;$E16);1)-MAX($D16;0,916666666666667);0)+MAX(MIN(KDYŽ(NE($E16<$D16);$E16;0);0,25);0)+MAX(MIN(KDYŽ(NE($E16<$D16);$E16;0);1)-0,916666666666667;0)

V BUŇCE
$E16 MÁM PŘES VZOREC 15:00
$D16 MÁM PŘES VZOREC 7:00

TAKŽE VÝSLEDEK BY MĚL BÝT 0:00 ALE JE 8:00 JAK MÁM TEDY UPRAVIT ODKAZY VE VZORCI ABY SE MI OBJEVIL SPRÁVNÝ VÝSLEDEK?

Díky za odkaz přesně tohle potřebuji aby mi to počítalo ale mám problém že když to vložím do svého formuláře tak to háže špatné výsledky. při rozboru jsem zjistil, že to vyhodnocuje špatně podmínky Když(15:45>6:45 vyhodnotí jako nepravdu přitom je to pravda. Problém bude asi v tom, že ty hodnoty od do jsou také ze vzorce, který ale už pracuje tak jak já potřebuji. Můžete mi někdo poradit co s tím?


Strana:  « předchozí  1 2 3

Uživatelské menu

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

Menu

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.

On-line nástroje