Dante Amor

Te anexo el código actualizado Private Sub Cmd_Guardar_Click() ' 'VALIDACIONES existe = False For Each ctx In Controls If TypeOf ctx Is MSForms.ComboBox Or _ TypeOf ctx Is MSForms.TextBox Or _ TypeOf ctx Is MSForms.CheckBox Then ctx.BackColor =...

Tal vez tienes un error en tu código, pero al poner esta instrucción: On Error Resume Next La macro no se detiene y no puedes saber cuál es el problema. La primera recomendación es que no utilices la instrucción "On Error Resume Next". Debes buscar...

Te anexo la macro Sub Digito_Verificador() 'Por Dante Amor With Range("D3:D" & Range("C" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(MID(RC[-1],LEN(RC[-1])-1,1)=""-"",RIGHT(RC[-1],1),"""")" .Value = .Value End With MsgBox "Fin" End Sub

La macro crea un libro con una sola hoja y en esa hoja pone toda la información, con eso tendrías esto que pides: Ahora necesito que que me exporte todo en una misma hoja.

La validación de datos es para cuando capturas en la celda. Suponiendo que tienes tu autosuma en la celda H10 y suma las celdas de H2:H9, si capturas un valor en H2, realmente estás escribiendo en la celda H2, en la celda H10 estás obteniendo el...

¿Y te envía un error? ¿Qué dice el error? Lo único que veo es que tienes en la variable ruta esto: ruta = ActiveWorkbook.Path Pero al momento de guardar solamente dice ru ru & "\" & Nombre & ".pdf", Quality:=xlQualityStandard, _ Cambia ru por ruta y...

Te anexo la macro. Antes de ejecutarla debes actualizar en la macro los siguientes datos por tus datos Set h1 = Sheets("Hoja1") 'hoja con las tareas pendientes Set h2 = Sheets("Hoja2") 'tercer hoja, donde están todas las tareas al 100 col = "C"...

Utiliza lo siguiente: TextBox5.Text = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Value TextBox5.BackColor = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Interior.Color

Puedes utilizar la fórmula Sumar. SI. CONJUNTO( ) Realiza el siguiente ejemplo para que observes el funcionamiento de la fórmula Pon los siguientes datos en la hoja1 Pon la siguiente fórmula en la hoja1, en la celda C2...

Te anexo el código actualizado. Dentro del código te puse unas observaciones: Private Sub CommandButton1_Click() If cbxnsubc.ListIndex = -1 Then MsgBox "Debes Selccionar un Subcapitulo" Exit Sub End If 'Subc = Val(cbxnsubc.----(cbxnsubc.----,0)) Set...