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:
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
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 = iEnd 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
0