Excel - Como copiar datos de una tabla en una hoja diferente del libro

 
Vista:
sin imagen de perfil
Val: 78
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Como copiar datos de una tabla en una hoja diferente del libro

Publicado por Toni (39 intervenciones) el 24/10/2019 13:29:14
Buenos días,

En una hoja HOJA1 tengo una TABLA1 de usuarios (nombre, teléfono, dirección...)
En otra HOJA2 creo un desplegable con validación de datos con los valores de [TABLA1].[Nombre]

Pretendo que, después de actualizar este desplegable, se rellenen automaticamente algunas celdas de la HOJA2 con los datos del cliente escogido.

Intento hacerlo con el método Worksheet_Change:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_Change(ByVal Target As Range)
 
'Detecta si el cambio se ha hecho en la celda donde està el desplegable
    If Target.Address = "$F$2" Then
        Dim NumLine As Integer
        Dim sNom, sTeléfono, sDireccion As String
 
'Doy a sNom el valor del desplegable
        sNom = Range("F2").Value
 
'Recorre la columna de nombres en la tabla1 y guarda en NumLine el valor de la fila
        Sheets("hoja1").Select
        Range("C2").Select
 
        For i = 0 To Range("Tabla1").Rows.Count
            If ActiveCell.Offset(i, 0).Value = sNom Then
                NumLine = i
            End If
        Next i
 
'Grava los valores de la fila en TABLA1
        sNom = Cells(NumLine, 1).Value
        stELEFONO = Cells(NumLine, 8).Value
        sDireccion = Cells(NumLine, 9).Value
 
'Copia los valores guardados en la HOJA2
        Sheets("hoja2").Select
 
        Range("D4").Value = sNom
        Range("F4").Value = sTelefono
        Range("D6").Value = sDireccion
 
    End If
 
End Sub


Encuentro el problema en el momento de escoger la celda C2 de la HOJA1. No me lo permite, supongo que debido a que se está ejecutando una acción en otra hoja (me imagino).

Como puedo solucionarlo? 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