karl82

Claro mira en el lugar donde pones la ruta del archivo digamos que sea esta C:\misdocumentos\ entonces tendrás que cambiarla por el "NOMBRE DEL EQUIPO" si tu equipo se llama PC1 entonces seria así \\PC1 seguido de la carpeta que contiene el documento...

Prueba con este código, Saludos y no olvides cerrar la pregunta. Sub Imprime() ChDir "C:\" Workbooks.OpenText Filename:="C:\Archivo.txt", Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _...

Bueno prueba esto: valor = "A" Range(valor + "1:A12").Select Espero haberte sido de ayuda. Saludos y no olvides cerrar la pregunta amigo.

¿Me puedes enviar tu archivo a mi correo? ¿Es [email protected] y de paso me podrías dar una explicación más detalladas? .

¿Se a lo que te refieres me puedes mandar tu archivo para darte la fórmula EXACTA?, mi correo es [email protected] si puedes mándamelo zipeado.

Claro que es posible, pega esto en un modulo y en la celda A1 digitas el nombre del archivo luego ejecutas la macro y listo. Saludos y no olvides cerrar la pregunta. Sub Macro1() Dim valor As String ActiveSheet.Range("A1").Select valor =...

Necesito ver la fórmula para poderte ayudar y bueno si puedes mandar el archivo pues este es mi mail [email protected] saludos (mandame el archivo zipeado)

No te preocupes no hay problema, ¿pero una consulta dime y necesariamente se tiene que volver a ejecutar la macro para que se copie en C19 a R19 porque no de frente copiar en C17 a R17 y C19 a R19? ¿Ahh y hasta cuando se tiene que hacer esas...

Me gustaría ayudarte, pero no te comprendo bien.

Seria de la siguiente manera: Dim valor as string valor = Range("A1").Value y si lo quieres mostrar en una caja de texto o label pues: texbox1.text=valor