Acomodar datos en txt
hay alguna manera de acomodar el importe para que salga asi:
500.00
1500.00
12500.00
y no asi .:
500.00
1500.00
12500.00
y en iva le acabo de modificar esto "0.00" por esto "0.0000"
de manera que si yo ingreso 10% se me genera un 0.1000
pero si quiero ingresar un 10.01 me genera un 0.1001
como cambiaría ahi para que me respete el 0.10 y el 0.1001
1 Respuesta
Respuesta de Dante Amor
1
Te mando la nueva macro
Sub Grabar_fichero_de_texto()
On Error Resume Next
' oculta el procedimiento
Application.ScreenUpdating = False
ufila = Range("A" & Rows.Count).End(xlUp).Row
Range("A2").Select
For i = 2 To ufila
'Formato del campo cuenta Destino
Cells(i, 4).Select
Cells(i, 4).Value = Val(Cells(i, 4).Value)
Selection.NumberFormat = "000000000000000000"
'formato de importe
Cells(i, 5).Select
Selection.NumberFormat = "0.00"
With Selection
.HorizontalAlignment = xlRight
End With
'Formato del iva
Cells(i, 9).Select
Selection.NumberFormat = "0.0000"
'formato del campo fecha aplicación
Cells(i, 10).Select
Selection.NumberFormat = "ddmmyyyy"
Next
'copia y pega los valores
Range("A2", "L100").Copy
Workbooks.Add
ActiveSheet.Paste
Range("i1").Select
'queda el nombre del fichero y la ruta donde está
fichero = ThisWorkbook.Name
Ruta = ThisWorkbook.Path
'se quita la extensión de excel
fichero = Replace(fichero, ".xlsx", "")
fichero = Replace(fichero, ".xls", "")
'selecciona la hoja activa
ActiveSheet.Select
'omite los mensajes de aviso
Application.DisplayAlerts = False
'guarda el fichero de texto acomodado
'en el mismo directorio donde tenemos el
'fichero de excel normal
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & fichero & ".txt", FileFormat:=xlText
'cierra el fichero de texto
ActiveWorkbook.Close
'Muestra el procedimiento
Application.ScreenUpdating = True
End SubSaludos.dam
