jrgces

Las funciones de usuario no pueden modificar el entorno de Excel, y en concreto no pueden cambiar el estilo de un trozo de texto de una celda. Lo que necesitas se podría hacer usando el evento Worksheet_Change de la hoja (click derecho sobre su...

En A1:A3 pon la fórmula =ALEATORIO() y en B1:B3: =ELEGIR(JERARQUIA(A1;A$1:A$3);"BOLA ROJA";"BOLA AZUL";"BOLA VERDE") Saludos. Nota: es remotísimamente posible que se produzca una duplicidad (1 posibilidad en mil billones o así).

Dim strNombreLibro As String strNombreLibro = Application.GetSaveAsFilename ThisWorkbook. SaveAs strNombreLibro

Yo escribí una fórmula que devuelve la condición activa del filtro pero sólo funciona bien si el filtro es de una sola columna. Para lo que necesitas no veo otra solución que recurrir a VBA. He subido un libro de ejemplo con la función a...

=y(A2>fecha(2009;1;1);A2<fecha(2009;1;31))

El último valor de la columna A de Hoja1 se puede averiguar usando [Hoja1!A65536].End(xlUp).Value Por ejemplo: Dim valor As Variant valor = [Hoja1!A65536].End(xlUp).Value

Por ejemplo, puedes usar la columna B para las variaciones porcentuales. Lo único que tendrías que hacer es poner en B2 la fórmula =A2/A1-1 Y darle a la celda formato de porcentaje (Formato -> Celdas -> solapa 'Número') con el número de decimales que...

Por ejemplo, para crear vínculos a los libros de Excel listados habría que poner la instrucción If LCase(Mid(f, Len(f) - 2)) = "xls" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 1), Address:=Directory & f En el bucle, por ejemplo después de las...

Sub prueba() Dim rf As RecentFile On Error Resume Next For Each rf In Application.RecentFiles If rf.Name = "borrar.xls" Then rf.Delete 'El fichero que se quiera quitar de la lista Next rf Set rf = Nothing End Sub

Prueba con: =indice(C:C;coincidir(A1;B:B;0))