Adriel Ortiz Mangia

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,...

Te paso la macro Sub guardar() Act.Aortiz ' - - - - - - - - - - IMPRIMIR EN PDF - - - - - - - - - - - - - - - - - Set h1 = Sheets("Hoja1") Fecha = h1.[J5] 'Dirección donde se va a guardar el PDF CREADO y nombre del PDF nombre = "STK al " & Fecha ruta...

H o l a Has de este modo. Cambia el nombre de la etiqueta de resultado por el tuyo Label1.caption = Format(Label1.caption, "###0.00") valora para finalizar saludos!

H O L A te paso la macro Set h1 = Sheets("Hoja1") Set b = h1.Columns("B").Find(TextBox2, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe" Exit Sub End If ' u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1 H1. Cells(u1, "B") = TextBox2...