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 ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online