< návrat zpět

MS Excel

Téma: Spustit určité makra změnou hodnoty v buňce rss

Zaslal/a Kivan 10.11.2022 22:57

Dobrý den,
nefunguje mi makro, může někdo poradit ?

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "1" Then
Call Makro1
End If
If target.Value = "2" Then
Call Makro2
End If
End Sub

Při spuštění makra mi excel spadne 7

Zkoušel jsem ještě

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 1 To 1: Macro1
End Select
End If
End Sub

Toto makro mi funguje, ale když přidám výběr na základě hodnoty buňky více maker tak sice chybu nehlásí, ale nic se neděje, potřeboval bych toto

když buňka (nebo jiná buňka, dle výběru ) obsahuje "1" spustí se makro1, když "2" spustí makro2 atd.

Toto makro také nefunguje

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
If IsNumeric(Target) And Target.Address = "$A$2" Then
If IsNumeric(Target) And Target.Address = "$A$3" Then
If IsNumeric(Target) And Target.Address = "$A$4" Then
If IsNumeric(Target) And Target.Address = "$A$5" Then
Select Case Target.Value
Case 1: Makro1
Case 2: Makro2
Case 4: Makro4
Case 5: Makro5
End Select
End If
End Sub

Příloha: zip53801_sesit1.zip (12kB, staženo 5x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3
Kivan(14.11.2022 15:02)#053845
avatar

elninoslov napsal/a:

"Kivan" napsal/a:a pak že to nejde
O čom to hovoríte ??? Snáď nie o nedostatku niečej snahy ?! Môžete mi vysvetliť, ako do toho zapadá Vami požadovaná vlastnosť volať rovnaké makro z rôznych buniek? A ako toto makro rieši Vami požadovaný viacnásobný cieľ, prípadne jeden cieľ ale menený viacerými bunkami, ktoré ste spomínal?
Keďže ste odpovedal tuším všeho-všudy na 1 či 2 moje upresňovacie otázky, tak Vašich smajlíkov fakt neberiem. Vnímam ich ako narážku (ak nie rovno urážku).
Pekný deň.
=IFERROR(CHOOSE(B1;"Ano";"Ne";"Nevím";"Asi ne";"Asi ano";"Vymýšlím hovadiny");"---")
=IFERROR(ZVOLIT(B1;"Ano";"Ne";"Nevím";"Asi ne";"Asi ano";"Vymýšlím hovadiny");"---")
alebo
=IFERROR(VLOOKUP(B1;Tabuľka hodnôt;2;FALSE);"---")
=IFERROR(SVYHLEDAT(B1;Tabuľka hodnôt;2;NEPRAVDA);"---")


Mrzím mě že to tak berete 7
Ale pobavila mě ta hláška "Vymýšlím hovadiny" 5, to v těch makrech není.

a tomu patří i ty smajlíky v příspěvku

Makro které jsem sem dal je s odkazem je jen na jednu buňku, ale pokud trváte předělám to na těch 10citovat
marjanka(14.11.2022 17:37)#053850
avatar

Kivan napsal/a:


Mrzím mě že to tak berete
Ale pobavila mě ta hláška "Vymýšlím hovadiny" , to v těch makrech není.

a tomu patří i ty smajlíky v příspěvku

Makro které jsem sem dal je s odkazem je jen na jednu buňku, ale pokud trváte předělám to na těch 10

No mne sa zdá, že si tu už vystačíš sám.citovat

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