Isaac Reyes

Intenta con estos cambios Sub Ordenar_Ultima_Columna() Range("A3").CurrentRegion.Select Selection.Sort Key1:=(Cells(3, Selection.Columns.Count)), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _...

H0la Norbey: Prueba con esto en el código de tu botón With Sheets("Tu hoja").Range("H2") .Value = .Value + 1 End With Reemplaza "Tu hoja" por el nombre de la hoja en que está la celda S@lu2

Supongamos que en A2 tienes un valor y en B2 es dónde quieres poner 0 si no A2 no es un número, entonces en A3 iría lo siguiente =SI(ESNUMERO(A2);A2;0) S@lu2

H0la: Supongamos que tienes lo siguiente A: Fecha de entrada B: Hora de entrada D: Fecha de salida E: Hora de salidda Prueba utilizando esta fórmula en la celda donde quieres el total (el ejemplo aplica para la fila 1) =((C1-A1)*24)+(D1-B1) Esto...

H0la hacandiam: Podrías encerrar todo tu bloque With en el siguiente IF If IsNumeric(Me.TextBox1.Value) Then End If

H0la Felipe: Supongamos lo siguiente: Tu botón se llama cmdBuscarLa hoja en la que están los datos se llama AlumnosLa lista en donde se selecciona el nombre del estudiante se llama lstEstudianteLos cuadros de texto tienen por nombre...

H0la Chrisr: Costó, pero salió. Te dejo la macro para hacer lo que solicitas Function fcnCalcular(rngCeldaCat As Range, rngCeldaMes As Range) As Double 'Por GP' Dim strMeses() As Variant Dim i As Integer, nFilas As Integer strMeses = Array("Todos",...

Intentemos lo siguiente, suponiendo que en la tabla de arriba la primera fila con valores es la 2 y la última es la 6, en la celda que tienes marcado en amarillo agrega la siguiente fórmula =SUMA(SI((E2:E6="si")+(C2:C6="si");H2:H6;0)) Ahora, en lugar...

H0la Chrisr: Supongamos que en A1 tienes las categorías de gasto (en adelante categorías) y que en B1 deseas agregar aquello que le llamaremos subcategorías de gasto (en adelante subcategorías). Para poder realizar lo que pides, crearemos una hoja en...

H0la José: Puedes utilizar esto en el evento Change del ScrollBar Private Sub ScrollBar1_Change() ActiveWindow.ScrollRow = Me.ScrollBar1.Value End Sub Debes definir el valor mínimo del ScrollBar en 1 y el máximo en 1048554 o la fila a la que quieres...