Saltar al contenido

Insertar una fomula local Si

publicado

Hola buenas tardes: 

Necesito ingresar una formula en la columna C solo si una celda  celda anterior tiene valor Columna B.

Mi formula es (=SI.ERROR(EXTRAE(B3,ENCONTRAR("*",SUSTITUIR(B3,"\","*",LARGO(B3)-LARGO(SUSTITUIR(B3,"\",""))))+1,LARGO(B3)),"")

Espero me puedan ayudar.

Gracias 

 

Insertar formula si.xlsm

Featured Replies

publicado

En base a lo explicado una sentencia como esta debería servir:

Sub AplicarFormula()
    Set ws = ThisWorkbook.Sheets("Impres")
    Set Rng = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    For Each cell In Rng
        If cell.Value <> "" Then
            cell.Offset(0, 1).Formula = "=IFERROR(MID(B" & cell.Row & ",FIND(""*"",SUBSTITUTE(B" & cell.Row & ",""\"",""*"",LEN(B" & cell.Row & ")-LEN(SUBSTITUTE(B" & cell.Row & ",""\"",""""))))+1,LEN(B" & cell.Row & ")),"""")"
        End If
    Next cell
End Sub

Saludines

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.