< návrat zpět

MS Excel


Téma: Volání makra v jiném listu rss

Zaslal/a 13.9.2017 11:24

Dobrý den, hodně by mi pomohlo, kdybych zjistil, jak volat při splnění podmínky A1 = ABC výpočtem a nebo zadáním ručně se spustilo VBA "Volej proměnnou" v listu "seznam"

call volej v listu seznam

Děkuji moc za rady :)

Zaslat odpověď >

#037655
avatar
A co ten seznam má dělat? Jen se zobrazit?
Na Listu1 worksheet Selection_Change
If Range("A1").Value = "ABC" Then_
Call mojemakro

Následně přidat modul a do něj vepsat
Sub mojemakro()
List2("seznam").Activate
End Sub
citovat
#037675
avatar
"toto VBA je v jiném listu: "seznam" a rad bych ho spustil, pokud v poli A = ABC :) Neumím to zapsat, můžu poprosit ještě jednou o pomoc?

Sub Volejpromennou()
Dim Stlp As Integer

If WorksheetFunction.CountIf(Range("A:C"), "<>") > 0 Then
Application.ScreenUpdating = False
With Worksheets("Záloha")
Stlp = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range("A:C").Cut .Columns(Stlp).Resize(, 10)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Call jj

End If
End Sub

jde mi jen o to, jak aktivovat z jiného listu toto VBA a aby probíhalo na správném listě, kde je zadáno, děkuji.citovat
#037676
avatar
Za makro lze pokládat pouze proceduru bez parametrů, umístěnou ve standardním modulu. Jen takové procedury jsou obsahem nabídky maker pro celý sešit. Pokud zůstane vaše procedura jako kód VBA v jednom listu, nebude z jiných listů viditelná ani volatelná. Přemístěte proceduru do standardního modulu a pak ji můžete volat ze všech listů vašeho sešitu.citovat
#037677
elninoslov
Ale keď budem volať z makra v Hárok2
Call Worksheets("Hárok1").pokus1
tak zavolám makro v Hárok1, ktoré sa volá pokus1.

EDIT: Alebo aj
Application.Run "Hárok1.pokus1"citovat

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