Elnino, to je přesně ono. Vše funguje jak má. Děkuji moc!citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Barevné zvýraznění aktivního tlačítka pro makro
MS Excel
Téma: Barevné zvýraznění aktivního tlačítka pro makro 
Zaslal/a PavelJanec 16.11.2022 9:04
Zdravím, potřeboval bych prosím poradit, jestli lze nějak barevně odlišit právě použité makro, spuštěné ovládacím prvkem (klasické tlačítko). Mám jich v listu několik, ale potřebuju vidět, které je právě aktivní. Děkuji za radu.
Vlastně úplně poslední věc, jak změním velikost písma v tlačítku? Když dám "formát ovládacího prvku a změním písmo, hlásí to chybu.citovat
Tak už to jde, netušil jsem, že to jde přímo pod kartou domů a změna fontu.citovat
Elninoslave, šlo by to toho resetu ještě vložit, aby zobrazil všechny sloupce? Stává se mi, že něco skryju kvůli přehlednosti a zapomenu to zobrazit.
Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False
With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0
With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select
With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With
Application.ScreenUpdating = True
End Sub
Děkuji za ochotu!citovat
Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False
With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0
With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select
With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With
Application.ScreenUpdating = True
End Sub
Děkuji za ochotu!citovat
Tak niekam vhodne, napr. pred
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
vložte riadok
.Range("A:TV").EntireColumn.Hidden = Falsecitovat
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
vložte riadok
.Range("A:TV").EntireColumn.Hidden = Falsecitovat
Pardom Elnino, zapomněl jsem 
citovat
citovatMoc děkuji!citovat
Elnino, prosím Vás, co zde musím změnit, aby mi to neřadilo podle sloupce TV, ale TF, špatně jsem Vám to napsal.
Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False
With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0
With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A:TV").EntireColumn.Hidden = False
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select
With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With
Application.ScreenUpdating = True
End Sub
Já myslím, že to je řádek
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, ale proč je tam dvakrát TV12?citovat
Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False
With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0
With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A:TV").EntireColumn.Hidden = False
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select
With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With
Application.ScreenUpdating = True
End Sub
Já myslím, že to je řádek
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, ale proč je tam dvakrát TV12?citovat
Maličká zmena...
Příloha: 
53911_oznac-tlacitko-5.zip (38kB, staženo 7x)
citovat53911_oznac-tlacitko-5.zip (38kB, staženo 7x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články