vacia - seleccionar hoja excel vba

Agregar datos al final o al principio de la macro de celda de Excel

Question

He buscado y aprendido, y al final simplemente lo hice yo mismo.

Aquí está para que la gente no tenga que buscarlo.

Este código mantiene los datos que están allí.

Esto toma los datos de entrada en la celda P27 de la Hoja Especificada "Datos Originales" y los coloca al comienzo de cada celda que tiene Datos en otra hoja de trabajo "Hoja de Plantilla".

Sub copyfileaddresstotemplate()
''Application.ScreenUpdating = False
Sheets("Original Data").Activate
Text = Sheets("Original Data").Range("P27")
Sheets("TemplateSheet").Activate
Dim i As Range
Range(Range("A2"), Range("A2").End(xlDown)).Select
For Each i In Selection
i.Value = Text & i.Value
Next i
End Sub

Lo siguiente coloca texto Después de los datos de la celda

Sub copyfileaddresstotemplate()
''Application.ScreenUpdating = False
Sheets("Original Data").Activate
Text = Sheets("Original Data").Range("P27")
Sheets("TemplateSheet").Activate
Dim i As Range
Range(Range("A2"), Range("A2").End(xlDown)).Select
For Each i In Selection
i.Value = i.Value & Text
Next i
End Sub

Feliz Codificación!

Edit ** lo siento, no puedo decidir, el sub funciona sin público realmente bien si está en su propio módulo. Por alguna razón, puedo hacer que funcione como un sub público.

Editar ** ¡oye, parece diferente! sí, es porque el código anterior publicado eliminaría los datos existentes, si al ver esto por primera vez no se preocupe, esto funciona.

Answer 1

Sub copyfileaddresstotemplate()
''Application.ScreenUpdating = False
Sheets("Original Data").Activate
Text = Sheets("Original Data").Range("P27")
Sheets("TemplateSheet").Activate
Dim i As Range
Range(Range("A2"), Range("A2").End(xlDown)).Select
For Each i In Selection
''i.Value = i.Value & Text
i.Value = Text & i.Value
Next i
End Sub