MS Excel

1. asi jsem to blbě napsal. Potřebuji odkaz na aktuální sloupec pomocí písmena a ne pomocí čísla sloupce, aby jsem mohl použít v msgbox srozumitelnější hlašení pro uživatele.

2. při stisku tlačítka volám jinou proceduru, která mění barvu tlačítek a jako parametr chci použit název tlačitka

Sub tl_Nazev_Click()
mujFiltr 1, tl_Nazev
End Sub

Sub mujFiltr(strSloupec As Integer, Tlacitko As Object)
Tlacitko.BackColor = &H80000003
End Sub

je to jen příklad. Místo parametru tl_Nazev použit odkaz na název procedury tl_Nazev.citovat

U toho prvního si nejsem jist, zda se na sloupec dá odkázat pomocí písmena.. Pouze objekt typu Range má možnost udělat odkaz pomocí Range("A:A") a tím se myslím celý sloupec A. Aby ti Excel ale vrátil písmene sloupce, to sem nikdy nepoužil, ani nevím o metodě. Jedině zjistit číslo sloupce a potom někde vedle vytvořit převodovou tabulku (pokud tedy nemáš 10tky sloupců) a podle indexu hlásit příslušné písmeno.

U toho druhého musí být to tlačítko vložené pomocí VBA ve formuláři. Pokud vložíš tlačítko pomoci Tools v excelu, není možné se na něj přes VBA dostat. Není to problém jenom tlačítka ale všech controls vkladaných do excelu. Pokud to máš na formuláři, tak by to mělo fungovat viz přílohacitovat

Díky za reakce. Chtěl jsem univerzální proceduru, abych nemusel ručně měnit parametry.
Pro info:
V excelu mám pomocí ovládacích prvků vytvořené příkazové tlačítko a bez problému mu měním barvu pomocí vba (viz kod výše tlačítko).citovat

přiřadíš tomu tlačítku makro (to jde) do makra vložíš:
MsgBox Application.Caller
pak klikneš na tlačítko a v tu ránu víš jak se jmenuje a můžeš s ním pracovat.

M@citovat

Pak už s tím pracovat lze např:

ActiveSheet.Shapes("Tlačítko 198").Left = 0

M@citovat