Loop problems

[Beginner1200]

I am whacking to get the code working but only semi. It seems it only goto A6 and not through until A100... I have tried a lot to get in to work!
but nothing will dot as i want it to do. I hope i can get some help to fix my issue

A1 = 100
A2 = 200
A3 = 300
A4 = 400
A5 = 500
A6 = 600
A7.... A100

Sub SelectingEitherLine1OrLine2()

    Dim cell As Range

    For Each cell In Range("A6:A100")
       
        If cell.Value <> 300 Then GoTo Line2 Else: GoTo Line1
Line2:
        cell.Offset(1).EntireRow.Insert
        cell.Offset(1) = 300
        Exit For
    Next cell
Line1:
End Sub

 

[Peter_SSs]

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

1. It looks to me like you want to go through the range A6:A100 and if the cell is not 118 then insert a row below and put 118 in that new row.
   Is that correct?
   
   
2. I assume that if any cells are blank that you do not want to insert a new row for those ones.
   Is that correct?
   
   
3. So, if your original data was like the first sheet below then you would want the code to make the sheet look like the second sheet below.
   Is that correct?

Blue cells are the original data, green cells are the cells to be inserted by the code

Beginner1200.xlsm
	A
6	100
7	118
8	155
9	3
10	118
11	118
12	118
13	20
14	65
Sheet2

Beginner1200.xlsm
	A
6	100
7	118
8	118
9	155
10	118
11	3
12	118
13	118
14	118
15	118
16	20
17	118
18	65
19	118
Sheet2

If the above is not what you want, then please post two small mini sheets like this with "before" and "after" layouts

 

[Beginner1200]

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

1. It looks to me like you want to go through the range A6:A100 and if the cell is not 118 then insert a row below and put 118 in that new row.
   Is that correct?
   
   
2. I assume that if any cells are blank that you do not want to insert a new row for those ones.
   Is that correct?
   
   
3. So, if your original data was like the first sheet below then you would want the code to make the sheet look like the second sheet below.
   Is that correct?

Blue cells are the original data, green cells are the cells to be inserted by the code

Beginner1200.xlsm
	A
6	100
7	118
8	155
9	3
10	118
11	118
12	118
13	20
14	65
Sheet2

Beginner1200.xlsm
	A
6	100
7	118
8	118
9	155
10	118
11	3
12	118
13	118
14	118
15	118
16	20
17	118
18	65
19	118
Sheet2

If the above is not what you want, then please post two small mini sheets like this with "before" and "after" layouts

Hi Peter

You´re correct on 1 & 2 - please see below.
Hope I got i right ?

Lars

Original before



My code

 

[Beginner1200]

Sub SelectingEitherLine1OrLine2()

    Dim cell As Range

    For Each cell In Range("A9")
        
        If cell.value <> 300 Then GoTo Line2 Else: GoTo Line1
Line2:
        cell.Offset(1).EntireRow.Insert
        cell.Offset(1) = 301
        Exit For
    Next cell
Line1:
End Sub

 

[Peter_SSs]

You´re correct on 1 & 2 -

In that case use the code from post #7 but use 118 instead of 300

Sub Test2()
  Dim i As Long
  
  For i = 100 To 6 Step -1
    If Len(Range("A" & i).Value) > 0 And Range("A" & i).Value <> 118 Then
      Rows(i + 1).Insert
      Range("A" & i + 1).Value = 118
    End If
  Next i
End Sub

Before

Beginner1200.xlsm
	A
6	100
7	118
8	155
9	3
10	118
11	118
12	118
13	20
14	65
15
16
17
18
19
20
Sheet3

After

Beginner1200.xlsm
	A
6	100
7	118
8	118
9	155
10	118
11	3
12	118
13	118
14	118
15	118
16	20
17	118
18	65
19	118
20
Sheet3

 

[Beginner1200]

Hi Peter (update)

I figured it out in my own way! Thanks a lot for your input! You gave me an different approach to look on it.

Sub SelectingEitherLine1OrLineDone()

    Dim foundRng As Range
    Set foundRng = Range("A6:A14").Find("705")
    
    If foundRng Is Nothing Then GoTo Line2 Else: GoTo Line1
    
Line2:
        Range("A6").Offset(1).EntireRow.Insert
        Range("A6").Offset(1) = 705
Line1:
End Sub

 

[Peter_SSs]

Glad you have something that you want. The only thing is that the code seems to have nothing to do with the thread title (Loop problems) as there is no looping at all involved, nor what you described earlier

I need to loop through the whole range of cells, finding ex number 100

I would also comment that using coding like GoTo Line1 is very old-fashioned and there are usually much easier ways to do the same thing.
For example, this will do exactly the same thing as your code from post 15 but in a much more streamlined way.

Sub Example1()
    Dim foundRng As Range
    Set foundRng = Range("A6:A14").Find("705")
    
    If foundRng Is Nothing Then
        Range("A6").Offset(1).EntireRow.Insert
        Range("A6").Offset(1) = 705
    End If
End Sub

If you were going to put any code after Line1: in your code then it would be like this.

Sub Example2()
    Dim foundRng As Range
    Set foundRng = Range("A6:A14").Find("705")
    
    If foundRng Is Nothing Then
      Range("A6").Offset(1).EntireRow.Insert
      Range("A6").Offset(1) = 705
    Else
      'Do here what would have followed after Line1: in your other code
    End If
End Sub