Excel Dynamické checkboxy Vyřešeno

[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.

PPB- zkouška maker -funguje přidání CB2 po zatržení CB1, 6 CB.xlsm

(23.82 KiB) Staženo 26 x

Děkuji.

[Reklama]

[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ž.

[PPB]

Ahoj,
mockrát děkuji, vše již funguje jak má!!