¿Como hacer una macro para insertar columnas y rellenar con unos valores preestablecidos?
Para Dante Amor, el cual es un genio de las macros
Deseo realizar una macro en la cual a partir de la información de la hoja1 copie a la hoja2 el mismo contenido el cual contiene varias columnas con valores que representan un concepto; pero a partir de la columna C le inserte dos columnas previamente y se rellene con unos valores preestablecidos y así sucesivamente por el número de columnas de la hoja1. El relleno de la primera columna insertada corresponde a un orden consecutivo fijo por columna y la segunda columna insertada corresponde a un concepto o código preesetablecido.
Algo así.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub InsertarColumnas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h2.Cells.Clear
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Columns("A:B").Copy
h2.[A1].PasteSpecial xlValues
n = 2
k = 3
For j = 3 To h1.Columns("G").Column
h2.Range(h2.Cells(2, k), h2.Cells(u, k)) = n
h2.Range(h2.Cells(2, k + 1), h2.Cells(u, k + 1)) = h1.Cells(1, j)
h1.Columns(j).Copy
h2.Cells(1, k + 2).PasteSpecial xlValues
k = k + 3
n = n + 1
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub':) ':)
