Excel - Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

 
Vista:
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

Publicado por celia (437 intervenciones) el 16/11/2020 16:20:35
Buenas

Me gustaría añadir la opción de que si en la celda A1 está la palaba NO se salte todo este código del IF 1º y salte al If 2º
La celda A1 tiene una fórmula sencilla que solo pone "SI" o "NO" según el valor de otra celda

Muchas gracias por adelantado:
Saludos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Application.ScreenUpdating = False
                                                                    ' CÓDIGO del 1º IF
   If Col = 26 And Fil = 23 Then
    Texto = Cells(23, 26)
        For Fil = 42 To 657 Step 14
            For Col = 37 To 121 Step 14
                If Texto = Cells(Fil, Col) Then
                    Range(Cells(Fil, Col), Cells((Fil + 13), (Col + 12))).Select
                    Selection.Copy
                    Range("AG4").Select
                    ActiveSheet.Paste
                End If
            Next
        Next
     End If
 
                                                                    ' CÓDIGO del 2º IF
   If Col = 35.......... etc
       ... etc
  End If
 
End Sub
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
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

Publicado por Andres Leonardo (1583 intervenciones) el 16/11/2020 16:35:31
1
2
3
if range("A1").value <>  "NO"
codigo del if 1
end If

codigo if 2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

Publicado por celia (437 intervenciones) el 16/11/2020 16:59:48
Discúlpa mi torpeza. No sé cómo integrarlo respetando el código
He probado a juntarlo así pero algo hago mal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Application.ScreenUpdating = False
if range("A1").value <> "NO"
' CÓDIGO del 1º IF
If Col = 26 And Fil = 23 Then
Texto = Cells(23, 26)
For Fil = 42 To 657 Step 14
For Col = 37 To 121 Step 14
If Texto = Cells(Fil, Col) Then
Range(Cells(Fil, Col), Cells((Fil + 13), (Col + 12))).Select
Selection.Copy
Range("AG4").Select
ActiveSheet.Paste
End If
Next
Next
End If
end If
 
' CÓDIGO del 2º IF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

Publicado por Andres Leonardo (1583 intervenciones) el 16/11/2020 17:51:18
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Application.ScreenUpdating = False
 ' CÓDIGO del 1º IF
if range("A1").value <> "NO" then
   If Col = 26 And Fil = 23 Then
    Texto = Cells(23, 26)
        For Fil = 42 To 657 Step 14
            For Col = 37 To 121 Step 14
                If Texto = Cells(Fil, Col) Then
                    Range(Cells(Fil, Col), Cells((Fil + 13), (Col + 12))).Select
                    Selection.Copy
                    Range("AG4").Select
                    ActiveSheet.Paste
                End If
            Next
        Next
     End If
 end if
                                                                    ' CÓDIGO del 2º IF
   If Col = 35.......... etc
       ... etc
  End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo saltarse un IF si en la celda A1 tiene la palabra "NO"

Publicado por celia (437 intervenciones) el 16/11/2020 17:58:20
Va perfecto !!

Mil gracias por tu paciencia

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar