• 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 uit meerdere kolommen in 1 kolom plaatsen

Status
Niet open voor verdere reacties.
M

mobo2018

Gebruiker
Lid geworden
17 jul 2018
Berichten
66
Hallo allemaal,

Ik heb een aantal medewerkers die actief zijn op meerdere locaties.
Als ik hier een rapportage van maak, staat achter de medewerker een aparte cel waarin de locatie vermeld staat.
Op den duur zullen de kolommen alleen maar breder en breder worden en daardoor ook onoverzichtelijker.

Om e.e.a. overzichtelijk te houden, wil ik graag 2 kolommen gebruiken waarbij de locaties onder elkaar komen te staan i.p.v. de regels alsmaar uitbreiden.
Dit maakt het filteren en werken met subtotalen een stuk makkelijker.

Het liefst wil ik geen draaitabellen gebruiken omdat er meerdere mensen gebruik van gaan maken die alleen hapklare brokken kunnen verwerken.

Wie kan mij helpen op basis van bijgeleverd voorbeeld?

Alvast bedankt.


Gr,
Mo
 

Bijlagen

  • regels invoegen.xlsx
    9,3 KB · Weergaven: 45
Ik snap uit je voorbeeld niet hoe je basisblad opgebouwd gaat zijn. Is dat op regelniveau een koppeling medewerker-locatie? Anders kun je ook geen rapportage maken, lijkt me. In dat geval lijkt je gewenste rapportage me een simpele sorteeroefening...

Interpreteer ik het verkeerd?
 
Het gaat hier inderdaad om een koppeling medewerker-locatie.

Excuseer mijn lompheid.
 
mobo2018 zei:
Het gaat hier inderdaad om een koppeling medewerker-locatie.

Excuseer mijn lompheid.
Klik om te vergroten...

Excuses gaan wel heel ver. Maar de vraag wordt me niet per se helderder: is de oplossing dan niet een simpele oplopende sortering van het basisblad op kolom B (locaties) en daarna op kolom A (medewerkers)?

Maak anders een klein ingevuld voorbeeld van een basisblad met een paar medewerkers en locaties. :)
 
Maak een gelijkend voorbeeldbestand. Dus met de verschillende tabjes en hoe alles werkelijk in elkaar steekt. Wat valt er aan een draaitabel niet te begrijpen voor de andere mensen?
 
In de bijlage heb ik het vergelijkend voorbeeldbestand gevoegd met een aanvullende tekst in de betreffende tabs.


Gr,
Mo
 

Bijlagen

  • regels invoegen 2.xlsx
    13,6 KB · Weergaven: 66
Maak een nieuw tabblad aan en zet de code in de module van blad Rooster.

Vul nu een getal in achter een naam en zie het resultaat op je nieuwe blad.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sv, arr, i As Long, j As Long
If Not Intersect(Target, Range("c3:R100")) Is Nothing Then
sv = Cells(1).CurrentRegion
ReDim arr(1, 0)
  With Sheets(3).Cells(1).CurrentRegion
   .ClearContents
   For i = 3 To UBound(sv)
     For j = 3 To UBound(sv, 2)
      If sv(i, j) <> "" Then
       arr(0, UBound(arr, 2)) = sv(i, 1)
       arr(1, UBound(arr, 2)) = sv(i, j)
      ReDim Preserve arr(1, UBound(arr, 2) + 1)
      End If
     Next j
     Next i
    .Cells(1).Resize(UBound(arr, 2), 2) = Application.Transpose(arr)
    End With
  End If
End Sub
 
Kan dit i.p.v. horizontaal, ook verticaal gedaan worden?
Schijnbaar wordt hier nu ook waarde aan gehecht.

Ik ben er reeds enige tijd zelf mee aan de slag gegaan, echter zonder resultaat helaas

Alvast bedankt,

Mo
 

Bijlagen

  • regels invoegen 4.xlsm
    12,6 KB · Weergaven: 39
Maak van kolom C echte datums, zodat de sortering daar beter op toegepast kan worden.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sv
If Not Intersect(Target, Columns(3)) Is Nothing Then
sv = Cells(1).CurrentRegion.Offset(1)
 With Sheets("rapportage")
   .Cells(1).CurrentRegion.ClearContents
   .Cells(1).Resize(UBound(sv), 3) = sv
   .Cells(1).CurrentRegion.Sort .[a1], , .[C1], , , , , 1
  End With
  End If
End Sub
 
Volgens mij is een draaitabel voldoende.
 

Bijlagen

  • regels invoegen 4.xlsm
    23,9 KB · Weergaven: 33
mobo2018 zei:
Hallo allemaal,

Het liefst wil ik geen draaitabellen gebruiken omdat er meerdere mensen gebruik van gaan maken die alleen hapklare brokken kunnen verwerken.

Gr,
Mo
Klik om te vergroten...

:d:d
 
Die was je al gegeven in de openingspost.
Jij en ik kennen die andere mensen vast niet. :d
 
Dank je wel HSV.

Dat jij de mensen niet kent weet ik zeker.
Dat ik de mensen wel ken, weet ik ook zeker.;)

Mensen die al 30 jaar hier werken vinden vernieuwing niet belangrijk, omdat "de huidige opzet werkt."
Veranderingen moeten dus langzaam ingevoerd worden

In ieder geval bedankt voor je hulp en sorry voor mijn dubbele vraagstelling

Gr,
Mo
 
Als het gaat om hapklare brokken (zowel voor medewerkers als voor de vraagsteller) ben ik het met VenA eens.

Kijk maar eens in de bijlage (en de 'komplexiteit' van de VBA code)
 

Bijlagen

  • __hapklaar.xlsm
    23 KB · Weergaven: 33
@snb, is mij te complex. Waarom niet?
Code: 
Private Sub Worksheet_Activate()
  ActiveSheet.PivotTables(1).PivotCache.Refresh
End Sub
 
Wordt deze gebeurtenis dan geaktiveerd iedere keer als je iets in de basistabel wijzigt ?
 
@snb, waarom zou je elke keer een gebeurtenis willen activeren als je toch niet ziet dat het wijzigingen aanbrengt in de draaitabel? Het is natuurlijk wel een beetje een kip en ei vraag. Waarom wil ik een gebeurtenis activeren als er toch niet in de basisdata gewijzigd is? Wel even mijn code in de juiste module plaatsen.:d
 
Lijkt me onhandig ;)
 

Bijlagen

  • __hapklaar.xlsm
    23,1 KB · Weergaven: 29
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan