Índice

Solución 14.14 Utilizar casillas de verificación

Inicialización:

Private Sub UserForm_Initialize()  
  With Worksheets("Hoja1")  
    chk1.Caption = .Range("E16")  
    chk2.Caption = .Range("E17")  
    chk3.Caption = .Range("E18")  
    With .Range("D16:D18")  
      .Font.Name = "Wingdings 3"  
      .Font.Size = 1 ...