Isaac Reyes

H0la Norbey: ¿Para qué quieres usar VBA para algo que se puede resolver simplemente con fórmulas? Si el valor de F8 está guardado con el formato de porcentacje basta con agregar en H8 =H7*F8 Y suponiendo que en H4 deseas poner la resta, H4 tendría...

H0la Aleida: Asumo hiciste tu función con sumo cuidado, por lo tanto, incluyo en tu función lo que tendría que funcionar si el criterio de búsqueda es una subcadena del contenido de alguna celda en en rango de búsqueda VLOOKUP("*" &...

H0la Beto: Puede ser así If Range("A5").Value = "A" Then TipoComp = 1 ElseIf Range("A5").Value = "B" Then TipoComp = 1 End If O asumir que si no es A entonces es B y hacerlo de esta otra forma TipoComp = IIf(Range("A5").Value = "A", 1, 6) S@lu2

No estoy en el computador ahora, pero ¿Has intentado bloquear la hoja y jugar con las distintas opciones de bloqueo? Salu2

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

H0la: Esto copia todos los datos de Hoja Origen en Hoja Destino Sheets("Hoja Origen"). Cells. Copy Sheets("Hoja Destino"). Cells En caso de sólo querer copiar un rango (Ej: El rango A1:D100 de la Hoja Origen a un rango que comienza en C1 en Hoja...

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