Ayuda con macro
Publicado por jesus (1 intervención) el 25/07/2019 17:08:45
Hola gente del foro. Necesito si alguien me puede dar una mano con una macro que estoy haciendo en el programador de excel. lo que debería hacer la macro es lo siguiente . si en la celda A1 " que recibe datos de un" plc cambia de valor >0 llama una macro x esta lo que hace es seleccionar otra celda, hasta ahi todo bien .
Lo que sucede es que no logro que la macros que llama a macros x vea el valor de la celda, aunque la celda cambie de valor no llama a macro x pero si yo ingreso el valor desde el teclado del pc borrando la dirección si ejecuta la macro.
Bueno ahi les dejo la inquietud, gracias y saludos
Lo que sucede es que no logro que la macros que llama a macros x vea el valor de la celda, aunque la celda cambie de valor no llama a macro x pero si yo ingreso el valor desde el teclado del pc borrando la dirección si ejecuta la macro.
Bueno ahi les dejo la inquietud, gracias y saludos
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
Private Sub worksheet_change(ByVal target As Range)
dato = "a1"
If Not Application.Intersect(target, Range(dato)) Is Nothing Then
Call test_1
End If
End Sub
Sub test_1()
If Range("A1") = 1 Then
Range("b1").Select
Range("b1").Copy
End If
If Range("A1") = 2 Then
Range("b2").Select
Range("B2").Copy
End If
If Range("A1") = 3 Then
Range("b3").Select
Range("B3").Copy
End If
If Range("A1") = 4 Then
Range("b4").Select
Range("B4").Copy
End If
If Range("A1") = 5 Then
Range("b5").Select
Range("B5").Copy
End If
If Range("A1") = 6 Then
Range("b6").Select
Range("B6").Copy
End If
End Sub
Valora esta pregunta
0
