Melding voorzien indien LKxxx niet in lijst voorkomt

[HSV]

Hallo Danny,

Ik heb het even getest.
Helaas heb ik een trieste mededeling voor je: Het werkt hier namelijk uitstekend.

 

[danny147]

Beste HSV,

Ik geloof je, maar hoe kan ik aantonen dat het bij mij niet lukt ???
Dit zijn al 20 berichten waar dit over gaat.

Grts Danny147

 

[danny147]

Beste HSV en Ginger,

Bekijk volgende:

http://www.filedropper.com/foutmelding

Grts Danny147

 

[snb]

1 Verwijder alle samengevoegde cellen.
2 controleer of alle benoemde gebieden wel bestaan.
Gebruik svp Wetransfer: zonder reclame en misleidende banners.

 

[HSV]

Ik heb het met diverse programma's geprobeerd te openen.
Helaas krijg ik een zwart scherm die aan het afspelen is.
Waar open jij een Avi bestand in?

 

[danny147]

Beste HSV,

Ik ga deze afsluiten, want het lukt niet.

Geprobeerd output op te slaan enkel met datum op 1/2/2016 en geen filter geplaatst op datum en dit lukt dan wel
Output gemaakt met enkel datums van 1/2/2016 en 2/1/2016 en dan met filter en neemt geen enkele datum aan, alsof de datum als tekst er staat. Filter ik dan handmatig op 1/2/2016 dan zie ik wel gegevens.

Grts Danny147

 

[HSV]

Beste HSV,

Geen probleem als je het niet ziet zitten.
Vroeger was er nog een man of 5 à 6 die hun tanden hierin vastbijten, maar die tijd is blijkbaar gedaan.
HSV, Roncancio, Warme bakkertje, WIGI, enz...

Grts Danny147

Tja, het is jouw keuze Danny.
Jammer dat het hier goed werkt en niet bij jou.

Ik had me er aardig in vast gebeten.
Succes ermee.

 

[danny147]

Beste HSV,

Wat kan ik verder doen als het niet werkt bij mij ?
Heb alles al in een nieuw bestandje gestoken en ook dan lukt het niet
Ik wilde een filmpje plaatsen met de handelingen die ik doe op mijn screen om aan te tonen waar de fout zit bij mij.
Volgens mij ligt de fout in de datumfilter in output deze wordt als tekst ingevuld en als "mm/dd/jjjj"
Misschien kan hier een oplossing voor gezocht worden ???

@snb,
bij Wetransfer moet ik een e-mailadres intypen voor te versturen, naar wie ???

Grts Danny147

 

[Cobbe]

Bij Wetransfer moet je GEEN mailadres ingeven, je moet kiezen voor de link.
Dan krijg je een link en die moet je posten in het forum.

 

[danny147]

Beste HSV,

Gezien op het internet dat datums tussen Nederland en België kunnen verschillen wegens taalinstellingen.
Moet er dan niet gewerkt worden met:

Jaarformaat = String(4, CStr(Application.International(19)))

Grts Danny147

 

[snb]

Over welk bestand hebben het hier nog dat wel/niet zou funktioneren ?

 

[danny147]

Beste snb,

Het bestandje Output Danny.xlsx
Hier wordt in kolom A gefilterd op datum dat "1/2/2016" moet zijn.
Hij vult telkens "2/1/2016" in en in tekstformaat.
Deze datum komt van cel C1 uit tabblad RM-1_RE-1 van bestandje "planning 12-2-2016

De code staat in bestand Planning 12-2-2016 in Module 1
Deze zijn hier al eens geplaatst.

Grts Danny147

 

[snb]

Als je wil dat ik je help vind ik het niet erg als je mij daarbij helpt.
Plaats de laatste versie van het bestand nog eens hier.

 

[danny147]

Beste snb,

Bedankt voor je bijdrage :d

Zie bericht #60

Grts Danny147

 

[Cobbe]

In post #60 staat een bestand zonder code/macro

Waarom is het zo moeilijk om een bestand te posten via Wetransfer en hier de link posten?

 

[danny147]

Beste,

Bij deze:

http://we.tl/MF0Cw89szD

PS: In post #60 staat er een link naar mijn website met code erin

Grts Danny147

 

[Cobbe]

Maak uw datumkolom eens op als Standaard en kijk of de datums zo wel kloppen.

42401 42402 enz.

 

[danny147]

Beste cobbe,

Geprobeerd maar steeds komt er 2/1/2016 in de filter te voorschijn.
Waarschijnlijk moet dan ook de code aangepast worden om dit te kunnen uitvoeren.

Grts Danny147

 

[Ginger]

@Danny, 1 voordeel... Ik heb hetzelfde issue als jij. Wellicht kan ik er iets op vinden omdat ik het dus kan naspelen...

 

[Ginger]

Oplossing... (het blijkt een bekend issue met het autofilter en dit is een workaround...)

Sub hsv()
Dim arr, arr2, sn, i As Long, ii As Long, j As Long, x As Long, n As Long, c As Range, c00, c01, c02
Dim twb As Worksheet
[B][COLOR="#FF0000"]Dim lDatum As Long[/COLOR][/B]
Application.ScreenUpdating = False
Workbooks.Open ThisWorkbook.path & "\Output Danny.xlsx"
 'With GetObject(ThisWorkbook.path & "\Output Danny.xlsx")
 With ActiveWorkbook
  For i = 1 To 3
  arr = Split(ThisWorkbook.Sheets(i).Name, "_")
   With Workbooks("Output Danny.xlsx").Sheets("Rawdata")
    With .Cells(1).CurrentRegion
     
     For x = 0 To 1
     If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
'       .AutoFilter 1, CDate(ThisWorkbook.Sheets(i).Cells(1, 3).value)

Set twb = ThisWorkbook.Sheets(i)
      [COLOR="#FF0000"][B] lDatum = DateValue(DateSerial(Split(twb.[c1], "-")(2), Split(twb.[c1], "-")(1), Split(twb.[c1], "-")(0)))
       .AutoFilter Field:=1, Criteria1:=">=" & lDatum, Operator:=xlAnd, Criteria2:="<" & lDatum + 1[/B][/COLOR]
         Select Case x

...rest van de code van HSV...

Pas de rode regels aan in je eigen workbook en probeer 'm een keertje uit.

[EDIT] Hierbij nog mijn zoekopdracht voor Google voor het geval dat je er nog iets op wilt nalezen...
autofilter date filter changes from european to english format + vba