sin utilizar celdas de excel

...no habia acabado mi mensaje anterior - me salio disparado.

Quise decir que ... en este caso se debe utilizar la solucion de HM.

Saludos,
KL


"KL" wrote in message
news:

Hola fredy,

La mia no es una opcion practica (o no deberia serlo) sino "pura teoria" -
solo era para demonstrar que se puede hacer lo que buscas siguiendo la
pregunta al pie de la letra. La funcion Evaluar() es muy util en muchos
casos cuando es preferible usar formulas en vez de comandos VBA, pero en
este caso
"fredy" wrote in message
news:

Muchas Gracias!!!! KL Y Hector Miguel son muy buenas opciones
"KL" escribio:

:-DD


"Hector Miguel" wrote in message
news:
> hola, fredy !
>
>> quisiera saber si la formula Range("A1").FormulaR1C1 = _
> "=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
>> ... puede ser calculada en el codigo... sin utilizar ninguna celda de
>> excel.
>
> ThisWorkbook.Path & "\"
> ActiveWorkbook.Path & "\"
>
> saludos,
> hector.
>

hola KL efectivamente utilice la de HM pero con tu respuesta me di cuenta que
el uso de evaluate puede ser muy util en mis macros!!
muchas gracias! ;D

"KL" wrote:

no habia acabado mi mensaje anterior - me salio disparado.

Quise decir que ... en este caso se debe utilizar la solucion de HM.

Saludos,
KL


"KL" wrote in message
news:
> Hola fredy,
>
> La mia no es una opcion practica (o no deberia serlo) sino "pura teoria" -
> solo era para demonstrar que se puede hacer lo que buscas siguiendo la
> pregunta al pie de la letra. La funcion Evaluar() es muy util en muchos
> casos cuando es preferible usar formulas en vez de comandos VBA, pero en
> este caso
> "fredy" wrote in message
> news:
>>
>> Muchas Gracias!!!! KL Y Hector Miguel son muy buenas opciones
>> "KL" escribio:
>>
>>> :-DD
>>>
>>>
>>> "Hector Miguel" wrote in message
>>> news:
>>> > hola, fredy !
>>> >
>>> >> quisiera saber si la formula Range("A1").FormulaR1C1 = _
>>> > "=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
>>> >> ... puede ser calculada en el codigo... sin utilizar ninguna celda de
>>> >> excel.
>>> >
>>> > ThisWorkbook.Path & "\"
>>> > ActiveWorkbook.Path & "\"
>>> >
>>> > saludos,
>>> > hector.
>>> >
>>>
>>>
>>>
>
>