MS Excel

Dobrý den, mám vytvořené makro, že po zadání v buňce "ANO" se zobrazí obrázek. Pokud v buňce "ANO" není, tak obrázek zmizí. Má to ovšem jednu chybu. Pokud vyplňuji sloupec buněk a používám klávesu ENTER, tak mi pokaždé kurzor skočí do buňky, která kontroluje makro. Mohl by mi s tím někdo pomoci, aby se pokaždé kurzor nevracel ke kentrole makra ? Kod makro je v příloze. Děkuju

Zaslat odpověď >

AL(26.7.2017 17:20)#036976

asi si budes musiet v ramci udalosti Worksheet_Change urobit test na Target.Address, inak pri akejkolvek zmene na liste kurzor vzdy skoci do bunky U32, presne v zmysle, ako to v kode pozadujes :)citovat

kolouch(26.7.2017 18:51)#036978

A bylo by možné ten kod nějak upravit,aby při každé změně nekontroloval stále dokola to makro, ale například pouze jednou ? Děkuju za odpověďcitovat

AL(26.7.2017 22:53)#036979

Vloz sem excel subor, v ktorom sa nachadza to makro, aby ten, kto ti bude pomahat, nemusel kod prepisovat z obrazku. Popis co najpresnejsie, co chces, aby kod robil.citovat

elninoslov(27.7.2017 1:49)#036980

Príklad:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U32")) Is Nothing Then
Select Case Range("U32").Value
Case "ANO": Shapes("Skupina 3").Visible = True
Sheets("VYKRES").Shapes("Skupina 133").Visible = True
Case " ": Shapes("Skupina 3").Visible = False
Sheets("VYKRES").Shapes("Skupina 133").Visible = False
End Select
End If
End Sub

Příloha: zip

36980_kontrola-bunky.zip (33kB, staženo 32x)

citovat

kolouch(27.7.2017 9:55)#036981

Dobrý den, v příloze posílám soubor excel a uvnitř je vysvětlení jak funguje. Děkuji za pomoc.citovat

elninoslov(27.7.2017 10:07)#036982

Príloha s makrom, teda XLSM, musí byť zabalená do ZIP a veľkosť max tuším 256 kb. Inak Vám ju nevloží. Ak je to väčšie, použite GoogleDrive alebo ine Free úložné služby.citovat

kolouch(27.7.2017 10:38)#036983

Dobrý den, tak se omlouvám a posílám ještě jednou.

Příloha: zip