de zaterdag en zondag geheel verwijderen

[ewh]

we hebben een export ebstand van een auto ritten systeem.
hier staan natuurlijk ook de zaterdag en zondag in. deze willen we niet zien en mogen worden verwijderd
het probleem is dat er soms zondags en/of zaterdags niet wordt gereden dus we moeten iets in de trant van
kolom B zoek de zaterdag en vervolgens de maandag en alle regels er tussen verwijderen
als de zaterdag er niet is dan van zondag tot maandag

ben al weer ff aan het puzzelen maar het lukt niet echt
wie kan helpen ?

in de bijlage een klein stukje van het bestand

 

[HSV]

Sub hsv()
Dim i As Long, rng As Range, Tb As Range
 For i = 1 To Columns(3).SpecialCells(2).Areas.Count
   Set rng = Columns(3).SpecialCells(2).Areas(i)
  If Weekday(rng.Cells(1).Offset(-1, -2), 2) > 5 Then
      If Tb Is Nothing Then
        Set Tb = rng.Offset(-1, -2).Resize(rng.Rows.Count + 1)
      Else
        Set Tb = Union(Tb, rng.Offset(-1, -2).Resize(rng.Rows.Count + 1))
      End If
  End If
 Next i
If Not Tb Is Nothing Then Tb.EntireRow.Delete
End Sub

 

[oeldere]

e5 = =ALS(ISGETAL(A5)=WAAR;E4;ALS(WEEKDAG(A5;2)>=6;"verwijderen";""))

en vervolgens filter op verwijderen en verwijder deze rijen.

zie het bijgevoegde bestandje.

 

[ewh]

HSV, op deze code was ik nooit gekomen , ff snel een testje gedaan en in het voorbeeld werkt hij prima . Doch als de zondag er bij gezet wordt komt hij in een loopteregt.
het kan zijn dat of alleen de zaterdag er staat of de zondag of beide

oeldere, op de zondag werkt hij niet ?

 

[HSV]

Er staan een aantal zaterdagen en zondagen in het bestand die allemaal verdwijnen.
Waar het fout gaat bij jou kan ik hier vandaan niet zien.

 

[oeldere]

@EWH

Heb je het bestand getest en zo ja wat was hiervan de uitkomst?

Ik heb een zondag toegevoegd en dit werkt als verwacht.

Zie de bijlage.

 

[ewh]

HSV mijn voorkeur gaat uit naar de oplossing die jij hebt aangeboden ,maar ik krijg een foutmelding op deze regel
If Weekday(rng.Cells(1).Offset(-1, -2), 2) > 5 Then ( type komt niet overeen)

weet jij wat dat is ?

 

[HSV]

Is dat in het bestand dat ik heb geplaatst, of in je eigen bestand?

 

[ewh]

HSV

in het bestand wat jij hebt geplaatst werkt het perfect
in mijn bestand niet
het enige verschil ( de data is het zelfde om de adres namen na ) is dat er nog een blad is "import" maar daar gebeurd niets, qua VBA ofzo

 

[Ginger]

Gokje... Datum is géén datum maar een tekst...

 

[ewh]

HSV

ik heb wat egvonden
in mijn sheet is kolom A allemaal "standaard" cellen terwijl in het voorbeeld sheet de datum velden ook "datum" eigenschap hebben

wel vreemd want in het blad "import" maak ik een kopie met vba en haal daar verschillende kolomen weg en plak de data dan in Blad 1
het voorbeeld bestandje heb ik ook gekopieerd van Blad 1 naar het voorbeeld bestandje en u zijn de cel eigenschappen wel datum geworden

nu de ham vraag hoe krijg ik de cellen waar een leesbare datum in staat als celeigenschap "datum"

ik ga eens puzzelen , als je een idee hebt dan hoor ik het graag

 

[ewh]

Gokje... Datum is géén datum maar een tekst...

Ginger goed gegokt

 

[ewh]

Heren,
het klopt de datum staat als een tekstveld waardoor de code van HSV niet werkt.
ik heb geprobeerd de tekstveld om te zetten naar een datum veld ( met vba ) maar het lukt me maar niet
als ik in de formule balk kijk en daar het eerste teken weg haal gaat het prima , maar hoe doe je dat met VBA
Na 6 uurtjes hobbyen moet ik tot de conclusie komen dat ik nog niet veel van VBA door heb , dus graag hulp

 

[HSV]

En wat voor teken staat er voor?

 

[ewh]

in de formule balk zie ik er geen teken voor staan, maar als ik in de formule balk ga staat geheel aan het begin en ik gebruik de toets backspace dan gaat alles goed en wordt de getal notatie een datumveld en werkt je formule ook prima

het zijn 1500 regels

 

[HSV]

Heb je daar een voorbeeldje van?

 

[ewh]

test bestandje

dit is het originele bestand , wel de adressen weg gehaald
op blad import staan de gegevens die we gekopieerd hebben van uit een export file van trackjack . op bld1 staat rechts boven een blauwe button waar in je dieverse mogelijkheden hebt om import over te zetten op blad1 met de bijbehorende einde werktijd

de grijze buttons zijn test buttons om de vba code te testen uiteindelijk verdwijnen die allemaal

ik hoop dat je me kan helpen
het gaat om de datums in kolom A de overige getallen die niet op een datum lijken mogen zelfs helemaal verdwijnen
met een etst button datum maak ik er met behulp van voorwaardelijk opmaak witte getallen van ( zie je ze ook niet )

 

[HSV]

Zo beter?
De rode 1 veranderen in een 2.

For i =[COLOR=#FF0000] 1[/COLOR] To Columns(3).SpecialCells(2).Areas.Count

 

[ewh]

Top !!!! wat jij in 5 minuten doet was er verdorie 6 uur mee bezig geweest, wel weer een hoop geleerd daar door maar niet het gewenste ersultaat

nogmaals bedankt voor je hulp

 

[HSV]

Even laten zien hoe ik te werk ga?

Sub hsv()
Dim i As Long, rng As Range, Tb As Range
 For i = 1 To Columns(3).SpecialCells(2).Areas.Count
   Set rng = Columns(3).SpecialCells(2).Areas(i)
[COLOR=#FF0000]msgbox rng.address  'zo zul je zien dat het cel C8 is, daar de offset(-1,-2) = cel A7, maar hier staat geen datum.[/COLOR]
  If Weekday(rng.Cells(1).Offset(-1, -2), 2) > 5 Then
      If Tb Is Nothing Then
        Set Tb = rng.Offset(-1, -2).Resize(rng.Rows.Count + 1)
      Else
        Set Tb = Union(Tb, rng.Offset(-1, -2).Resize(rng.Rows.Count + 1))
      End If
  End If
 Next
If Not Tb Is Nothing Then Tb.EntireRow.Delete
End Sub

Vandaar dat ik nu begin in de tweede area.