evento change y rango de celdas
Publicado por Hugo (1 intervención) el 29/05/2022 03:29:26
Hola, buenas noches.
Tengo el siguiente problema si alguien me puede ayudar.
Intento lograr que al haber un cambio en una celda se ejecute una macro que traiga datos de otra hoja a la hoja en la que estoy trabajando, el problema es que me devuelve error 1004 cuando dentro del código quiero seleccionar un rango de celdas, ejemplo Range("A1:D1").select.
Les copio el código y desde ya muchas gracias.
Tengo el siguiente problema si alguien me puede ayudar.
Intento lograr que al haber un cambio en una celda se ejecute una macro que traiga datos de otra hoja a la hoja en la que estoy trabajando, el problema es que me devuelve error 1004 cuando dentro del código quiero seleccionar un rango de celdas, ejemplo Range("A1:D1").select.
Les copio el código y desde ya muchas gracias.
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B8:H13")) Is Nothing Then
Range("J5") = Target.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("Registro").Select
Range("A1:D1").Select
Selection.AutoFiltercriterio = Range("F1")
Selection.AutoFilter Field:=1, Criteria1:=criterio
Range("B1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CopySheets("Agenda").Select
Range("K7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.SelectApplication.ScreenUpdating = True
End Sub
Valora esta pregunta
0