Exportar de Excel a txt los "valores"
En el Siguiente link encontré la programación que busco.
Traslado de datos de Excel al Bloc de Notas
Exportar un grupo específico de Celdas (no toda la hoja) a un Bloc de notas.
Sin embargo las celdas resultantes que necesito exportar tienen fórmulas, y según la secuencia de programación estas celdas son pegadas en una hoja nueva que luego se cierra; ¿Cómo logro que las celdas a Pegar sean solo los valores? (Un pegar Especial> Valores)
De ante mano muchas Gracias…
Programación del link…
Sub Macro3()
Range("A1:A3").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\escribe la direccion deseada de tu PC\prueba block3.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
Application.DisplayAlerts = Trae
ActiveWindow.Close
End Sub
1 respuesta
Gracias por el aporte Aneudys...
Me refiero al problema según la imagen:
A la izquierda debería exportar al bloc de notas los números 11-13 y 15 (Suma de columnas A=B+C)
Sin embargo a la derecha se pegan en el bloc de notas los valores 0-0-0.
Como solvento esto?
Gracias...
Prueba estas
Sub copiar()
Range("A1:A3").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Activate
Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Terminal\Desktop\prueba block3.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
Application.DisplayAlerts = Trae
ActiveWindow.Close
End Sub
El problema era al seleccionar la celda a1 a a3 solo se llevaba la fórmula y cuando copaiba en el libro Nuevo al no haber datos su resultado siempre iba a ser cero pero ahora copia los valor solamente
Y recuerda si te silve no olvides valorar para cerrar la pregunta
