< návrat zpět

MS Excel


Téma: spustit makro změnou hodnoty v buňce a svyhledat rss

Zaslal/a 31.5.2022 23:08

Zdravím.
Lze "změnou" hodnoty v buňce zavolat makro?
Chtěl bych ho dopsat do příkladu.
Děkuji

Příloha: zip52808_wall-zmena-bunky.zip (9kB, staženo 14x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3 4   další »
#053107
Stalker
Upraveno.
Příloha: zip53107_wall-najdi-a-dopln-mutaceif.zip (37kB, staženo 9x)
citovat
#053110
avatar
super, jen, můžete mi prosím vysvětlit řádek:

If Not rng Is Nothing Then

tomu moc nerozumím , k čemu to je?citovat
#053111
Stalker
Proměnná rng vrací adresu buňky z listu "List2" hledaného jména. Tedy pro jméno Beáta vrátí adresu $D$2.

Pokud by došlo k tomu, že na nějakém z listů by se vyskytlo jméno, které by nebylo současně přítomno na obou listech vedlo by to k chybě v kódu, protože proměnná rng by byla prázdná.

Řádek If Not rng Is Nothing Then tedy testuje zda proměnná rng není prázdná, pokud by byla znamená to, že hledané jméno nebylo nalezeno a tento kód

Select Case Objednal
Case "AA"
rng.Offset(, 2).Value = Datum
Case "BB"
rng.Offset(, 3).Value = Datum
Case Else
'pro případ, že by položka Objednal neměla hodnoty AA nebo BB
'?????
End Select


by se přeskočil a zobrazil se MsgBox s chybovou hláškou.citovat
#053118
avatar
Děkuji.
Ještě drobnost. Zadal jsem si do sešitu, aby se po jeho otevření doplnilo do listu"historie" dnešní datum.

Private Sub Workbook_Open()
Worksheets("historie").Select
Sheets("historie").Cells(1, 4).FormulaLocal = ("=DNES()") 'vloží dnesDatum odeslání obj do "A4"

End Sub

a začlo mi to po otevření vyhazovat error:
Runtime error 57121
Aplication-defined or object -defined error.
Nevíte proč a jak se toho zbavit ?citovat
#053122
Stalker
Proč makro? Stejného výsledku dosáhneš vzorcem (DNES) v buňce.citovat
#053125
avatar
Protože Mám jiné makro , které se spustí podle toho, jestli v určené buňce je dnešní den. (A ten tam doplNuje /nejdříve jako vzorec a pak ho zkopíruje sám na sebe jako hodnotu*aby se automaticky zítra nezměnila, zas jiné makro, aby se poznalo, jestli už v tento den bylo to druhé spuštěno.
Pokud se dnes spustilo, zapíše dnes , a při znovu otevření sešitu dnes, se vyhodnotí ,že už bylo spuštěno a neudělá nic.

Nebo by jste to řešil nějak jednodušeji?citovat
#053128
Stalker
Deš na to moc složitě.
Do toho makra, které se má spouštět pouze jednou dáš na začátek či konec kód pro vložení aktuálního data:Worksheets("historie").Cells(1, 4).Value = Date
a do Private Sub Workbook_Open()
If Worksheets("historie").Cells(1, 4).Value = Date Then Exit Sub
Call MakroCoNecoDela

Pár poznámek:
Cells(1, 4) - není adresa buňky A4
Worksheets("historie") - seš si opravdu jistý jménem toho listu? Excel nepovoluje pojmenovat list jménem historie.citovat
#053135
avatar
Zkusím jak píšete.
jojo,,ten Cells(1, 4) vidím že je to preklep.
Date jsem neznal,bude to jednodušší.
O Historii,hm, to jsem nevěděl,přejmenuju to.
Děkuji.citovat
#053137
elninoslov
OT:
@Stalker: To je pre mňa v skutku parádna zaujímavosť. O tom som netušil. Ten názov "historie" nedovolí na základe lokalizácie (v SK nedovolí "história"). Čo sa stane ak súbor vytvorený v SK s listom "historie" otvoríte v CZ Exceli???
Příloha: xlsx53137_historie.xlsx (8kB, staženo 5x)
citovat
#053138
Stalker
@ elnino
Bez problému soubor otevřu a můžu s ním pracovat. Pokud vytvořím další list a chci přejmenovat na Historie, Excel protestuje.

https://www.linkedin.com/pulse/why-cant-you-name-worksheet-history-excel-ajay-anandcitovat

Strana:  « předchozí  1 2 3 4   další »

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09