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.....
VBA Makro funkce Vyřešeno
Re: VBA Makro funkce
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
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
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: VBA Makro funkce
Není nic jednoduššího než si tuto událostní proceduru vložit do Listu1 ...
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: VBA Makro funkce
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...?
Re: VBA Makro funkce
Budeš muset mít podmínku (test) každého listu, lze udělat i cyklem pomocí kolekce listů.
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: VBA Makro funkce
Ř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.
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.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: VBA Makro funkce
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
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: VBA Makro funkce
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
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
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 11
- 2582
-
od WolfGunCZ
Zobrazit poslední příspěvek
09 lis 2023 13:16
-
- 5
- 2753
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
-
- 9
- 1225
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů