Vraag over macro

[cow18]

heb je al iets gedaan met de macro in #10 ?
Als je die van HSV aan de praat krijgt, mits foutje, dan is het analoog.

 

[HSV]

Een advancedfilter werkt trouwens ook goed, maar ik weet niet of je de gegevens steeds onder elkaar gaat zetten of dat het resultaat steeds op dezelfde plek komt.

Toch nog maar een probeersel voor je Mac.

Sub hsv()
Dim sv, a, hs, i As Long, j As Long, s0 As String
sv = Sheets("bron").Cells(5, 1).CurrentRegion.Offset(1).Value
 For i = 1 To UBound(sv)
   For Each a In Array("niet", "twijfel", "fout")
    If InStr(1, sv(i, 3), a, 1) Then s0 = s0 & i & ","
   Next a
 Next i
  hs = Application.Index(sv, Application.Transpose(Split(s0, ",")), Array(1, 2, 3))
    For i = 1 To UBound(hs) - 1
       hs(i, 2) = Format(hs(i, 2), "mm/dd/yyyy")
     Next i
   Sheets("kopie").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(hs) - 1, 3) = hs
End Sub

 

[kippiebla]

Als ik het zo lees heb je de verwijzing inderdaad niet nodig.
Maar een Mac zal denk ik weer verklaren waarom het niet werkt.

Misschien morgen maar in een "normale" array wat proberen voor je.

Voor nu is het gedaan.

Is er nog hoop HSV? Of misschien iemand anders die dit zou kunnen oplossen?

 

[HSV]

Geen idee of er hoop voor je is, ik heb mijn bijdrage geleverd in mijn laatste schrijven.

De eer is aan u.

 

[kippiebla]

Excuus! Helemaal niet gezien. Sorry! Dank je wel! Ik ga er mee aan de slag.