Stránka 1 z 1

Excel Dynamické checkboxy

Napsal: 03 zář 2015 15:26
od PPB
Dobrý den,
potřeboval bych pomoci s následujícím problémem v zápise maker.

Na základě hodnoty "5.1a" v buňce B2 (hodnota se sem vkládá přes ověření dat) se mi vytváří 6 checkboxů na buňkách A4 až A9. Pokud zvolím v B2 jinou hodnotu, tyto CB se vymažou. Dále po zatržení prvního CB (na buňce A4) se vytváří další CB na buňce B4. Po odtržení CB A4 se opět vymaže.

Problém je v tom, že pokud CB na A4 zatrhnu (vytvoří se CB na B4) a potom změním hodnotu na B2 (prvních 5 CB zmizí), checkbox na B4 zůstává. Potřebuji aby také zmizel.

Nejsem zkušený a opravdu si s tím nevím rady.

Dále bych potřeboval napsat makro, které by na základě zatržení checkboxu na buňce A4 vytvářelo pole se seznamem

Mohl by mi, prosím, někdo poradit?

Přikládám sešit s makry.
Děkuji.

Re: Excel Dynamické checkboxy  Vyřešeno

Napsal: 03 zář 2015 20:16
od cmuch
Ahoj,
změn Worksheets_change na

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

  Dim Check As Range
  Set Check = Range("B2")
 
  If Not Intersect(Check, Target) Is Nothing Then
    If Check.Value = "5.1a" Then Call VytvorCB Else Call VymazCB
 
    If Check.Value = "5.1b" Or Check.Value = "5.2" Then
        Call VymazCB2
    End If
  End If
End Sub


a Worksheet_Change4 a Worksheet_Change5 smaž.

Re: Excel Dynamické checkboxy

Napsal: 10 zář 2015 09:45
od PPB
Ahoj,
mockrát děkuji, vše již funguje jak má!!