Sub Main()
For n = 1 To fg2.Rows – 1
If clEmpty(fg2.TextMatrix(n, 0)) Then
Exit For
End If
If UCase(Trim(fg2.TextMatrix(n, 0))) = “RTELCEL” OR UCase(Trim(fg2.TextMatrix(n, 0))) = “RMOVISTAR” OR _
UCase(Trim(fg2.TextMatrix(n, 0))) = “RIUSACELL” OR UCase(Trim(fg2.TextMatrix(n, 0))) = “RUNEFON” OR _
UCase(Trim(fg2.TextMatrix(n, 0))) = “RNEXTEL” Then
CancelaProceso = True
Exit For
End If
Next
End Sub
.
.
.
COMPRASO10 16:26:20 -2147217900:No hay suficiente memoria disponible en el grupo de búferes. in line 4 Error de sistema: -2147217900 No hay suficiente memoria disponible en el grupo de búferes.