Macro VBA Excel Insertar en la página 1 o 2

Aquí creqando las 2 preguntas que faltan, sobre la plantilla Lista Repuestos

1 Respuesta

Respuesta
1

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas