Upraveno.
Příloha: 
53107_wall-najdi-a-dopln-mutaceif.zip (37kB, staženo 9x)
citovat53107_wall-najdi-a-dopln-mutaceif.zip (37kB, staženo 9x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: spustit makro změnou hodnoty v buňce a svyhledat
MS Excel
Téma: spustit makro změnou hodnoty v buňce a svyhledat 
Zaslal/a PavDD 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: 52808_wall-zmena-bunky.zip (9kB, staženo 15x)
52808_wall-zmena-bunky.zip (9kB, staženo 15x)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
If Not rng Is Nothing Then
tomu moc nerozumím , k čemu to je?citovat
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
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
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
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
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
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
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
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
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
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
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???
@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: 
53137_historie.xlsx (8kB, staženo 5x)
citovat53137_historie.xlsx (8kB, staženo 5x)@ 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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články