Adriel Ortiz Mangia

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",""))

H o l a usa esto =SI.ERROR(SUMA(F31:J31)/D31,0) si tus separadores punto y coma así =SI.ERROR(SUMA(F31:J31)/D31;0) valora para finalizar

H o l a. Buen día ¿Cuáles son los criterios? Muestra una imagen hoja1 y hoja 2 para ver las filas y columnas

H o l a te paso la macro formato = hh: mm AM / PM If Textbox1 <> formato Then ' MsgBox "ingresa con el format hh:mm AM/PM", vbCritical Exit Sub ' End If valora la respuesta para finalizar

H o l a en el commandbutton escribe call mas el nombre de macro que tienes en el módulo Private Sub CommandButton1_Click() ' Call macro1 ' End Sub

H o l a La macro copia si cumple las condiciones a la hoja2 y elimina los datos copiados de la hoja1 Necesito las columnas, yo asumí que las condiciones está en la E, la fila 2 empieza tus datos fuera del encabezado. Sub CopiarDatos_elimina() 'Por...

H o l a ¿Cuál es el rango al borrar?

H o l a Te paso la macro Cambia la ruta para guardar el PDF creado ruta = "C:\trabajo\"Sub Pdf() 'Act. Aortiz ruta = "C:\trabajo\" nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss") MsgBox "EL ARCHIVO IMPRESO SE GUARDO EN: " & ruta,...