Adriel Ortiz Mangia

H o l a Te paso la macro Private Sub CommandButton1_Click() ' If Text2 < Text1 Then MsgBox "El Text2 debe se mayor al Kilometraje Inicial", vbCritical Exit Sub End If ' End Sub Necesito información para guardar en la hoja. Valora la respuesta para...

H o l a esto te calcula la diferencia de horas y te lo muestra en un mensaje Private Sub CommandButton1_Click() ' hora = TimeValue(Text1) - TimeValue(Text2) ' MsgBox Format(hora, "h.m.s") ' End Sub para mandar a la base de datos, necesito saber como...

¿Pero en cual línea se detiene la macro? O envíame tu archivo para revisarlo [email protected]

H o l a ¿Envíame a mi Email [email protected], con ejemplos que debemos de calcular?, cual columna porque son varias.

H o l a Te paso la macro Private Sub DTPicker6_LostFocus() Dim Edad As Integer Edad = Int((Date - DTPicker6) / 365) txt_Edad.Value = Edad End Sub Valora para finalizar

¿Pudieras poner un ejemplo o una imagen?

H o l a Te paso la macro, lo que elijas en el combo diagnóstico guardará en la hoja correspondiente. aquí el código Private Sub CommandButton1_Click() If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub Set h1 = Sheets(ComboBox1.ListIndex +...

H o l a te paso la macro Ingresas el rut, presionas enter y automáticamente te volcará los datos y llenas las casillas necesarias y lo registras Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = "" Then Exit Sub Set h =...

H o l a prueba esto =CONTAR.SI.CONJUNTO(A:A,"aceptado",B:B,"enero")+CONTAR.SI.CONJUNTO(A:A,"anulado",B:B,"enero")

=SI(HOY()>C12+6,"llamar " & F12 & I12,SI(E12="aceptada",D12="avisado",""))