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.

Disculpa por la demora y sobre todo el que no pueda dar respuesta a tu pregunta, por favor vuelve a publicar tu pregunta para que una persona con más experiencia te pueda ayudar.

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.

Prueba esto, espero te sea útil, saludos y no olvides cerrar la pregunta. Sub Macro() Range("B25").Select ActiveWindow.SmallScroll Down:=24 End Sub

Sabes lo más posible es que hayas formateado con un formato incorrecto cuando creas y formateas particiones tienes que hacerlas en FAT32 o NTFS cualquieras de las dos, para efectos de mayor seguridad es recomendable formatear en NTFS, te recomiendo...

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