< návrat zpět
MS Excel
Téma: Panel nástrojů-makro pro tlačítko 
Zaslal/a StavrosJorgos 10.8.2017 11:51
Ahoj,
vyrobil jsem vlastní panel nástrojů a tlačítko pro skrytí sloupců mě zlobí.
Potřeboval bych, aby makro tlačítka vyhodilo pro list1 msgbox(jako v příloze) a pokud bude aktivní list2, nebo3, nebo4 tak splnilo příkaz. Neustále mě to buď hází na list1, nebo pokud makro upravím funguje i na listu1.
Snad je to srozumitelné. Děkuji všem
Příloha: 
37228_pokus.zip (15kB, staženo 37x)
lubo(10.8.2017 12:16)#037229 
Zkuste pro začátek zatrhnout volbu Soubor - upřesnit - obecné - zobrazit chyby v uživatelském nastavení doplňků.
Jinak asi jste chtěl něco takového?
Private Sub Callback9(control As IRibbonControl)
If ActiveSheet.Name = "List1" Then
MsgBox "Je platné pouze pro listy II. III.ROČNÍKU a VAZAČI.", vbInformation
Else
Call SkrytSloupce
End If
End Sub
Sub SkrytSloupce()
ActiveSheet.Range("C:D").EntireColumn.Hidden = True
Range("A1").Select
End Sub
citovatlubo napsal/a:
Zkuste pro začátek zatrhnout volbu Soubor - upřesnit - obecné - zobrazit chyby v uživatelském nastavení doplňků.
Jinak asi jste chtěl něco takového?
Private Sub Callback9(control As IRibbonControl)
If ActiveSheet.Name = "List1" Then
MsgBox "Je platné pouze pro listy II. III.ROČNÍKU a VAZAČI.", vbInformation
Else
Call SkrytSloupce
End If
End Sub
Sub SkrytSloupce()
ActiveSheet.Range("C:D").EntireColumn.Hidden = True
Range("A1").Select
End Sub
Děkuju moc, opravil jsem a funguje jak má a volbu jsem zatrhnul. Jsou to moje začátky a snažím se sám, ale občas to nejde.Každopádně ten panel jsem vyráběl podle místního postupu.Spoustu maker zvládnu sám, vždy udělám chybu někde v názvu, ještě jednou dík
citovat
RSS nejnovější články