kopiëren van een bepaalde range als aan voorwaarde word voldaan

[Dijkie72]

Hallo.

Ik ben bezig een importfile te maken voor het budget van 2015.

In de file heb ik de gegevens van diverse afdelingen in diverse tabbladen staan.

Nu wil ik op een makkelijke manier van alle sheets , waar de waarde van kolom G (Year Amount) niet 0 is en niet leeg is, de waardes in de kolommen a b c d e f en g kopiëren naar het blad Budget , beginnende op C3.

Alvast bedankt voor de hulp.

 

[HSV]

Test het maar eens.

Sub hsv()
Dim sh As Worksheet
For Each sh In Worksheets
If Not sh.Name = "Budget" Then
   With sh.Cells(7, 1).CurrentRegion
     .AutoFilter 7, ">0"
     sh.AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Budget").Cells(Rows.Count, 3).End(xlUp).Offset(1)
     .AutoFilter
   End With
  End If
 Next sh
End Sub

 

[Dijkie72]

Bedankt HSV,

Dit is wat ik zocht. Het pakte alleen de bedragen >0. Dit heb ik veranderd in <>0 , alleen krijg ik nu wel de regels erbij met lege cellen.

Hoe kan ik er voor zorgen dat deze ook niet mee worden genomen.

 

[JeanPaul28]

En bekijk deze eens

 

[HSV]

Kleine aanpassing.

 .AutoFilter 7, "<>", xlAnd, "<>0"

 

[Dijkie72]

Bedankt,

Beide opties die ik heb gekregen werken.

HSV klopt het dat deze macro alleen werkt wanneer er waarden in de cellen staan.

Ik probeer het nu ook toe te passen op een file waarin in de tabbladen word verwezen naar andere files en dan krijg ik een foutmelding op de regel met .autofilter ?

Is er ook een mogelijkheid om dit op te lossen? Dan kan ik het ook gebruiken (met wat aanpassingen uiteraard) op andere files om gegevens te verzamelen.

 

[HSV]

Zet het bestand hier eens neer met de verwijzingen naar de andere bestanden.

 

[Dijkie72]

Hallo HSV,

Dit is een deel van het bestand. In de tabbladen word hierbij verwezen naar tal van andere sheets (welke ook de bron zijn van de vorige bijlage ).

 

[HSV]

Het was me niet opgevallen dat er formules met verwijzingen naar andere bestanden in stonden.
Helaas begrijp ik je vraag dan niet wat de bedoeling is, en op welke regel de foutmelding komt (.autofilter) ook niet.

 

[Dijkie72]

Wanneer je de macro runt geeft hij en foutmelding.

Bij de regel .AutoFilter 7, "<>", xlAnd, "<>0" geeft hij dan een foutmelding in VBA

 

[HSV]

In tabblad "Controle uitvoer" staan geen gegevens.

Sub HSV()
Dim sh As Worksheet
For Each sh In Sheets
If Not sh.Name = "Salaris" Then
 On Error Resume Next
   With sh.Cells(7, 1).CurrentRegion
     .AutoFilter 7, "<>", xlAnd, "<>0"
     sh.AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Salaris").Cells(Rows.Count, 3).End(xlUp).Offset(1)
     .AutoFilter
   End With
 On Error GoTo 0
  End If
 Next sh
End Sub

 

[Dijkie72]

Werkt nu goed. Bedankt