MS Excel

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 :)

StavrosJorgos(13.9.2017 13:01)#037655

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 Subcitovat

Dejwing(19.9.2017 10:24)#037675

"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

Vovka(19.9.2017 11:07)#037676

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

elninoslov(19.9.2017 11:15)#037677

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

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

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Uspořádání dat do tabulky

QR kód

Uspořádání dat do tabulky

Uspořádání dat do tabulky

Uspořádání dat do tabulky

Uspořádání dat do tabulky

hláška

Jméno
Kontrola
Text