Adriel Ortiz Mangia

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

[Hola Prueba con esto =SI(A1>B1,"Pago Parcial",SI(A1=B1,"Pagado",SI(B1="","Por pagar"))) Sustituye los separadores (,) por el tuyo

[Hola Mi gran Maestro y Generoso Dante, me cuesta entender que hayas tomado esta decisión pero es algo que respeto mucho. Me queda decir Dante que estoy profundamente agradecido, porque gracias a tus aportaciones y otras personas que participan en...

[Hola Has clic derecho en la barra de estado y activa lo que necesitas

Pon la macro para actualizar

[Hola Prueba así, guardando la configuración de tu formulario a una celda. Por ejemplo para tu formulario los option if option1 = true then sheets("Hoja1").Range("A1") = "Bolivares" if option2 = true then sheets("Hoja1").Range("A1") = "Sol" . . . Y...

[Hola Te paso la macro Sub SEPARA_CADENA() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' ini = 2 'fila inicio k = 1 h2.Cells.ClearContents For i = ini To h1.Range("AT" & Rows.Count).End(xlUp).Row If...

[Hola Te paso la macro Valora la respuesta con manito arriba para finalizar Sub copiar_datos() 'Por.Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear k = 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i,...

[Hola Te paso la macro Valora la respuesta para finalizar Sub copiahoja() 'Por.dam 'Act. Adriel Ortiz Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = ThisWorkbook.Path & "\" ARCH = "NUEVA DATA" h1.Copy Application.DisplayAlerts = False...