Excel - Macro excel rellenar con espacio a la derecha

Macro excel rellenar con espacio a la derecha

Publicado por teeswood (1 intervención) el 02/09/2016 10:47:27

Buenas y santas, tengo un problema para presentares, tengo una macro pero no funciona muy bien, yo necesito rellenar una columna completa, para que tenga un ancho fijo, tiene nombres y a la derecha necesito que rellene con espacios hasta completar la dimensión de 60 caracteres, este es el codigo que tengo. La cosa en cuestion esta en el rango (E:E)

Sub mimacro()

    'seleccionar columna completa de fecha'

        Range("A:A").Select

    'Editar formato de Fecha'

        Selection.NumberFormat = "ddmmyyyy"

    'Sleccionar columna completa de numeros de comprobantes de Comprobante'

        Range("D:D").Select

    'Rellenar con ceros a la izquierda columna completa de numeros de comprobantes'

        Selection.NumberFormat = "00000000000000000000"

    'Seleccionar columna completa de  Nombres'

        Range("E:E").Select

    'Rellenar con espacios a la derecha columna completa de Nombres'

        Selection.NumberFormat = "                                                            "

    'Seleccionar Columna completa de Monto'

        Range("G:G").Select

    'Rellenar con ceros a la izquierda columna completa de Monto'

        Selection.NumberFormat = "0000000000000000"

    'Seleccionar Columna completa de Importe'

        Range("H:H").Select

    'Rellenar con ceros a la izquierda columna completa de Importe'

        Selection.NumberFormat = "0000000000000000"

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Macro excel rellenar con espacio a la derecha

Publicado por JuanC (1237 intervenciones) el 03/09/2016 12:57:50

Option Explicit

Sub ula_ula()

Dim s$, c As Range, rng As Range

Application.ScreenUpdating = False

Application.EnableEvents = False

Set rng = Range("E1:E" & Range("E" & Cells.Rows.Count).End(xlUp).Row)

For Each c In rng

    s = c.Value

    c.NumberFormat = "@"

    c.Value = s & VBA.String(60 - VBA.Len(s), " ")

Next

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar