Ahoj ... pokud by Ti nevadilo, že místo ENTER budeš mačkat CTRL + SHIFT + ENTER pak já používám na startování různých maker tuto proceduru kterou musíš mít v CODE listu který je zobrazen. Při odchodu to musíš deaktivovat a při příchodu aktivovat, jinak to havaruje !!! Používám to podle sloupců ... tj. podle toho kde stojíš s aktivní buňkou se spustí odpovídající makro ... nejsem myšoid. Pokud v listu máš více maker, které Ti dělají služby je vhodné je pod Ty sloupce dodat. Není to můj výmysl ... je to převzato z nejlepšího tabulkového kalkulátoru všech dob C602 (DOS) ;-)
Ještě jsem Tě chtěl upozornit že spouštění CTRL + ENTER je v EXCELU definováno a tak je nepoužívej.
'-------------------------------------------------------------------------------'
Private Sub call_proc()
If ActiveWorkbook.Name = cFile And ActiveSheet.Name = cWorkSestava Then
Select Case ActiveCell.Column
Case 2
If MsgBox("Vymazat zakázky kde plnìní = 0 ???", vbYesNo + vbDefaultButton2, "Otázka ...") = vbYes Then
MsgBox "Čekám na TEBE ... brouku ve sloupci B :)"
Call MojeProcedura_B
End If
Case 3
If MsgBox("Vymazat uzavøené zakázky ???", vbYesNo + vbDefaultButton2, "Otázka ...") = vbYes Then
MsgBox "Čekám na TEBE ... brouku ve sloupci B :)"
Call MojeProcedura_C
End If
Case Else
End Select
End If
End Sub
'-------------------------------------------------------------------------------'
Private Sub Worksheet_Activate()
If ActiveWorkbook.Name = cFile And ActiveSheet.Name = cWorkSestava Then
Application.OnKey "^+{RETURN}", "call_proc"
End If
End Sub
'-------------------------------------------------------------------------------'
Private Sub Worksheet_Deactivate()
Application.OnKey "^+{RETURN}", ""
End Sub
'-------------------------------------------------------------------------------'
citovat
RSS nejnovější články