Macro letter b toevoegen

[kees130]

Goedemorgen beste experts,

Ik heb een macro om tussen de cijfers 5 rijen te plaatsen.
Nou wil ik graag een macro, dat in de 1e, 2e en de 4e rijen van kolom 1 een b plaatst -zie voorbeeld.

Alvast bedankt.

 

[ExcelAmateur]

kees130,

Ik heb een macro om tussen de cijfers 5 rijen te plaatsen.

Waar zit je macro verstopt in het bestandje?

 

[kees130]

Excuses, bestand is aangepast.

 

[koster1984]

Probeer deze eens:

Sub kstr()
Dim it As Range, i As Long, t As Variant
t = "b"
For Each it In Sheets(1).Range("A:A")
    If Not it = "" And Not it = t Then
        For i = 1 To 5
            With it
                .Offset(i).EntireRow.Insert
                If i = 1 Or i = 2 Or i = 4 Then
                    .Offset(i) = t
                End If
            End With
        Next i
    End If
Next
End Sub

 

[kees130]

Probeer deze eens:

Sub kstr()
Dim it As Range, i As Long, t As Variant
t = "b"
For Each it In Sheets(1).Range("A:A")
    If Not it = "" And Not it = t Then
        For i = 1 To 5
            With it
                .Offset(i).EntireRow.Insert
                If i = 1 Or i = 2 Or i = 4 Then
                    .Offset(i) = t
                End If
            End With
        Next i
    End If
Next
End Sub

Bedankt voor je reactie Daniel, je hebt hem goed in elkaar gezet.
Kan de macro ook stoppen nadat laatste regel is voldaan?

 

[koster1984]

Zo bedoel je?

Sub kstr()
Dim it As Range, i As Long, t As Variant
t = "b"
[COLOR="#FF0000"]For Each it In Sheets(1).Range("A1:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)[/COLOR]
    If Not it = "" And Not it = t Then
        For i = 1 To 5
            With it
                .Offset(i).EntireRow.Insert
                If i = 1 Or i = 2 Or i = 4 Then
                    .Offset(i) = t
                End If
            End With
        Next i
    End If
Next
End Sub

 

[kees130]

Zo bedoel je?

Sub kstr()
Dim it As Range, i As Long, t As Variant
t = "b"
[COLOR="#FF0000"]For Each it In Sheets(1).Range("A1:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)[/COLOR]
    If Not it = "" And Not it = t Then
        For i = 1 To 5
            With it
                .Offset(i).EntireRow.Insert
                If i = 1 Or i = 2 Or i = 4 Then
                    .Offset(i) = t
                End If
            End With
        Next i
    End If
Next
End Sub

Dat is hem helamaal!

Hartstikke bedankt.