Victor Perdomo

Te envío este código que cambia el color de la celda activa a amarillo, y restablece el color de la selección anterior Dim anterior As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next With anterior.Interior...

wilson me puedes decir por que usas el SI (A1="";"" ?

Si, tienes que usar la función condicional SI pues analizando el problema, se puede llegar a la conclusión que si el precio es menor a 120000 el impuesto es de 5%+16%+2%=23% si no es de 5%+16%+3%=24% y siempre se incrementara en 3000. Prueba esta...

Prueba esta formula =O(B16=respuestas!A1;B16=respuestas!B1;B16=respuestas!C1) CUalquier duda me preguntas, no se te olvide dar por finalizada la pregunta

paisan@ Suponiendo que el precio del producto este en la celda A2 la formula seria =((A2*1,05)+3000)*1,16 Cualquier duda me comentas, no se te olvide dar por finalizada la pregunta

Prueba esta formula y me cuentas =si(g20="indefinido";si(g21>=6;"cliente apto";si(g21<3;"cliente no cumple"));si(g20="fijo";si(g21<9;"cliente no cumple políticas";si(y(g21>=9;g21<12);"cliente especial";"cliente apto"))))

Debes de tener en cuenta, que el archivo debe de estar abierto, para que la macro se ejecute. De no ser asi, podemos probar con un script y tareas programadas

Supongo que cada entrega tiene un condigo único, yo lo coloque en la columna A, adicione otra columna con la formula que indica si la fecha de entrega esta en el rango de una semana, y como lo indicas al final, la información se muestra en una tabla...

Prueba este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Tipo As String If Target.Column = 5 Then Tipo = Target.Value Select Case Tipo Case "CH", "ND" Target.Offset(0, 1).Select Case "DP", "NC" Target.Offset(0, 2).Select Case...

Prueba este libro y me cuentas, si tienes dudas http://sdrv.ms/16JIT7X De no tenerlas