Gennemse række og kolonne og slet dem med "x"

Jeg skal vist uddybe lidt: Når en række gennemses, og der findes en celle med "x", så den kolonne cellen er i slettes. Når en kolonne gennemses, og der findes en celle med "x", skal den række cellen er i slettes.

Altså hvis du har

---A---B---C---d
1--b-------X---0
2--C---C---F----
3--X---D---P---Y
4--X---F---Y---Z

så skal kolonne aog c samt række 1, 3 og 4 slettes?

Hej jkrons. Kolonne C skal slettes fordi det står et x i C1. Og række 3 og 4 skal slettes fordi der står et X i A3 og A4 :). Række 1 skal IKKE slettes, og kolonne A skal IKKE slettes.

I dit eksempel gennemses der så kun fra B1 til fx XX1 og slette kolonner der hvor der er x'er. OG der gennemses fra A2 til fx A1000 og slettes rækker der hvor der er x'er. På den måde undgås, at kontrolkolonnen og -rækken slettes (A og 1).

Så er jeg ikke med. Der står jo også X i A-kolonnen,og i række 1, så hvorfor skal de ikke slettes?

Jeg har ikke forklaret mig ordentligt så, det er jeg ked af :(. Der er et dynamisk område under række 1 og efter kolonne A, hvor der indsættes nye rækker og kolonner. Disse skal så kunne slettes igen, ved at man i række 1 og kolonne A sætter et x, og trykker på en knap. Så søger koden efter x'er i kolonne A, og sletter rækkerne under række 1, og tilsvarende søger koden efter x'er i række 1, og sletter kolonner efter kolonne A. Er det bedre forklaret?

Det kunne være noget i stil med dette!: http://www.eksperten.dk/spm/548572

Prøv denne (men i en kopi først :-))

Sub FindXogSlet()
    'Sletter rækker vor første kolonne indeholder "x" og
    'kolonner, hvor første række indeholder "x"

    Dim nr As Long
    Dim nc As String
    Dim ncn As Integer
       
    Application.ScreenUpdating = False
   
    nc = Sheets(1).Range("iv1").End(xlToLeft).Address
    nc = Mid(nc, 2, Len(nc) - InStrRev(nc, "$"))
    ncn = Sheets(1).Range("iv1").End(xlToLeft).Column
    nr = Sheets(1).Range("a65536").End(xlUp).Row
   
    For i = nr To 2 Step -1
        If UCase(Range("a" & i)) = "X" Then
            Range("a" & i).EntireRow.Delete shift:=xlUp
        End If
    Next i
   
    For h = ncn To 2 Step -1
        If UCase(Cells(1, h).Value) = "X" Then
            Cells(1, h).EntireColumn.Delete shift:=xlRight
        End If
    Next h
   
    Application.ScreenUpdating = True
   
End Sub

Du kan i øvrigt godt slette

Dim nc As String

og de to linjer, der begynder med nc =

Jeg endte med ikke at bruge de to variabler alligevel i den færdige løsning.

Godmorgen :). Tak for koden, jeg prøver at rode med den og vender tilbage!

Jeg skal køre koden i flere sheets (nu 6). Skal jeg bare lave 6 versioner af din kode og indsætte navnene på de respektive sheets i stedet for "1" (Sheets(1)?

Æv, det virker ikke... Jeg har lavet 6 makroer, fx FindxogsletArk1 og så rettet sat arknavnet i stedet for tallet ved Sheets(1). Det er nok ikke den rigtige måde at gøre det på så...?

Kan det være fordi den leder efter value = "x", og mine celler faktisk har en henvisning til en celle i et andet ark: "+Simulering!C62"?

Ja, det kan det meget vel være. Jeg prøver lige at kigge på det.

Men det virker nu fint hos mig, også når x hentes fra et andet ark via en formel. Har du evt. mulighed for at sende arket?

Nå for søren. Ja, selvfølgelig kan jeg sende det - jeg er bare glad for at du vil hjælpe :). Den skulle ligge i din mailbox nu.

Problemet ligger i disse linier i din kode:

If UCase(Range("a" & i)) = "X" Then
If UCase(Cells(1, h).Value) = "X" Then


Du har rettet til et lille "x" i stedet for mit store. Men UCASe af et x er altid stort X. Prøv at ret til stort X, aså skal du bare "se løjer" :-)

I øvrigt kan man godt tilrette makroen, så den kører alle 6 ark igennem i "et hug", hvis det er nemmere.

Ksn et lille x virkelig gøre det?! Jeg prøver med stort X så. Hvordan skal jeg rette den til, hvis det skal køre i eet hug?

Det virker jo fantastisk :). Der er velfortjente point når du svarer - og tak her fra.

Et svar - og velbekomme :-)

Jeg må hellere lige trække i land omkring at få makroen til at køre i alle ark. Den holder desværre ikke alligevel, da arkene jo ikke har samme struktur.

Helt fint. Det er også ok som det er nu :)

Der var jeg lige en tand for hurtig, jkrons. Det er nødvendigt at jeg med tryk på een knap kan udføre alle makroerne, og det går galt for mig. Den udfører kun i arket Simulering... Kan det lade sig gøre at få det til at virke...? Da jeg prøvede det af, kørte jeg makroerne en ad gangen, og der virkede de "fantastisk" :)

Se mit svar til

http://www.eksperten.dk/spm/856169