Cómo salir de un If tras encontrar la 1ª coincidencia?
Publicado por celia (437 intervenciones) el 04/12/2020 10:23:33
Hola buenas
Se puede hacer que cuando el código encuentre la 1ª coincidencia salga del If y no siga buscando en bucle, como en la foto, hasta terminar de buscar en todo el rango de búsqueda definido?
Los valores que se buscan son únicos por lo que no es necesario que siga buscando tras encontrar una coincidencia
Muchas gracias

Se puede hacer que cuando el código encuentre la 1ª coincidencia salga del If y no siga buscando en bucle, como en la foto, hasta terminar de buscar en todo el rango de búsqueda definido?
Los valores que se buscan son únicos por lo que no es necesario que siga buscando tras encontrar una coincidencia
Muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("r4").Value <> "z23" Then
Application.EnableEvents = False
Range("r4:AS17").Clear
Texto = Cells(23, 26)
For Fil = 42 To 126 Step 10
For Col = 37 To 93 Step 10
If Texto = Cells(Fil, Col) Then
Range(Cells(Fil, Col), Cells((Fil + 12), (Col + 11))).Select
Selection.Copy
Range("r4").Select
ActiveSheet.Paste
Range("b5").Select
End If
Next
Next
End If
End Sub

Valora esta pregunta


0