VBA Makro funkce Vyřešeno

[Dieesels]

Dobrý den, nevím si rady z jednou maličkostí.
Vzorec:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
Dim kde As Range
Set kde = Range("p5:p1004,q5:q1004")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub

Kde do tohohle vzorce dosadím odkaz na jiný list, tak aby to vypadalo: např. List1 hodnota "$G$2"
Tedy aby buňka "$G$2" byla na listu1.....

[Reklama]

[X]

Například:

Sheets("List1").Select

P.S.: Pro studium maker a VBA Excelu doporučuji skvělé knihy:

Grada: Jaroslav Černý: Excel 2000-2007 záznam, úprava a programování maker (2. aktualizované vydání)

Grada: Jaroslav Černý: Programování v Excelu 2000, 2002, 2003

[mike007]

Není nic jednoduššího než si tuto událostní proceduru vložit do Listu1 ...

[Dieesels]

Děkuji za odpovědi, ale mám na mysli něco jiného. Tuto proceduru mám vloženou na listu1, a chci, aby tato podmínka platila také na listu2 atd..To znamená, jak udělat odkaz na listu2 na buňku G2 listu1...?

[X]

Budeš muset mít podmínku (test) každého listu, lze udělat i cyklem pomocí kolekce listů.

[mike007]

Řekni mi, jak chceš spustit událostní proceduru, která je uložená na listu2, když budeš editovat buňku G2 na listu1 ?
Lze akorát udělat, aby když upravíš buňku G2, aby se něco provedlo ( v tvém případě kde.NumberFormat = "#,##0"" " & Target.Value & """") na jiném listu. To lze. Jinak opravdu nevím.

[Dieesels]

Ok. Díky za snahu...ve VBA jsem začátečník, celý den si s tím hraju, ted už vím, proč to nejde....zkusím něco jiného....

[mike007]

Pokud chceš, aby tato procedura fungovala ve všech listech, nakopíruj do ThisWorkbook tuto proceduru:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$G$2" Then Exit Sub
Dim kde As Range
Set kde = Range("p5:p1004,q5:q1004")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub