Te anexo la macro al presionar en el check
Private Sub CheckBox2_Click()
'Act.Por.Dante Amor
Dim i
'
'Si está activo el check de datos de identificación, entonces es para modificar los datos de identificación
If CheckBox1 And CheckBox2 Then
TextBox6 = Range("C8") 'Fecha
TextBox7 = Range("E8") 'Nombre Empresa
TextBox8 = Range("J8") 'Repuestos para
TextBox9 = Range("D9") 'Serial Maq/Mot.
TextBox10 = Range("G9") 'Marca
TextBox11 = Range("K9") 'Modelo/Ident.
TextBox12 = Range("D47") 'Notas
Exit Sub
Else '
'If CheckBox1 And CheckBox2 and CheckBox4 Then
' TextBox6 = Range("n8") 'Fecha
' TextBox7 = Range("p8") 'Nombre Empresa
' TextBox8 = Range("u8") 'Repuestos para
' TextBox9 = Range("o9") 'Serial Maq/Mot.
' TextBox10 = Range("r9") 'Marca
' TextBox11 = Range("v9") 'Modelo/Ident.
' TextBox12 = Range("o47") 'Notas
' Exit Sub
'End If
End If
'
If CheckBox2 Then
Call CargaCombobox2
Else
ComboBox1.Enabled = False
Call Limpiar
ComboBox1 = ""
End If
End Sub
sal u dos