Formato texto imagenes
Publicado por Milton (2 intervenciones) el 13/10/2018 03:09:24
Saludos me pueden ayudar muy comedidamente con la siguiente macro: mediante esta macro solo funciona cuando en la celda A1 ingreso manualmente al valor ya sea 1 o 0, lo que necesito es que en la celda A1 el valor venga de una formula de la celda B5.
Otra situación es cuando se ejecuta con 1 salta a la celda E7 y cuando se ejecuta con 0 salta a la celda B14, lo que deseo es que no salte ni seleccione ninguna celda.
La hoja la he protegido con una contraseña "X".
Favor analizar esta macro que he logrado
Otra situación es cuando se ejecuta con 1 salta a la celda E7 y cuando se ejecuta con 0 salta a la celda B14, lo que deseo es que no salte ni seleccione ninguna celda.
La hoja la he protegido con una contraseña "X".
Favor analizar esta macro que he logrado
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)
ActiveSheet.Unprotect "X"
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1").Value = 1 Then
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Font.ColorIndex = 0
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Font.ColorIndex = 0
Range("C7").Select
ActiveSheet.Shapes("Line 3").Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoTrue
ActiveSheet.Protect "X"
Else
If Range("A1").Value = 0 Then
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Font.ColorIndex = 2
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Font.ColorIndex = 2
Range("B14").Select
ActiveSheet.Shapes("Line 3").Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
Selection.ShapeRange.Line.Visible = msoTrue
ActiveSheet.Protect "X"
End If
End If
End If
End Sub
Valora esta pregunta
0
