Máximos colaboradores

Saludos totales, Considerando la respuesta del maestro ante la posibilidad de separar el resultado en dos celdas y considerando también que el consultante no desea usar macros. En esa circunstancia si nos ponemos creativos podemos sacar de la celda el resultado de la fórmula a una imagen. Su formula renombrada: =SI(B3=B7,"Resultado1",SI(B3=B8,"Resultado2",SI(B3=B9,"Resultado3"))) Así cuando cambie el resultado, cambiará la imagen que es una copia del resultado que tenemos en el rango inferior. Probablemente con un rango mayor de datos sea laborioso el crearlo pero es solo una idea que se me cruzo al leer la propuesta del Maestro @Victor7 a quien saludo cordialmente con el gusto de coincidir en este tema.

Libro1 - Ayuda Excel.xlsb

Hola, Sin el libro de ejemplo solo puedo participar en su consulta con un código como el siguiente, este debería poder encontrar la última fila utilizada en la hoja “USUARIO” y comenzar a escribir a partir de esa fila. Así, no necesita especificar manualmente la fila de inicio cada vez. Sub AÑADIRNUEVAS() Application.Calculation = xlManual Dim i As Integer Dim j As Integer ' Encuentra la última fila j = Sheets("USUARIO").Cells(Sheets("USUARIO").Rows.Count, "A").End(xlUp).Row + 1 For i = 2 To 8000 If Range("FACTURAS!L" & i) = "AÑADIR" Then Range("USUARIO!A" & j) = Range("FACTURAS!A" & i) Range("USUARIO!B" & j) = Range("FACTURAS!B" & i) Range("USUARIO!C" & j) = Range("FACTURAS!C" & i) Range("USUARIO!D" & j) = Range("FACTURAS!D" & i) Range("USUARIO!E" & j) = Range("FACTURAS!E" & i) Range("USUARIO!F" & j) = Range("FACTURAS!F" & i) Range("USUARIO!G" & j) = Range("FACTURAS!G" & i) Range("USUARIO!H" & j) = Range("FACTURAS!H" & i) Range("USUARIO!I" & j) = Range("FACTURAS!I" & i) Range("USUARIO!J" & j) = Range("FACTURAS!J" & i) j = j + 1 End If Next i ' Limpia las celdas restantes por si hace falta While Range("USUARIO!A" & j) <> "" Range("USUARIO!A" & j) = "" Range("USUARIO!B" & j) = "" Range("USUARIO!C" & j) = "" Range("USUARIO!D" & j) = "" Range("USUARIO!E" & j) = "" Range("USUARIO!F" & j) = "" Range("USUARIO!G" & j) = "" Range("USUARIO!H" & j) = "" Range("USUARIO!I" & j) = "" Range("USUARIO!J" & j) = "" Range("USUARIO!K" & j) = "" Range("USUARIO!L" & j) = "" j = j + 1 Wend Application.Calculation = xlAutomatic End Sub