Ayuda con Macro en Excel

Hola, espero que me puedan ayudar a elaborar la siguiente macro para Excel.

Bueno en la Hoja \"Datos\" en el rango A6:A55, tengo datos en texto, y esos los quiero exportar a un archivo ascii, ahora, esos datos en ese rango pueden variar en este momento tengo 12 lineas con datos, pero puede ke si alimento mas datos solo tenga 6 o 7 filas con informacion, y pues necesito la macro para generar el archivo en txt pero solo con las celdas que tienen informacion en la columna a.

espero haberme explicado, y que me ayuden.

gracias de antemano.
saludos desde veracruz.

atte. jorge zambrano

Que tal compañero LCJAZB espero y te sean util estas instrucciones si puedes despues me dices como te fue:

Sub exportar() [ya seria el nombre de tu gusto]
'
' exportar Macro
' Macro grabada el 10/01/2008 por Ricardo Cazares
'

'
Application.ScreenUpdating = False

Dim ruta As String
Dim notepadID As Variant

ActiveWorkbook.Save

Sheets(\"hoja1\").Select [el nombre de la hoja ya es a tu consideracion]
Range(\"A1\").Select

ActiveSheet.Columns(\"a\").Select
ruta = \"C:\nombre.txt\" [escribe el nombre del archivo a tu gusto asi como la ruta donde desees que se guarde el archivo]

With Selection
.Copy
End With

notepadID = Shell(\"notepad.exe \", vbNormalFocus)

AppActivate (notepadID)
Application.SendKeys \"^v\", True
Application.SendKeys \"^g\", True
Application.SendKeys ruta, True
Application.SendKeys \"{ENTER}\", True

Sheets(\"hoja1\").Select
Range(\"A1\").Select

End Sub<br><br>Mensaje editado por: rdavidcg, el: 10/01/2008 10:43

Que tal compañero LCJAZB espero y te sean utiles estas instrucciones si puedes despues me dices como te fue:

Sub exportar() [ya seria el nombre de la macro a tu gusto]
'
' exportar Macro
' Macro grabada el 10/01/2008 por *
'

'
Application.ScreenUpdating = False

Dim ruta As String
Dim notepadID As Variant

ActiveWorkbook.Save

Sheets(\&quot;hoja1\&quot;).Select [el nombre de la hoja ya es a tu consideracion]
Range(\&quot;A1\&quot;).Select

ActiveSheet.Columns(\&quot;a\&quot;).Select
ruta = \&quot;C:\nombre.txt\&quot; [escribe el nombre del archivo a tu gusto asi como la ruta donde desees que se guarde el archivo]

With Selection
.Copy
End With

notepadID = Shell(\&quot;notepad.exe \&quot;, vbNormalFocus)

AppActivate (notepadID)
Application.SendKeys \&quot;^v\&quot;, True
Application.SendKeys \&quot;^g\&quot;, True
Application.SendKeys ruta, True
Application.SendKeys \&quot;{ENTER}\&quot;, True

Sheets(\&quot;hoja1\&quot;).Select
Range(\&quot;A1\&quot;).Select

End Sub

saludos!!!!!

Mensaje editado por: rdavidcg, el: 10/01/2008 10:39

Mensaje editado por: rdavidcg, el: 10/01/2008 10:40<br><br>Mensaje editado por: rdavidcg, el: 10/01/2008 10:43

me sigue copiando todas las filas, pero esta buena la macro, muchas gracias.

Usan la macro de rdavidcg

Cambia:
Range(\&quot;A1\&quot;).Select
Por:
Dim Ultima as Integer
Ultima = Range([a1].CurrentRegion.Address).Rows.Count
Range(\&quot;A2:A\&quot; &amp; Ultima).Select

y quitas la linea:
ActiveSheet.Columns(\&quot;a\&quot;).Select

Esta modificación la hice sin probrarla, si tienes problemas comentas

gracias ByPaco.

Por cierto aprovecho para despejar una duda, estoy haciendo un archivito de nomina 2008, es para patrones que se llevan en el trabajo, y por decir estoy haciendolo de la siguiente manera:

hoja1 = ene.nom
ahi estoy metiendo, una nomina de 50 trabajadores, son dos partes la de la primer quincena y mas abajo la de la segunda quincena, para identificar a los trabajadores estoy haciendo esto:
mes 1
quincena 1
trabajador \&quot;n\&quot;
y hago el codigo por cada trabajador \&quot;1.1.n\&quot;, esto lo hago para en otra hoja acumularlos y jalarlos para imprimir un recibo, pero el recibo no me reconoce la tabla donde tengo ordenados los datos de todas las nominas, es un desma.. el libro, sera porke le falta el 1.1.0 en la matriz de datos acumuludos, para imprimir desde el recibo solo pongo 1.1.3 por decir y me jale los datos del mes 1, quincena 1, trabajador 3, pero no jala... alguna idea?

saludos desde veracruz...