Titulo o Cabecera al insertar columna con macro
Publicado por Luis (18 intervenciones) el 28/09/2020 03:49:42
Hola otra vez yo por acá.
Consulta tengo la macro que dejo a continuación y quería saber si era posible de colocarle una cabecera cada vez que inserto una columna pero con VBA, como ven esta macro me crea una columna y une las 2 columnas siguientes pero me pregunto si es posible que cuando se cree una columna automáticamente según el nombre que yo le coloque aparezca la cabecera de la columna ejemplo que quede visualmente así:
Telefono1 [Este es el titulo o cabecera que me gustaría se creara automáticamente ]
xxxxxxxx [Este es el texto que se concatena ]
xxxxxxxx
xxxxxxxx
Saludos
Consulta tengo la macro que dejo a continuación y quería saber si era posible de colocarle una cabecera cada vez que inserto una columna pero con VBA, como ven esta macro me crea una columna y une las 2 columnas siguientes pero me pregunto si es posible que cuando se cree una columna automáticamente según el nombre que yo le coloque aparezca la cabecera de la columna ejemplo que quede visualmente así:
Telefono1 [Este es el titulo o cabecera que me gustaría se creara automáticamente ]
xxxxxxxx [Este es el texto que se concatena ]
xxxxxxxx
xxxxxxxx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Macro1()
Range("N3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("N4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE([@Columna9]&[@Columna8])"
Range("V3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("V4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE([@Columna16]&[@Columna15])"
Range("Z3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("Z4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE([@Columna13]&[@Columna12])"
Range("AH3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("AH4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE([@Columna18]&[@Columna17])"
Range("BG3").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("BG4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE([@Columna25]&[@Columna24]"
End Sub
Saludos
Valora esta pregunta
0
