Hej findes der en haj der vil hjælpe.
Jeg har to ark, hvor det ene ark indeholder data (Navne) over hvilke rækker, som skal slette i det andet ark. Hvordan laver jeg noget VBA-kode, så jeg kan få slettet rækkerne i mit Excel-ark?

 

ps. jeg prøvede med denne her men kunne ikke få det til at virke.

 

Sub SletRaekke()
    Dim a As Variant
    For Each c In Sheets(2).Range("a:a").Cells
        If c.Value = "" Then Exit Sub
            a = c.Value
            For Each x In Sheets(1).Range("a:a").Cells
                If x.Value = a Then
                    x.EntireRow.Delete shift:=xlUp
                End If
            Next x
    Next c
End Sub

 

i sheet2 kolonne a er der A2:A300 ville gerne kunne indtaste den tekstbjeg ville slette i en usenform

OK,

Som jeg læser ovenstående, har du en Userform som ved indtastning i et felt, skal slette matchende tekst i området A2:A300

I dette eksempel antager jeg at du indtaster i en Textbox i din Userform, og dennes navn er 'Textbox1' (Du kan ændre dette i linjen: Vaerdien = ?

 

 

 

Super du kunne bruge det.

 

//Allan

 

Mener du: Hvis du taster 'Bo', skal koden så både slette 'Bo' fra sheet1 og fra sheet2 eller?

(jeg laver det så du selv kan styre arknavnene)

 

//Allan

Jeg har måske udtrykket mig forkert.

hvis jeg taster Bo skal den slette Bo fra sheet2. da det er der listen ligger.

 

den du lavede slettede fra min ark1 og ikke sheet2.