08/Feb/09 00:16
Tengo una macro para pasar de excel a txt cierto rango de celdas pero el problema es que si el rango de la fila anterior es mas largo me rellena con espacios la fila para que quede igual al anterior o a la fila mas larga.
Alguien sabe como modificarlo para que copie tal cual cada celda sin necesidad que me ponga espacios..
Espero haberme explicado.
Sub GeneraTxt()
Dim MiRango As Range, Largo As Integer, FilaActual As Long
On Error Resume Next
Set MiRango = Application.InputBox('Seleccione rango a exportar', Type:=8)
On Error GoTo 0
If MiRango Is Nothing Then Exit Sub
Open 'C:CB_SUELDOS_2008.txt' For Output As #1
For Each Celda In MiRango
If Largo