Como ejecutar una formula en código que se tronca por exceso de anidaciones
tengo una código que ejecuta una formula en excel, pero se trunca debido a la cantidad de anidaciones y no he podido ejecutarla en un archivo..
el código es el siguiente
Range("B2").Select
For contador = 1 To 5000
If Range("B" & contador).Value = "" Then
Range("B" & contador).Select
ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[2],3)=""FO-"",RC[2],IF(LEFT(RC[2],3)=""CU-"",RC[2],IF(LEFT(RC[3],3)=""FO-"",RC[3],IF(LEFT(RC[3],3)=""CU-"",RC[3],IF(LEFT(RC[4],3)=""FO-"",RC[4],IF(LEFT(RC[4],3)=""CU-"",RC[4],IF(LEFT(RC[5],3)=""FO-"",RC[5],IF(LEFT(RC[5],3)=""CU-"",RC[5],IF(LEFT(RC[6],3)=""FO-"",RC[6],IF(LEFT(RC[6],3)=""CU-"",RC[6],IF(LEFT(RC[7],3)=""FO-"",RC[7],IF(LEFT(RC[7],3)=""CU-"",RC[7],IF(LEFT(RC[8],3)=""FO-"",RC[8],IF(LEFT(RC[8],3)=""CU-"",RC[8],IF(LEFT(RC[1],3)=""FO-"",RC[1],IF(LEFT(RC[1],3)=""CU-"",RC[1]))))))))))))))))"
End If
Next contador
me aparece bien hasta la tercera columna IF(LEFT(RC[3],3)=""FO-"",RC[3] primera parte después no me deja correrlo
1 respuesta
Buenos días la idea es crear un ciclo que donde encuentra una celda vacía en la columna "B" me busque en la misma fila de la columna "C:K" una celda que contenga las iniciales CU- O FO- y me la copie o corte y pegue en "B" pero en la misma fila.
"=IF(LEFT(RC[2],3)=""FO-"",RC[2],IF(LEFT(RC[2],3)=""CU-"",RC[2]
Y LA FORMULA COMPLETA EN EXCEL QUE ESTOY HACIENDO ES ESTA:
=SI(IZQUIERDA(D1284;3)="FO-";D1284;SI(IZQUIERDA(D1284;3)="CU-";D1284;SI(IZQUIERDA(E1284;3)="FO-";E1284;SI(IZQUIERDA(E1284;3)="CU-";E1284;SI(IZQUIERDA(F1284;3)="FO-";F1284;SI(IZQUIERDA(F1284;3)="CU-";F1284;SI(IZQUIERDA(G1284;3)="FO-";G1284;SI(IZQUIERDA(G1284;3)="CU-";G1284;SI(IZQUIERDA(H1284;3)="FO-";H1284;SI(IZQUIERDA(H1284;3)="CU-";H1284;SI(IZQUIERDA(I1284;3)="FO-";I1284;SI(IZQUIERDA(I3234;3)="CU-";I1284;SI(IZQUIERDA(J1284;3)="FO-";J1284;SI(IZQUIERDA(J1284;3)="CU-";J1284;SI(IZQUIERDA(C1284;3)="FO-";C1284;SI(IZQUIERDA(C1284;3)="CU-";C1284))))))))))))))))
AGRADEZCO MUCHO LA AYUDA....
ATT: LEONARDO VALENCIA
