Visual Basic para Aplicaciones - Copiar y pergar "donde se referencia dentro de una celda"

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Copiar y pergar "donde se referencia dentro de una celda"

Publicado por JORDI (5 intervenciones) el 24/03/2021 08:46:06
Buenos días
Tengo tres columnas, cada una en diferente hoja (Columna A, en hoja 1; Columna B, en hoja 2, y Columna C en hoja 3 -hay una cuarta columna en la Hoja 1, la Columna B", donde tengo las direcciones de celdas-). La Hoja 3 tiene vinculado los valores de la hoja 2. En la Hoja 1 tengo Columna B, Fila 1 identificada la celda de la Hoja 2, que és =Hoja2!$B"1
¿Cómo puedo introducir datos en la Hoja 1 (Columna A) y que se peguen en la Hoja 2 (Columna B) sin ser por vinculación de celda?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 115
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar y pergar "donde se referencia dentro de una celda"

Publicado por Norberto (34 intervenciones) el 25/03/2021 13:26:07
Hola:

En el evento Change de la Hoja1 pones el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Celda As Range, Hoja As Worksheet
 
    Set Hoja = Worksheets("Hoja2")
    For Each Celda In Target
        If Celda.Column = 1 Then
            Hoja.Cells(Celda.Row, 2).Formula = Celda.Text
        End If
    Next
    Set Hoja = Nothing
    Set Celda = Nothing
End Sub

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Copiar y pergar "donde se referencia dentro de una celda"

Publicado por JORDI (5 intervenciones) el 25/03/2021 14:12:19
Gracias y saludos también
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar