Data vanuit extern blad filteren?

[Demeter]

Ik probeer in file tekeningenlijst.xls data in te lezen die is ingevuld in de file invulschema.xls. Deze data wil ik eerst filteren op een project nummer welk ik in blad tekeningenlijst invul voordat ik deze overlaat komen.

Weet iemand hier een werkende methode voor, met VERT.ZOEKEN lukt het mij niet.
En met query loopt ie iedere keer vast op syntaxerror welke ik nergens kan achterhalen.

Tevens voeg ik twee test files bij voor de duidelijkheid.


:thumb: Bijvoorbaat dank,
Ferenc

 

[Wigi]

Demeter

hier is de code

Sub gegevensoverbrengen()
    Dim laatsterij As Long, c As Range, proj As Integer, teller As Long
    
    laatsterij = Range("A65536").End(xlUp).Row
    
    Workbooks("tekeneningenlijst.xls").Activate 'fout geschreven
    proj = Workbooks("tekeneningenlijst.xls").Sheets("Blad1").Range("C1") 'fout geschreven
    Workbooks("invulschema.xls").Activate
    
    Range("A2:N16").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1
    
    teller = 0
    
    For Each c In Range("A2", Range("A" & laatsterij))
        
        Workbooks("invulschema.xls").Activate
        
        If c = proj Then
            Workbooks("tekeneningenlijst.xls").Activate 'fout geschreven
            c.Offset(0, 1).Resize(1, 13).Copy (Workbooks("tekeneningenlijst.xls").Sheets("Blad1").Range("A65536").End(xlUp).Offset(1, 0)) 'fout geschreven
            teller = teller + 1
        End If
    Next
    
    Application.CutCopyMode = False
    Range("A1").Select
    MsgBox "de overzetting is gebeurd. " & teller & " records werden overgebracht."
End Sub

Kopieer ze naar een module in het bestand invulschema. Open beide bestanden en voer de code uit.

Let wel: jouw file heet tekeneningenlijst.xls, ik heb in opmerkingen aangegeven dat je dit evt. moet veranderen.

Succes ermee

Wigi

 

[Demeter]

Super

Dank je wel :thumb: Wigi :thumb: .

Had zelf nooit zoiets kunnen bedenken, mijn VB kennis is nog minimaal.

Keep up the good work!!!!!!.

Groet,
Ferenc