*

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 »
Citaat van: Sunnybat op Gisteren om 19:16:38
@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 »
Citaat van: Sunnybat op Gisteren om 19:16:38
@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.
Citaat van: Sunnybat op Gisteren om 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  :thumbsup:

:) SoftAid :)             
7
Excel / Re: EntireRow.Delete
« Laatste bericht door Haije Gepost op Gisteren om 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
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