Excel - copiar 3 celdas diferentes el valor de la celda activa

 
Vista:
Imágen de perfil de celia
Val: 651
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar 3 celdas diferentes el valor de la celda activa

Publicado por celia (280 intervenciones) el 08/12/2018 14:20:30
Hola
Tengo, ya tengo una tabla que al pulsar en cualquiera de sus celdas copia su contenido en otra y solo necesitaba que haga lo mismo pero que lo copie en 3 celdas y no solo en una
Adjunto archivo
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 Antoni Masana
Val: 4.150
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar 3 celdas diferentes el valor de la celda activa

Publicado por Antoni Masana (1457 intervenciones) el 09/12/2018 11:31:42
Tiene esta macro:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Lin As Integer, Col As Integer
    Col = Target.Column
    Fil = Target.Row
    If Col >= 18 And Col <= 30 And Fil >= 3 And Fil <= 15 Then
        Cells(6, 13) = Target.Value
    End If
End Sub

Y solo hay que añadir dos líneas de código:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Lin As Integer, Col As Integer
    Col = Target.Column
    Fil = Target.Row
    If Col >= 18 And Col <= 30 And Fil >= 3 And Fil <= 15 Then
        Cells(6, 13) = Target.Value
        Cells(12, 14) = Target.Value
        Cells(15, 14) = Target.Value
    End If
End Sub

Saludos.
\\//_
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
Imágen de perfil de celia
Val: 651
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar 3 celdas diferentes el valor de la celda activa

Publicado por celia (280 intervenciones) el 09/12/2018 20:56:36
Estupendo
Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar