copy van dichte xlsx file naar andere

Status
Niet open voor verdere reacties.
B

beeksplace

Gebruiker
Lid geworden
21 nov 2013
Berichten
43
Heb een Excel 2016 bestand met daar in wat gegevens
vb.
Naam Dicipline Totaal
e smith Achterlaad revolver 25m 55
f smith Achterlaad geweer 50m 17
r smith Achterlaad geweer 50m 16
g smidt voorlaad geweer 50m 15

Nu zoek ik het volgende hoe kan ik dit met een macro laten kopieeren van de ene file naar de andere.
Het voorbeeld komt zeg maar uit file dag.xlsx file en moet naar score.xlsx met dan alleen de de namen, dicipline en totaal van de achterlaad schutters.

Ik heb het ooit eerder gedaan maar weet het niet meer, wie kan me ff in de goede richting sturen.

Als vast bedankt voor de moeite

erik
 
Een duwtje

Code: 
Sub VenA()
c00 = "E:\Temp\Dag.xlsx"
  With GetObject(c00).Sheets(1)
    .Cells(1, 10).Resize(2) = Application.Transpose(Array("Dicipline", "*achterlaad*"))
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[J1:J2], .[L1]
    ar = .[L1].CurrentRegion.Offset(1)
    .Parent.Close 0
  End With
  Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub
 
Kan rechtstreeks.
Code: 
.Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[J1:J2], [COLOR=#0000ff]thisworkbook.sheets(1).cells[/COLOR](1)
 
toch nog een vraag

Werkt perfect bedankt voor het zetje in de goede richting:thumb:

maar heb toch nog een vraagje
hoe kan ik het een exacte match maken op de criteria van achterlaad
want er zijn drie diciplines met achterlaad er in

Code: 
Sub VenA()
c00 = "E:\Temp\Dag.xlsx"
  With GetObject(c00).Sheets(1)
    .Cells(1, 10).Resize(2) = Application.Transpose(Array("Dicipline", "*achterlaad*"))
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[J1:J2], .[L1]
    ar = .[L1].CurrentRegion.Offset(1)
    .Parent.Close 0
  End With
  Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub
 
Laatst bewerkt:
Als je de vraag een dag later wijzigt wordt dat bijna niet meer opgemerkt.

bv.
Code: 
Sub hsv()
c00 = "E:\Temp\Dag.xlsx"
  With GetObject(c00).Sheets(1)
    .Cells(1, 10).Resize(2) = Application.Transpose(Array("Dicipline", "achterlaad revolver 25m"))
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[J1:J2], thisworkbook.sheets(1).cells(1)
    .Parent.Close 0
  End With
 End Sub

Plaats anders het bestand met de criteria voor 'achterlaad'.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan