MS Excel

asi se špatně vyjadřuji. Omlouvám se, ale jsem z toho fakt zmatenej. Mám v modulech to co jsem uvedl jako Module1

no a pak do listu jedna a do ostatních kde budu potřebovat to makro spustit chci vložit toto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Vymaz
End If
End Sub

jen nevím jak změnit adresu té buňky která je v listu vzorce!B1

aby když budu mít toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Vymaz
End If
End Sub

v listu 1, 5, 12 a 16 například, tak aby to ovlivnilo jen je ten Modul1
Teď už jsem to vysvětlil správně? citovat

no to co jsi napsal bylo v podstatě nejblíž tomu co potřebuji. Potřeboval bych když mám list "vzorce" a potom další které mají proměnlivá jména, ale je jich asi 50. Z těch padesáti na určitých vybraných potřebuji aby se skrývaly tři poslední řádky podle vzorce který v nich je. no a abych do těch vzorců nemusel zasahovat tak chci udělat přes makro to co jsem udělal.Mám modul1 toto:
Sub Skryj()

If Range("A1") = "" Then
Rows("1:1").Hidden = True
Else
Rows("1:1").Hidden = False
End If

If Range("A2") = "" Then
Rows("2:2").Hidden = True
Else
Rows("2:2").Hidden = False
End If

If Range("A3") = "" Then
Rows("3:3").Hidden = True
Else
Rows("3:3").Hidden = False
End If

End Sub

to nechci upravovat to zůstane tak jak to je.

No a pak do modulů vybraných listů u kterých je ale proměnlivý název, takže dopředu nedokážu říct jak se bude který list jmenovat potřebuji vložit něco co mi při změně buňky B1 v listu vzorce spustí na tom konkrétním vybraném listu makro Skryj()

takže budu mít modul1 který v sobě má makro Skryj() to jednoduché co jsem napsal. a pak si zvolím modul vybraného listu do kterého potřebuji to co mi pohlídá buňku B1 v listu vzorce a při změně hodnoty v B1 mi spustí makro Skryj.

Snad už jsem to vysvětlil dobře.citovat

Já už rozumím.

Musíte si uvědomit, že ta měněná buňka je na listu "vzorce", takže ta událostní procedura musí být v jeho modulu. Tam tedy umístěte proceduruPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
Call Skryj
End If
End SubPokaždé, když změníte hodnotu v buňce B1, se tato procedura spustí a zavolá proceduru Skryj

No a pak do modulů vybraných listů u kterých je ale proměnlivý název, takže dopředu nedokážu říct jak se bude který list jmenovat potřebuji vložit něco co mi při změně buňky B1 v listu vzorce spustí na tom konkrétním vybraném listu makro Skryj()
Nemůžete do jiného listu umístit událostní proceduru hlídající změnu v jiném listu (max do modulu sešitu, ale to by v tomto případě nepomohlo)

Takže musíte proceduře Skryj říct, ve kterých listech má skrývat a ve kterých ne. Tady je více možností, já navrhuji na každém s dotyčných listů definovat vždy stejný název (např.: "Skryj1_3") s platností pouze pro list (tedy "'NazevListu'!Skryj1_3") a pak spustit cyklus s testem na existenci tohoto nazvu na listu. V tomto případěSub Skryj()
Dim sh As Worksheet, r As Range

For Each sh In ThisWorkbook.Sheets
On Error Resume Next

For Each r In sh.Range("Skryj1_3").Rows
r.EntireRow.Hidden = r.Cells(1).Value = ""
Next r

On Error GoTo 0
Next sh

Set r = Nothing
Set sh = Nothing
End Sub
Psáno z brucha, netestováno.

Poznámka: Dělá to to samé, co to vaše původní makro, ale navíc je jedno, kde se v listu oblast "Skryj1_3" nachází a kolik má řádků.citovat

Pořád mi to nejde asi dělám někde chybu. A jde spustit makro při změně buňkdy ve které je zapsaný vzorec. Ono by to šlo spouštět i nějakou buňkou která je ve stejném listu pokud by se dalo zařídit, aby se makro spustilo po změně buňky ve které je vzorec. např. pokud bych měl na jakémkoliv listu buňku s =vzorce!b1.citovat

tak to jsem v pasti. Asi udělám tlačítko a bude se to spouštět ručně. To je to čemu jsem se chtěl vyhnout. :(citovat