Gegevens importeren in ander werkblad

[hvdwerf]

Hallo,

Ik ben op zoek naar de volgende formule:

Hetgeen wat de formule eigenlijk zou moeten doen is:
- Wanneer kolom D “Brochure aanvraag” weergeeft EN wanneer kolom E “Corestone” weergeeft in het werkblad Consumenten totaal 2018 moeten de gegevens van die rij geïmporteerd worden in het Corestone werkblad
- Wanneer deze gegevens niet in de rij staan moet deze rij niet weergegeven worden in het Corestone werkblad

Wie kan mij helpen?Bekijk bijlage Consumenten 2018.xlsx

 

[SjonR]

deze in bladmodule "Consumenten totaal 2018"?:

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.Rows(1)
        .AutoFilter 4, "Brochure aanvraag", xlWhole, , 0
        .AutoFilter 5, "Corestone", xlWhole, , 0
        Sheets("Corestone").UsedRange.ClearContents
        .CurrentRegion.Copy Sheets("Corestone").Cells(1)
        .AutoFilter
    End With
End Sub

 

[hvdwerf]

Beste SjonR,

Moet ik een nieuwe module aanmaken? (Ben niet heel erg goed met VBA's)

 

[SjonR]

Nee, de code moet in de bladmodule zoals in #2 staat.

Kopieer de code, klik met R-muisknop op het tabblad, kies programmacode weergeven en plak de code erin.

 

[hvdwerf]

Sorry het werkt niet of ik doe iets verkeerds.

Als ik nou de hoofdsheet aanvul, komen die dan ook in het tabblad Corestone?

 

[HSV]

Dit helpt niet echt veel he; als je op de eerste rij filters plaatst en in de kolom het op false zet.

Dat je op.....

, xlWhole, , 0

...geen foutmelding krijgt is me een wonder.

 

[hvdwerf]

Dit helpt niet echt veel he; als je op de eerste rij filters plaatst en in de kolom het op false zet.

Dat je op.....

, xlWhole, , 0

...geen foutmelding krijgt is me een wonder.

Hoe kan ik dit het beste oplossen?

 

[SjonR]

@ Harry

Het op False zetten gaat alleen over de VisibleDropDown. Het maakt toch verder niet uit of je die op 0 of 1 zet. Het filter werkt er niet minder om. Maar die kan je ook weglaten, als dat is waar je op doelt.

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet.Rows(1)
        .AutoFilter 4, "Brochure aanvraag", xlWhole
        .AutoFilter 5, "Corestone", xlWhole
        Sheets("Corestone").UsedRange.ClearContents
        .CurrentRegion.Copy Sheets("Corestone").Cells(1)
        .AutoFilter
    End With
End Sub

 

[HSV]

Waar haal je de 'xlWhole' vandaan?

 

[SjonR]

Die hoort er inderdaad niet thuis. Hoort bij .Find

 

[HSV]

 

[hvdwerf]

Mag ik jullie heel erg bedanken?

Ik heb hier echt wat aan

Thnx!!!

 

[VenA]

Alternatief met het geavanceerde filter. De code plaatsen in de module van ThisWorkbook. Al kan je net zo goed of beter een draaitabel gebruiken.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Consumenten totaal 2018" Then Exit Sub
  With Sh.Range("AA1:AB1")
    .Value = Array("Soort aanvraag", "Soort vloer")
    .Offset(1) = Array("Brochure aanvraag", .Parent.Name)
    Sheets("Consumenten totaal 2018").Cells(1).CurrentRegion.AdvancedFilter 2, .Resize(2), .Parent.Cells(1).Resize(, 17)
    .Resize(2).Clear
  End With
End Sub