Help!

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

Hulp bij posten

Recente topics

Recente berichten

Pagina's: [1] 2 3 ... 10
1
Excel / Re: EntireRow.Delete
« Laatste bericht door SoftAid Gepost op Gisteren om 21:28:52 »
@SoftAid

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

:) SoftAid :)             
2
Excel / Re: EntireRow.Delete
« Laatste bericht door SoftAid Gepost op Gisteren om 20:20:28 »
@SoftAid

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

:) SoftAid :)             
3
Excel / Re: EntireRow.Delete
« Laatste bericht door Sunnybat Gepost op Gisteren om 19:16:38 »
@SoftAid

Helaas
4
Excel / Re: EntireRow.Delete
« Laatste bericht door SoftAid Gepost op Gisteren om 18:54:31 »
Hallo Sunnybat,

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

:) SoftAid :)             
5
Excel / Re: EntireRow.Delete
« Laatste bericht door Sunnybat Gepost op Gisteren om 18:18:05 »
@Haije

helaas krijg ik een fout melding

@SoftAid

TRGC regels komen ook voor

Alvast super bedankt



6
Excel / Re: EntireRow.Delete
« Laatste bericht door SoftAid Gepost op Gisteren om 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 :)             
7
Excel / Re: EntireRow.Delete
« Laatste bericht door Haije Gepost op Gisteren om 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
8
Excel / Re: EntireRow.Delete
« Laatste bericht door Della Jordan Gepost op Gisteren om 14:56:49 »
Is het probleem opgelost?
9
Excel / Re: EntireRow.Delete
« Laatste bericht door Sunnybat Gepost op Gisteren om 14:51:37 »
@Della Jordan

 :-[ Klopt

super bedankt
10
Excel / Re: EntireRow.Delete
« Laatste bericht door Della Jordan Gepost op Gisteren om 14:47:28 »
Citaat
alles wat met RG begint mag weg
Zie postje#12
Pagina's: [1] 2 3 ... 10


www.combell.com