Adriel Ortiz Mangia

[Hola Se necesita más detalles

[Hola Dime paso a paso lo que necesitas con imágenes

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Por Adriel Set h1 = Sheets("Hoja1") Set h2 = Sheets("VENTAS") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row For i = 5 To 13 If h1.Cells(i, "M") <> "" Then h1.Range("M" & i &...

[Hola Te paso un ejemplo, en C1 pon la cantidad de minutos con el formato hora. Y aplica la suma como te muestro.

[Hola Pon más detalles para poder ayudarte, como están organizados tu datos y donde se copiará el resultado en que hoja, celda, fila, columna etc

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Estado") ' For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") < 51 Then u2 = h2.Range("A" &...

[Hola Asegúrate que el nombre de la hoja esté escrito correctamente, revisa si hay espacio después del nombre Private Sub CommandButton1_Click() Set h = Sheets("Hoja4") ' h.Visible = True h.Select h.Range("A1") = UserForm1.TextBox1 End Sub

[Hola Revisa esto Formulario en excel, como minimizar y poder usar la plantilla con el formulario minimizado

Prueba así Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = Range("k2") Then Range("D4").Value = "" ' If Target.Address = "$D$4" Then filtra End Sub

[Hola Prueba con este ejemplo, no guarda si la celda A1 no contiene datos Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Range("A1") = "" Then MsgBox "Complete los datos en blanco" Cancel = True End If End Sub