lijn kopieren naar een ander blad

[fbellekens]

Hallo,

Voor mijn bestellingen van mijn klanten hou ik een file bij waarin alle gegevens staan over deze bestelling, vb. ordernr. leverdatum, etc.
Nu zou ik graag hebben dat bv alle bestellingen van klant X automatisch gekopieerd worden naar het blad van klant X zodat ik onmiddellijk een overzicht heb per klant wat er besteld geweest is. (zie file in bijlage)
Hoe moet ik dit aanpakken als niet excel specialist.

Alvast bedankt.
Francis Bellekens
Bekijk bijlage test orders 2014.xlsxBekijk bijlage test orders 2014.xlsx

 

[Warme bakkertje]

Sub tst()
    fName = InputBox("Geef de gewenste naam op", "Naamkeuze", "Naam")
    With Sheets("orders 2014")
        .Columns(2).AutoFilter 1, fName
        .AutoFilter.Range.Offset(1, -1).Resize(, 14).Copy Sheets(fName).Range("A" & Rows.Count).End(xlUp).Offset(1)
        .AutoFilterMode = False
    End With
End Sub

 

[fbellekens]

Alvast bedankt voor de reactie maar kan je me ook zeggen waar ik deze code moet invoeren daar ik een echte excel leek ben. Alvast bedankt.

 

[Warme bakkertje]

Ik heb het er even ingezet.
Macro's oproepen met ALT-F8 en tst selecteren en Uitvoeren.
Waar je wel op moet letten is dat het werkblad voor de geselecteerde naam ook aanwezig is, anders krijg je een foutmelding

 

[fbellekens]

Geweldig, dit werkt als een klok.
Ik vermoed dat dit niet automatisch kan omdat je verschillende tabbladen hebt met verschillende namen?

Alvast enorm bedankt, dit spaart me al veel knip en plakwerk.

Francis

 

[Warme bakkertje]

Wat bedoel je met automatisch ? Geef een zo duidelijk en volledig mogelijke verklaring van wat je wil bereiken zodat we niet in het oneindige over en weer moeten praten.
Bedenk dus eerst goed wat je zou willen en denk daarbij aan het volledige plaatje, niet van naderhand "en dit wil ik er nog bij en dat zou ook wel mogen".

 

[fbellekens]

Hallo Rudi,

Het is alvast niet mijn bedoeling om jou vrije tijd te bederven maar met automatisch bedoel ik als wanneer ik een nieuwe lijn in de file zet met die bepaalde naam dat die automatisch naar het betreffende blad wordt gekopieerd wanneer ik op het einde van de lijn op enter druk om naar de volgende lijn te gaan zodat ik niet steeds de handeling moet doen ALT-F8 om de macro op te roepen.

Francis

 

[Warme bakkertje]

Dat gaat zo niet lukken. Je zal specifiek moeten aangeven welke kolom je als laatste invult en dat daarna de macro gestart wordt. En wat moet er daarna gebeuren met de lijn die je ingevuld hebt op je invulblad ?
En als dat werkblad Orders toch maar enkel is om als verdeelblad te dienen, heb je het gebruik van een Userform als eens overwogen ?