Auteur Topic: EntireRow.Delete (gelezen 6492 keer)

Sunnybat · « **Reactie #15 Gepost op:** 07 december 2023, 14:51:37 »

@Della Jordan

Klopt

super bedankt

Della Jordan · « **Reactie #16 Gepost op:** 07 december 2023, 14:56:49 »

Is het probleem opgelost?

Haije · « **Reactie #17 Gepost op:** 07 december 2023, 16:59:35 »

ZO wellicht?

Code: [Selecteer]

Sub Methode1()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "A") Like "*RG*" Then
             If .Cells(i, "A") Like "*TRGC*" Then Next i
            .Cells(i, "A").EntireRow.Delete
        End If
        Next i
End With
End Sub

SoftAid · « **Reactie #18 Gepost op:** 07 december 2023, 17:13:15 »

halllo Haije,

dank om nog steeds mee te denken.

Ik vermoed dat TS "TRGC" enkel als voorbeeld gebruikt heeft, en niet echt een criterium is.

Citaat van: Sunnybat op 07 december 2023, 14:44:38

....alles wat met RG begint mag weg en...al de rest mag blijven ....

Zoals we nu in #12 zien wordt dit opgelost door:

Code: [Selecteer]

If .Cells(i, "V") Like "RG*" Then .Cells(i, "V").EntireRow.Delete = RG & wildcards

Dit lijkt bevestigd te worden door TS in #15

Groeten, en dank voor het helpen

SoftAid

Sunnybat · « **Reactie #19 Gepost op:** 07 december 2023, 18:18:05 »

@Haije

helaas krijg ik een fout melding

@SoftAid

TRGC regels komen ook voor

Alvast super bedankt

SoftAid · « **Reactie #20 Gepost op:** 07 december 2023, 18:54:31 »

Hallo Sunnybat,

na de eerste End IF nog een tweede End If (op een volgende regel ) invoeren.

SoftAid

Sunnybat · « **Reactie #21 Gepost op:** 07 december 2023, 19:16:38 »

@SoftAid

Helaas

SoftAid · « **Reactie #22 Gepost op:** 07 december 2023, 20:20:28 »

Citaat van: Sunnybat op 07 december 2023, 19:16:38

@SoftAid

Helaas

plaats de nieuwe code nog eens, geen afbeelding maar copiëren en plakken.

SoftAid

SoftAid · « **Reactie #23 Gepost op:** 07 december 2023, 21:28:52 »

Citaat van: Sunnybat op 07 december 2023, 19:16:38

@SoftAid

Helaas

Sunnybat, "Helaas" helpt ons en jou niet verder. Probeer eens uit te leggen WAT er helaas aan is???

SoftAid

Sunnybat · « **Reactie #24 Gepost op:** 08 december 2023, 05:53:57 »

@Softaid
zoals ik het lees wat u zegt

Code: [Selecteer]

Sub Methode1()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "A") Like "*RG*" Then
             If .Cells(i, "A") Like "*TRGC*" Then Next i
            .Cells(i, "A").EntireRow.Delete
        End if
        End If
        Next i
End With
End Sub

Montagnard · « **Reactie #25 Gepost op:** 08 december 2023, 08:51:04 »

Goedemorgen,
In de veronderstelling dat de ganse rij ENKEL moet verwijderd worden als een cel BEGINT met "RG" :

Code: [Selecteer]

Sub Methode1()
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
     teverwijderen = .Cells(i, "a")
     If Left$(teverwijderen, 2) = "RG" Then
        .Cells(i, "A").EntireRow.Delete
            End If
    Next i
End With
End Sub

Mvg,
Montagnard.

Sunnybat · « **Reactie #26 Gepost op:** 08 december 2023, 10:14:49 »

@Montagnard

precies wat ik zocht
Super bedankt $_/-\o_$

@Della Jordan ,Haije, SoftAid

Jullie ook super bedankt

Help!

Menu

Hulp bij posten

Zoeken

Recente topics