How to run loop for only one task

[mtbthepro]

I have this code, which inserts "Department 75" in a cell if criteria is met but the problem is that the macro is applied to all lines that meet the criteria which is if rows contain "Source Total" insert row another row and insert value "Department 75". Is there a way that this macro only applies to just the one/first line that meets criteria.

       For n = nlast To 1 Step -1                             If Sht.Cells(n, "C").Value = "Source Total==>" Then
                             Sht.Cells(n, "A").EntireRow.Offset(1).Insert
                             Sht.Cells(n, "A").Offset(1).Value = "Department 75"
                        End If
                             Next n

 

[Llupo01]

Hello,

just put exit sub statement after your action:

 For n = nlast To 1 Step -1                             If Sht.Cells(n, "C").Value = "Source Total==>" Then
                             Sht.Cells(n, "A").EntireRow.Offset(1).Insert
                             Sht.Cells(n, "A").Offset(1).Value = "Department 75"
                             Exit Sub
                        End If
                             Next n

 

[mtbthepro]

Hello,

just put exit sub statement after your action:

 For n = nlast To 1 Step -1                             If Sht.Cells(n, "C").Value = "Source Total==>" Then
                             Sht.Cells(n, "A").EntireRow.Offset(1).Insert
                             Sht.Cells(n, "A").Offset(1).Value = "Department 75"
                             Exit Sub
                        End If
                             Next n

It didn't work, it is still inserting "Department 75" IN OTHER PLACES

 

[Llupo01]

not possible there must be something what triggers subroutine again ... do you have another part of code when cell value changed, or something else like that?

 

[mtbthepro]

not possible there must be something what triggers subroutine again ... do you have another part of code when cell value changed, or something else like that?

Lol yes, you are right. Something was triggering it. It works perfect. Thank you.

 

[Llupo01]

you are very welcome have a nice day/night/anything you have now

 

[mtbthepro]

you are very welcome have a nice day/night/anything you have now

Will do.