Hoi,
ik had een klein vraagje
van SoftAid had ik dit al gekregen en werkt perfect
Sub Methode1()
 
Dim I As Long
With ActiveWorkbook.Sheets(1)
     For I = 100000 To 1 step -1
        If .Cells(I, “C”) = “x” Then
            .Cells(I, “C”).EntireRow.Delete
        End If
‘-------------------------------------------------
        If .Cells(I, “C”) = “z” Then
            .Cells(I, “C”).EntireRow.Delete
        End If
‘------------------------------------------------
   Next i
End With
End Sub

en van RedHead deze

Sub Methode2()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 100000 To 1 Step -1
        If Ucase(.Cells(i, "C")) = "X" Or Ucase(.Cells(i, "C")) = "Z" Then
            .Cells(i, "C").EntireRow.Delete
        End If
   Next i
End With
End Sub

Allebei werken perfect maar deze verwijderd regels waar de waarde voorkomt
nu is de vraag kan het ook met een complete Rij
dus als in B1 tekst staat die ik niet nodig heb deze helemaal verwijderd wordt? dus heel Rij B1:B100
PS dus eigenlijk heel Rij B

Alvast super bedankt

Sunnybat,

Montagnard heeft volkomen gelijk ivm jou aanduiding van rijen en kolommen.
Ik heb deze wisseling ook al opgemerkt in jou vragen en reacties.
Soms spreek je zelfs van cel A. Dat is dus even een aandachtspuntje 

Nu, om je een hint te geven om je probleem zelf op te lossen:

Je kan een deel van een kolom aanduiden door: "A1:A100"
Wil je daarentegen de Hele kolom bewerken, dan gebruik je gewoon "A:A", "B:B", enz....

Groet,

SoftAid              

.....dus als in kolom B1 een tekst staat.......

Sunnybat, nu doe je het opnieuw... ?  Kolom B1 bestaat niet.
Het is Kolom B, Rij 1 of cel B1 (dus de cel die kolom B én Rij 1 kruist).

En... die van mij was zeker niet sneller dan de formules van RedHead.
hij heeft 2 loops van mij samengevat in een loop, dus sneller.

Ik zet het opzettelijk in aparte loops, zodat je het kan volgen.
Lees de code, en probeer ze te begrijpen, anders leer je er niets uit.

@SoftAid
je hebt gelijk, maar het snelste is wat jij al voor mijn hebt gemaakt
Nu is het ipv rijen de kolommen.

dus als in kolom B1 een tekst staat die overbodig is moet heel de kolom B weg, maar er zijn meerdere kolommen met een bepaalde tekst dat ligt aan de export

'in 100000 rijen en 28 kolommen zoeken naar "x" en "z" en indien er een gevonden wordt de betreffende kolom verwijderen

Sub Methode_3() 
 
Dim I As Long, Y As Long
With ActiveWorkbook.Sheets(1)
     For Y is 1 to 28                              ' Y is kolom 1 (A), 2 (B), 3 (C), .........28 (Z)
          For I = 100000 To 1 step -1       ' Rij 99999, Rij 99998, Rij 99997 ...... rij 1
        If .Cells(I, Y) = “x” Then              ' Als betreffende cel bvb (1, 2) = x
            .Cells(I, Y).EntireRow.Delete    'dan wordt de volledige rij 1 leeggemaakt
        End If

        If .Cells(I, Y) = “z” Then
            .Cells(I, Y).EntireRow.Delete
        End If
   Next I
Next Y
End With
End Sub
Groeten,

SoftAid              

Dank Arnold, foutje van mij  (Niet getest, gewoon aangepast in het topic.....)

SoftAid              

blij te lezen dat je het zelf hebt kunnen in orde brengen en dat het werkt ! graag gedaan 
Mvg,
Arnold.

Beetje stoeien en lezen en goed kijken werkt het eindelijk.
Meteen Ucase en Lcase aangepast

Code: [Selecteer]

Sub Methode2()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 100000 To 1 Step -1
        If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then
            .Cells(i, "C").EntireColumn.Delete
        End If
   Next i
End With
End Sub


Sunnybat,

@Montagnard

beetje onduidelijk geweest sorry
dus als in kolom B1 een tekst staat die overbodig is moet heel de kolom B weg, maar er zijn meerdere kolommen met een bepaalde tekst dat ligt aan de export

@SoftAid
je hebt gelijk maar het snelste is wat jij al voor mijn hebt gemaakt
nu is het ipv rijen de kolommen

Nu heb je de code van Redhead aangepast, waar geen rekening gehouden word met meerdere kolommen, alleen met kolom C
En die UCase-en LCase verwisselen heeft geen zin als je voor beide zoekt op de x (of X)
Dan kan je UCase en LCase ook weglaten. (Ucase = Hoofdletter; LCase =  kleine letter)

Wees eens duidelijk aub...

SoftAid              

Sunnybat,

maak dan eens een opsomming van wat je wel wil.
- Kolommen of rijen
- Welke kolommen (of welke rijen) verwijderen.
- Op welke tekens (x, X, z, Z) de macro moet reageren.

SoftAid              

Sunnybat,

Je hebt cellen gemarkeerd, maar je bedoeld waarschijnlijk de cellen in de (gemarkeerde) kolommen, niet?

SoftAid