Insertar columnas con macro
Hola,
Necesito algo sencillo pero soy incapaz de hacerlo; crear una macro que me inserte 4 columnas con los nombres "cliente", "fecha" "estado" y "entrega".
Esto sé hacerlo, pero el problema es que no siempre añado las columnas en la misma posición; la primera (cliente) siempre en la A, pero las otras tres pueden ir a partir de la G o la H o la K... Es decir necesito insertar las columnas a partir de la primera que esté libre porque unas veces tengo datos hasta la G, otras hasta M....
Gracias anticipadas!
1 respuesta
Respuesta de Dante Amor
1
Esta sería la macro, cambia en la macro f=1 por f = y el número de fila en donde quieres poner los nombres.
Sub insertar()
'Por.DAM
f = 1
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & f) = "cliente"
u = Cells(f, Columns.Count).End(xlToLeft).Column + 1
Cells(f, u) = "fecha"
Cells(f, u + 1) = "estado"
Cells(f, u + 2) = "entrega"
End Sub Saludos.Dante Amor
Si es lo que necesitas.
