Macro que traspase en formato texto una columna
Siguiendo complementando la siguiente macro, quisiera que solamente una de las columnas por ejemplo la Columna C, fuese traspasada en formato texto, ya que con ella aplico otra fórmula que sólo funciona con ese formato, ¿cómo podría modificar el cod?
Quedo atenta, muchas gracias!
Sub unionhojas()
Set h1 = Sheets("AÑO 2017")
h1.Cells.ClearContents
TitOrigen = "A1:w1" 'Rango donde están los títulos
Sheets("ENERO 2017").Range(TitOrigen).Copy
Sheets("AÑO 2017").Range("A1").PasteSpecial Paste:=xlPasteAll
For hoja = 2 To Sheets.Count
Set h2 = Sheets(hoja)
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
u2 = h2.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
h2.Range("A2:W" & u2).Copy h1.Range("A" & u1)
Next hoja
MsgBox ("Fin preceso informacion unida")
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Prueba con lo siguiente:
Sub unionhojas()
Application.ScreenUpdating = False
Set h1 = Sheets("AÑO 2017")
h1.Cells.ClearContents
TitOrigen = "A1:w1" 'Rango donde están los títulos
Sheets("ENERO 2017").Range(TitOrigen).Copy
Sheets("AÑO 2017").Range("A1").PasteSpecial Paste:=xlPasteAll
For hoja = 2 To Sheets.Count
Set h2 = Sheets(hoja)
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
u2 = h2.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
h2.Range("A2:W" & u2).Copy h1.Range("A" & u1)
h1.Columns("C:C").NumberFormat = "@"
h2.Range("C2:C" & u2).Copy
h1.Range("C" & u1).PasteSpecial xlValues
Next hoja
Application.ScreenUpdating = True
MsgBox ("Fin preceso informacion unida")
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
