• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gegevens naar andere werkbladen kopieeren met voorwaarde

Status
Niet open voor verdere reacties.
R

ReneK1968

Gebruiker
Lid geworden
20 okt 2017
Berichten
7
Hallo,

Ik heb een excelbestand die veel gegevens heeft.
Nu wil ik een splitsing maken op dag op diverse werkbladen.
Ook moet deze voldoen aan gebouwcode en begintijd.
Tevens moet er willekeurig per gebouw een aantal locaties (Zaal) uitkomen. In totaal een stuk of 19.
We hebben ook 2 tijdvakken die wij gefilterd willen hebben. 7-10 uur en 9-11 uur.
Dit moet dus per werkdag gedaan worden.

Ben daar nu al een hele tijd mee aan het stoeien, maar ik kom niet ver.
Zou iemand mij een zetje de goede kant op kunnen geven?

Groeten,

René
 

Bijlagen

  • Week 43.xls
    510 KB · Weergaven: 83
  • 20102017.jpg
    20102017.jpg
    193,7 KB · Weergaven: 59
Laatst bewerkt:
En een vraag stellen in plaats van een werkorder te verstrekken.
 
Beste SjonR,

Je hebt helemaal gelijk.
Het was ook niet mijn bedoeling om een opdracht te geven tot de oplossing.
Zal er op blijven letten.


Beste brandernl.
Bij het eerste bericht heb ik een afbeelding gedaan, zoals ik nu constant moet maken.
Mits dit natuurlijk mogelijk is en niet te ingewikkeld.

Mvg,

René
 
Laatst bewerkt door een moderator:
Nog niet helemaal duidelijk; je wilt de gegevens van elke datum naar een apart blad?
 
beste bandornl.
Dat klopt helemaal, maar datum is niet belangrijk.
De werkdagen zijn heel belangrijk.

Mvg

René
 
Laatst bewerkt door een moderator:
Kan op veel manieren, maar de simpelste is met een filter (tabblad gegevens) en dan filteren op de gewenste dag en dat kopiëren naar een nieuw blad.
 
Zo doe ik dat op dit moment ook.
Ik had gehoopt dat er nog een makkelijkere manier was.
:)
 
Laatst bewerkt door een moderator:
Ik heb nog nooit zo een macro gemaakt
 
Laatst bewerkt door een moderator:
Met een filter misschien
Tip: je zou kolom F t/m K nog kunnen verbergen voor beter overzicht
 

Bijlagen

  • Test_Week 43.xlsm
    358,5 KB · Weergaven: 827
Laatst bewerkt:
met een draaitabel

zoiets wellicht m.b.v. een draaitabel?

LET OP: macro's toestaan!
 

Bijlagen

  • Week 43.xlsb
    263,4 KB · Weergaven: 41
Beste Jack Nouws,

Ik ga hem testen van de week.
Dank je wel voor de moeite.


Dank je wel Haije,

Ik ga hier van de week even mee stoeien.
Dank je wel voor deze oplossing.

Mvg,

René
 
Laatst bewerkt door een moderator:
Het voorbeeldplaatje komt niet overeen met de tijdvakken. Aan welke gebouwcode's moet voldaan worden?

Om de hele handel op te splitsen naar verschillende tabjes, wat niet mijn voorkeur zou hebben, maar wel de vraag is kan je zoiets gebruiken.
Code: 
Sub VenA()
  With Sheet1
    ar = .Cells(1).CurrentRegion
    .Columns("E:K").Delete
    .Cells(1, 27).Resize(, 3) = Split("Dag Begintijd Eindtijd")
    For Each it In Application.GetCustomListContents(1)
      For j = 1 To 2
        If IsError(Evaluate(it & j & "!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = it & j Else Sheets(it & j).Cells(1).CurrentRegion.Clear
        .Cells(2, 27).Resize(, 3) = Array(it, ">=" & 7 - 2 * (j = 2) & ":00", "<=" & 9 + j & ":00")
        .Cells(1).CurrentRegion.AdvancedFilter 2, .Range("AA1:AC2"), Sheets(it & j).Cells(1)
        Sheets(it & j).Columns.AutoFit
      Next j
    Next it
    .Range("AA1:AC2").Clear
    .Cells(1).Resize(UBound(ar), UBound(ar, 2)) = ar
  End With
End Sub

Valt waarschijnlijk niet in de categorie 'makkelijk':d
 
Beste VenA,

Dank je wel voor deze optie.
Ga hem morgen even op het werk uitproberen.

Dank je wel voor deze oplossing.

Groetjes,

René
 
Laatst bewerkt door een moderator:
Dan heb je een boel te testen;) Al het quoten is niet nodig. Klik op 'Snel reageren' of op 'Reageer op bericht'
 
Beste ReneK1968,

Allereerst welkom op het forum :)

Als u direct op het vorige antwoord een reactie geeft hoeft u niet te quoten.
Daarnaast heb ik de berichten die u na elkaar heeft geplaatst samengevoegd tot een enkel bericht.

m.v.g
Mastermindzh
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan