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