santiagomf

=si.error(buscarv(referencias!Axxx;descripciones!$A$B;2;falso);"No encontrado") Pon el "Axxx" la celda que contenga la referencia y, si no me equivoco, la función devuelve lo que buscas. Por cierto, entiendo que no debería haber referencias...

Yo crearía una página con los cambios diarios y una función que me busque el cambio en función de la divisa y fecha. La función sería: Option Explicit Function buscarUltimoCambio(ByVal fecha As Date, ByVal divisa As String) As Double Dim i As Integer...

Así, sin más, no adivino el motivo del error. Habría que ver la ejecución. En cuanto al usuario del ordenador puedes crear fácilmente una función como esta: function nombreUsuario() as string nombreUsuario=environ("username") end function Con eso no...

No sé si te servirá este código: Sub copiarCadaMediaHora() Dim i As Integer Dim sh As Worksheet Dim celda As Range Set sh = ActiveSheet ' Copiamos la linea 132 en la 133 hasta la 182 For i = 133 To 182 Set celda = ActiveCell sh.Rows(132).Copy...

sub multiplicaPor2() dim i as integer for i = 1 to 12 Cells(i, 2) = cells(i, 2) * 2 ' Multiplica por 2 lo que hay en la fila "i" columna 2 (B) y lo deja en la misma celda next i end sub Creo que es lo que buscas.

En el código de la página "resumen" pon esto: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim aux As Variant If Target.Address <> "$A$1" Then Exit Sub ' No es la celda A1 If Target.Value = "" Then Exit Sub If...

Por lo que veo tienes una columna con los mínimos de cada fila, supongo que para el formato condicional. También podrías usar esa columna para la suma con una función así: Function sumarSiMismoValor(ByRef rangoDatos As Range, ByRef rangoMinimos As...

Si en A1 tienes el importe (520) y en B1 el porcentaje (6%), la fórmula que tienes que poner para el importe final es: =redondear(A1*(1-b1);2)

Suponiendo ese formato con una longitud de 10 caracteres, yo crearía una función: function snOkFormato(byval txt as string) as boolean snOkFormato=false ' Hasta comprobar lo contrario if len(txt)<>10 then exit function ' Comprueba la longitud if...

Yo usaría esta fórmula: =SI(A1="PE";1;SI(A1="PM";2;SI(A1="MP";3;-999999)))+SI(B1="PE";0;SI(B1="PM";3;SI(B1="MP";6;-999999))) SI A1 o B1 no tienen uno de los 3 valores indicados, el resultado será un negativo que llame la atención.