Filter & Kopie

[Neuz]

Hey Allemaal,

Ik ben bezig met een bestandje waarin ik bepaalde gegevens wil filteren en daarna
op basis van de gegevens wil kopieeren naar een ander werkblad.

In de bijlage staat een klein voorbeeld. (de gegevens zijn uiteraard fictief)
Bekijk bijlage Fileren en Kopieeren - HelpMij.xlsm

Ik wil graag de volgende gegevens altijd kopieeren:
Naam
Relatie

De telefoon nummers moeten worden gekopieerd op basis van de waarde welke in de
kolommen E of G staat vermeld. Indien er in deze kolom Publiek staat of deze leeg is
dan moet het telefoonnummer wat ervoor vermeld staat gekopieerd worden.

Indien er in de kolom E of G Geheim staat vermeld dan moet er in het stuk waar geplakt
wordt op de plaats waar in de andere situatie het nummer zou komen te staan de melding
"Afgeschermd" moeten staan.

Zou iemand me een zetje in de juiste richting willen geven?

Alvast bedankt.

Groet Neuz

 

[JeanPaul28]

Een gefileerd bestand,

 

[Neuz]

Hey JeanPaul28,

Bedankt voor je snelle bericht.
Ik heb vandaag op mijn privé computer geprobeerd te kijken maar daar krijg
ik een fout melding. Waarschijnlijk doordat ik VBA niet heb geinstalleerd op mijn pc.
Dinsdag heb ik weer de beschikking tot de pc waarop het origineel staat ik
kijk dan ook even naar jouw oplossing.

Groet Neuz

 

[HSV]

Ook nog maar een duit in het zakje (resultaat op het tweede blad).

Sub hsv()
Dim sn, i As Long
sn = Sheets("Blad1").Cells(1).CurrentRegion
 For i = 1 To UBound(sn)
    If UCase(sn(i, 5)) = "GEHEIM" Then sn(i, 4) = "afgeschermt"
    If UCase(sn(i, 7)) = "GEHEIM" Then sn(i, 6) = "afgeschermt"
  Next i
Sheets(2).Cells(1).Resize(UBound(sn), 7) = sn
End Sub

 

[Neuz]

Hey JeanPaul28 en HSV,

Bedankt voor jullie reactie. Beide opties heb ik bekeken en er zit een groot verschil in.

De optie van HSV schermt de nummer af op het originele tabblad en schrijft daardoor de gegevens over.

De optie van JeanPaul28 kopieert de gegevens van blad1 en plakt deze op blad2. Hierdoor blijven
de gegevens op blad1 gewoon zichtbaar en verdwijnen ze op blad2. Dit is precies wat ik bedoelde.

Nu kan ik in ieder geval weer verder met mijn document, nogmaals bedankt.

Groet Neuz

 

[HSV]

Misschien niet goed bekeken?

De mijne doet precies hetzelfde.
Blad1 blijft in takt, gegevens gaan naar blad2 waarbij de nummers die van toepassing zijn (geheim) worden afgeschermd.