víctor ibarz

Lo puedes resolver con esta fórmula de matriz: =SUMA(SI(IZQUIERDA(O5:O1000;1)="V";N5:N1000;"")) Debes ajustar los rangos a tu caso concreto. Se trata de una fórmula de matriz, la debes escribir y a continuación en lugar de pulsar ENTER, bebes pulsar...

Apuesto a que te pasa solamente para las fechas en las que el día es menor que doce, ¿verdad? Utiliza esto: vfecha = Format(Date, "dd/mm/yyyy") if day(vfecha)<13 then vfecha=format(vfecha,"mm/dd/yyyy") Siendo vfecha la variable a utilizar en las sql...

Para estos casos puedes utilizar este complemento gratuito y configurable: @http://www.rondebruin.nl/win/addins/rdbmerge.htm

Te propongo resolverlo por código. En el evento "Worksheet_Activate" de cada hoja que quieres que ejecute esta función llamas a una función que creas en un módulo, en mi caso he creado la función "cuentahoja": Entonces en un módulo haces la función...

Puedes utilizar este complemento: http://www.rondebruin.nl/win/addins/rdbmerge.htm En gratuito y fácil de utilizar.

Algo así creo que serviría: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'tomamos la referencia de la celda que ha cambiado vdir = Target.Address 'vamos a ver si ha cambiado la celda C3 If vdir = "$C$3" Then 'si es así, entonces...

No sé si es lo más óptimo, pero una posibilidad es contar cuantos registros hay en tu tabla con ese código. Algo así: 'recogemos el valor del código en la variable codigo, en este caso la rescato de un control del formulario que se llama codigoo...

Juan Pablo, puedes utilizar este complemento: http://www.rondebruin.nl/win/addins/rdbmerge.htm Es gratuito, configurable y fácil de configurar y utilizar.

Prueba con esto: =si(derecha(recortar(A1);1)="-";concatenar("-";izquierda(recortar(A1);largo(recortar(A1))-1));recortar(A1)) Con el dato a evaluar en A1.

Aquí lo tienes: Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each Sheet In ActiveWorkbook.Sheets If Sheet.Name <> ActiveSheet.Name Then Sheet.Visible = False End If Next Sheet v = Range("AO4").Value If v > 15 Then MsgBox "Por...