Error 9 en tiempo de ejecucion subindice de intervalo
Publicado por Carlos (1 intervención) el 12/02/2018 21:06:02
al momento de hacer la busqueda me sale el siguiente error 9 en tiempo de ejecucion
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If TxtFolio <> "" And TxtNombres = "" And TxtCedula = "" And TxtApellidos = "" Then
Cells.Find(TxtFolio, After:=[A2], SearchOrde:=x1ByColumns).Activate " Aqui se produce el error"
With Selection
TxtFolio = .Offset(, 1)
TxtCedula = .Offset(, 2)
TxtNombres = .Offset(, 3)
TxtApellidos = .Offset(, 4)
End With
Selection.Offset(, 1).Select
Range(Selection, Selection.Columns(4)).Interior.Color = 49407
Valora esta pregunta
0
