Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: EntireRow.Delete  (gelezen 7052 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #15 Gepost op: 07 december 2023, 14:51:37 »
@Della Jordan

 :-[ Klopt

super bedankt
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: EntireRow.Delete
« Reactie #16 Gepost op: 07 december 2023, 14:56:49 »
Is het probleem opgelost?
Groetjes,Della

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 226
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #17 Gepost op: 07 december 2023, 16:59:35 »
ZO wellicht?
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
|-|aije

ik gebruik Office 2016 Professional Plus

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.351
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« 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.
....alles wat met RG begint mag weg en...al de rest mag blijven ....
Zoals we nu in #12 zien wordt dit opgelost door:
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  :thumbsup:

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« 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



Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.351
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #21 Gepost op: 07 december 2023, 19:16:38 »
@SoftAid

Helaas
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.351
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« Reactie #22 Gepost op: 07 december 2023, 20:20:28 »
@SoftAid

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

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.351
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« Reactie #23 Gepost op: 07 december 2023, 21:28:52 »
@SoftAid

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

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #24 Gepost op: 08 december 2023, 05:53:57 »
@Softaid
zoals ik het lees wat u zegt

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
Excel 365 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
Re: EntireRow.Delete
« 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" :

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.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #26 Gepost op: 08 december 2023, 10:14:49 »
@Montagnard

 :thumbsup: precies wat ik zocht
Super bedankt _/-\o_

@Della Jordan ,Haije, SoftAid

Jullie ook super bedankt
Excel 365 NL

 


www.combell.com