indsæt 3 linjer efter værdi i kolone

det er lidt uklart om der også skal stå John i A ved Hansen
for at der skal indsættes nye rækker (denne gør)

Sub test()
rk = Cells(65535, 1).End(xlUp).Row
For t = 1 To rk
If Cells(t, "A") = "John" And Cells(t, "B") = "Hansen" Then
For s = 1 To rk
If Cells(s, "B") = "Smith" Then l = s + 1
Next
Range("A" & l).Resize(3, 1).EntireRow.Insert
End If
Next
End Sub

Nej det er hvis der ikke står smith i kolone B navne er frit taget

så koden skal gennemløbe alle celler i kolonne B
hvis der ikke står Smith så skal der indsættes 3
nye rækker under den sidste Smith ?

Ja det var lige det

Hvis der i kolonne står flg.
B1= Smith
B2= Smith
B3= Hansen
Så skal der 3 nye linjer ind mellem B2 og B3

prøv:

Sub test()
rk = Cells(65535, 1).End(xlUp).Row
For t = rk To 2 Step -1
If Cells(t, "B") <> "Smith" And Cells(t, "B").Offset(-1, 0) = "Smith" And Cells(t, "B") <> "" Then
Range("A" & t).Resize(3, 1).EntireRow.Insert
End If
Next
End Sub

Den kan jeg ikke helt få til at køre, jeg har skrevet smith i B1 til B3, og Hansen i B4. Men jeg kan ikke helt få den til.
Jeg har den i "Sheet 1"
Jeg ville gerne kalde den med en kanp på arket, har prøvet at kalle den med assing makro,mmen intet sker

Indsæt denne som linie 2 (check ark-navn)
Sheets("Sheet1").Activate

koden indsætter 3 nye række under B3 i eks. 10:37:37
række med Hansen flyttes tilsvarende 3 rækker ned

Er det sådan her du mener:
Sub test()
rk = Cells(65535, 1).End(xlUp).Row
Sheets("Sheet1").Activate
For t = rk To 2 Step -1
If Cells(t, "B") <> "Smith" And Cells(t, "B").Offset(-1, 0) = "Smith" And Cells(t, "B") <> "" Then
Range("A" & t).Resize(3, 1).EntireRow.Insert
End If
Next
End Sub
Sikkert forkert, for jeg får det stadig ikke til.

den skal lige en linie op

hvis dit ark er aktiv når du kører koden behøves linien ikke

ellers prøv min eks.fil

http://pmexcelent.dk/Krohn.xls

ang. en knap:

højreklik oppe i værktøjslinien
vælg Formularer i menuen
træk en knap ud på arket
assign den til makroen test

Super, jeg havde "bare" lagt den forkert..
Lægger du et svar?

ok