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

 
Vista:
sin imagen de perfil
Val: 85
Ha mantenido su posición 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 (33 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