vorkosigan

Las celdas C10 y B15 son resultado de un cálculo? si es así prueba a poner en estas celdas algo como: =SI(F5="F";0;A1+A2), suponiendo que el valor de esta celda sea el resultado de la suma de A1 y A2

He probado el código y no me salta el error que indicas. Lo que he hecho ha sido trasladarlo a un módulo nuevo y ejecutarlo desde allí, ya que desde la propia hoja no funcionaba bien. Prueba a crear un módulo y lanzar desde allí el código.

=si(Y(signo(A1)=-1;signo(A2)=-1;signo(A3)=-1);verdadero;(SI(O(signo(A1)=-1;signo(A2)=-1;signo(A3)=-1);FALSO;verdadero)))

Pega este código en la hoja donde quieras que se hagan los cambios de formatos. Funciona para cambios en la celda B4 (fila 4, columna 2) por lo que tendrás que adaptar el códifo a tus necesidades. Private Sub Worksheet_Change(ByVal Target As Range)...

Te recomiendo esta página: http://office.microsoft.com/es-es/excel-help/lista-de-funciones-de-hoja-de-calculo-por-categoria-HP010079186.aspx Aquí tienes el listado completo de funciones en la página oficial.

Prueba este código: Private Sub Worksheet_Change(ByVal Target As Range) Dim FilaIni, FilaFin, col As Integer FilaIni = 1 FilaFin = 100 col = 1 If Target.Column = col And (Target.Row >= FilaIni And Target.Row <= FilaFin) Then Hoja2.Cells(Target.Row,...

¿Puedes poner un ejemplo de esa fórmula, y de las constantes?

Aquí tienes un ejemplo <a...

Verifica que no sea un usuario quien accede al programa, sino un agente o un proceso del server. No debería bloquearse en caso contrario.

Prueba esto: Private Sub CommandButton1_Click() Dim CeldaInicio, CeldaFin, rango As String CeldaInicio = "B3" CeldaFin = "N3" rango = CeldaInicio & ":" & CeldaFin For Each cell In Range(rango) If cell.Value = TextBox1.Value Then With cell.Interior...