Macro para aplicar sangría en celdas de excel de forma automática.

Aplicar sangría a celdas de una columna, teniendo como dato el número del nivel de sangría en otra columna.

Adjunto imagen referencial.

Para que es resultado sea el siguiente:

1 respuesta

Respuesta
2

[Ho la y bienvenido a TodoExpertos!

Visita:

Cursos de Excel y Macros

Por Dante Amor

------ --

En tu imagen no se ve en cuál fila y en cuál columna empiezan tus datos.

Ajusta en la siguiente macro la "B" por la columna y el "2" por el número de fila iniciales:

Sub Macro1()
  Dim c As Range
  Dim n As Long
  For Each c In Range("B2", Range("B" & Rows.Count).End(3))
    n = c.Offset(, 1).Value
    If n > 0 Then
      c.InsertIndent n
    End If
  Next
End Sub

Recomendaciones:

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas