jrgces

Si te sirve: =indice(Hoja2!A1:Z20;coincidir($G$2;Hoja2!A:A;0);coincidir($C$2;Hoja2!1:1;0))

No veo muy claro qué es lo que necesitas, pero si se trata de devolver el valor de la siguiente celda a la primera vacía en el rango A1:A28, la fórmula podría ser: =INDICE(A:A;K.ESIMO.MENOR(SI(A1:A28<>"",9999,FILA(A1:A28)),1)+1) Teniendo en cuenta...

Si por ejemplo en el rango A1:A15 hay un conjunto de fechas: - para contar las que sean del año 1987: =SUMAPRODUCTO(--(AÑO($A$1:$A$15)=1987)) - para contar las que sean del mes de enero sea cual sea el año: =SUMAPRODUCTO(--(MES($A$1:$A$15)=1)) - para...

Sub prueba() Dim RangoDiscont As Range Dim lngFila As Long With Worksheets("Hoja1") 'Poner el nombre real de la hoja For lngFila = 1 To .[A65536].End(xlUp).Row If .Cells(lngFila, 1).Value = "SI" Then If RangoDiscont Is Nothing Then Set RangoDiscont =...

Te aconsejo que si quieres probar esto lo hagas en una copia del libro, "por si las flyes". Si en A1 está 01/01/08 0:00, en A2 01/01/08 1:00 ... hasta A8784 con 31/12/08 23:00 y en la columna B las cantidades para cada hora, prueba poniendo en (por...

Se podría usar la función Shell de VBA para ejecutar el ping, pero no creo que te sirva de mucho porque cuando termine se cerrará la ventana de DOS. El código podría ser: Sub Ping() Dim varRetorno As Variant varRetorno = Shell("ping " &...

Es algo que parece sencillo de conseguir pero no lo es tanto, debido a que (hasta donde yo sé) no hay ningún evento que se produzca al hacer click en una celda, salvo que este click implique un cambio de selección, en cuyo caso se puede usar el...

Hasta donde yo sé, y al menos en Excel 2003 que es el que utilizo, la única forma de averiguar el color generado por los formatos condicionales es reproducir mediante código en VBA el comportamiento del propio formato: un lío. Para acabar de...

Me temo que no termino de entender qué es lo que necesitas, pero si estás intentando averiguar la fecha del jueves anterior a la fecha de hoy, prueba con la fórmula: =SI(DIASEM(HOY())=5;HOY();HOY()-DIASEM(HOY()-5)) Supongo que tendrás que sustituir...

Si te sirve: Sheets("ALB_MES").Copy After:=Sheets(Sheets.Count - 1) ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False