Help!

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

Hulp bij posten

Recente topics

Auteur Topic: EntireRow.Delete  (gelezen 6400 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • 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

Online Della Jordan

  • Lid
  • *
  • Berichten: 86
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
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: 196
  • 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.067
  • 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

  • Volledig lid
  • **
  • Berichten: 194
  • 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.067
  • 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

  • Volledig lid
  • **
  • Berichten: 194
  • 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.067
  • 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.067
  • 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

  • Volledig lid
  • **
  • Berichten: 194
  • 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.364
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
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.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
4GB  Samsung 2133MHz
4GB  Samsung 2133MHz
SanDisk SD7SN6S-256G-1006 - 238,47 GB
KINGSTON SA400S37480G - 447,13 GB
2 x Externe HD 4TB
AV: Windows Defender
FW: Windows Firewal

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 194
  • 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