Slet række ud fra værdi i celle

Ret  =3333 til = Range("F1").Value

Så du opretter simpelthen to spm?

# kim1a
Mon ikke det er en ny tilpasset, til at fortryde forrige kode ;-)

Det har jeg svært ved at se, det er din kode hvor han har erstattet den variable værdi med et tal.

Sub IndsaetRaekke()
SidsteRække = Range("B" & Rows.Count).End(xlUp).Row
    For Rk = SidsteRække To 6 Step -1
        If Range("B" & Rk) = Range("A1") Then
            Rows(Rk + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Rows(2).Copy Destination:=Rows(Rk + 1)
        End If
    Next Rk
End Sub

Sub SletRaekke()
SidsteRække = Range("B" & Rows.Count).End(xlUp).Row
    For Rk = SidsteRække To 2 Step -1
        If Range("B" & Rk).Value = Range("F1") Then
            Rows(Rk).Delete shift:=xlUp
        End If
    Next Rk
End Sub

Mange tak for hjælpen store-morten

Hej igen
Er det muligt af makroen IndaetRaekke kan søge efter rækker der indeholder værdien fra A1 og B1?

Jeg har løst det med denne
Sub Makro5()
    Rows("2:2").Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Hej
Hvordan kan jeg begrænse denne til linje 7-100?
Sub IndsaetRaekke()
SidsteRække = Range("B" & Rows.Count).End(xlUp).Row
    For Rk = SidsteRække To 6 Step -1
        If Range("B" & Rk) = Range("A1") Then
            Rows(Rk + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Rows(2).Copy Destination:=Rows(Rk + 1)
        End If
    Next Rk
End Sub

"Hvordan kan jeg begrænse denne til linje 7-100?"

Mange tak store-morten, du er en knag