Dante Amor

Aplica el siguiente formato condicional. 1. Entra al Menú Inicio, Formato condicional, Administrador de reglas, presiona Nueva regla, selecciona "Utilice una fórmula que determine las celdas para aplicar formato". 2. En el campo "Dar formato a los...

Quedaría así: T_Entrada = Format(Range("F5"), "hh:mm:ss am/pm") T_Actual = Format(Time, "hh:mm:ss am/pm") T_Consum = Format(TimeValue(T_Actual) - TimeValue(T_Entrada), "hh:mm:ss am/pm")

Te faltan algunos detalles a tu macro. Mejor te envío una nueva macro y unas recomendaciones. - Cambia el evento change por un botón, ya que si dejas el evento change, por cada letra que vayas poniendo en el textbox, se va a realizar la búsqueda. -...

Ejecuta la siguiente macro en la hoja "CEL" Sub Macro11() ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value > 0 Then Cells(i, "AW").FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-2],Tramos!R1C11:R931C12,2,0),""GESTOR"")" End If Next...

Después de esta línea: ActiveSheet. ShowAllData Pon la línea: Exit sub

Te anexo una macro, la probé con 40 mil y tarda 3 minutos Sub QuitaFilas() 'Act Por Dante Amor Dim u As Double, i As Double, j As Double Dim r As Range, a Dim h As Object Application.ScreenUpdating = False Application.StatusBar = False Set h =...

Te anexo la macro Sub Enviar_Hoja() 'Por Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = Sheets("SELECCION") ' ruta = l1.Path & "\" arch = "libro.xlsx" For i = 8 To h1.Range("K" &...

Te anexo la macro actualizada, para 40 mil registros, tarda 3 minutos. Sub Unicos_Duplicados_2() 'Por Dante Amor 'cuenta unicos y duplicados ' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents =...

Según tu imagen En el txtvalor3 tienes vacío o nulo. Como bien comentan, tienes que validar el contenido del txtvalor3, puede ser esta forma: If txtvalor3.Value = "" Then t3 = 0 Else t3 = txtvalor3.Value End If ActiveCell.Value = CDbl(t3) Si el valor...

Te anexo la macro. Ejecuta la macro Abrir_Txts. Cambia "algo1.txt" y "algo2.txt" por los nombres de tus 2 archivos Sub Abrir_Txts() ' Por Dante Amor ' Carga archivos de texto ' Application.ScreenUpdating = False Set h = Sheets("Hoja8") h.Cells.Clear...