Bucle for vba saltando errores
Tengo un problema con el código abajo, estoy haciendo una búsqueda con un bucle for y vlookup, en la posición i = 1, hay un resultado correcto, sin embargo en i=2 no hay nada entonces se produce el error 1004 en tiempo de ejecución y el bucle se detiene, quiero que si en i=2 no hay nada ignoré el error y sucesivamente así hasta llegar a i=10, y se cumpla la acción de la condición de si correcto. Gracias de antemano por su ayuda.
Sub BsoloF() Dim fecha, t As String Dim tabla As Range Dim i As Integer i = 1 fecha = Sheets("Rooms").TextBox1.Text For i = i To 10 t = VBA.Format(fecha, "General Number") & i Set tabla = ThisWorkbook.Sheets("Estados").Range("A1:E1000") dispo = Application.WorksheetFunction.VLookup(t, tabla, 4, 0) If dispo = Err.Number = 1004 Then ActiveSheet.OLEObjects("CommandButton" & i).Visible = True ElseIf dispo = "Reservado" Then ActiveSheet.OLEObjects("CommandButton" & i).Visible = False End If Next End Sub
2 Respuestas
Respuesta de James Bond
2
Respuesta de Adriel Ortiz Mangia
Thanks you saludos! - Adriel Ortiz Mangia