Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 12-17-2023, 09:00 PM
soroush.kalantari soroush.kalantari is offline Windows 10 Office 2021
Competent Performer
 
Join Date: Jun 2021
Posts: 115
soroush.kalantari is on a distinguished road
Default “Error handler process” in a “for loop”

I want to use “error handler process” in a “for loop” such that if the condition defined for the loop is not met, the macro increases i(the variable defined for loop) by 1 unit and get back to beginning of the loop .
Consider following macro, if it get “run time error” at i=4, I expect that it continue at i=5.
As the Excel attachment shows, this code dose not work as I expect and stop as i=4 with “run time” error.
Can you give me some guides on this issue?

Option Explicit
Sub forlloop()
Dim cell0 As Range
Dim i As Integer
Dim n As Integer


Dim j As Integer
'MsgBox Selection.Font.ThemeColor
On Error GoTo I_handle_error
Set cell0 = Cells(1, 1)
n = 45
For i = 0 To ActiveSheet.Range("A1").SpecialCells(xlCellTypeLas tCell).Row - 1
a:
cell0.Offset(i).Select
If Selection.Value = "total" Then
cell0.Offset(i, n - 1).Value = "end"
ElseIf Selection.Font.ThemeColor = xlThemeColorDark1 Then
cell0.Offset(i, n - 1).Value = "beg"
End If
Next i
Exit Sub
I_handle_error:
i = i + 1
GoTo a

End Sub
Attached Files
File Type: xlsm ForLoop.xlsm (28.5 KB, 0 views)
Reply With Quote
 

Tags
error handler



Similar Threads
Thread Thread Starter Forum Replies Last Post
error handler: inserting building blocks when multiple cells in a table are selected creates error LSLSLS Word VBA 2 01-07-2022 05:46 AM
Error Handler If User Does Not Want to Overwrite File ChrisOK Excel Programming 4 04-03-2020 08:31 PM
Process Automation saurabhlotankar Excel Programming 10 06-03-2015 05:50 PM
How to Control Worksheet Event Handler in Module? tinfanide Excel Programming 2 10-19-2014 09:46 AM
'Infinite Loop' error with Infopath 2010 Debbie25 Misc 2 05-18-2011 08:38 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:29 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft