• 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.

waarden zoeken in blad en waarden (datum) bovenaan een kolom weergeven

Status
Niet open voor verdere reacties.
K

KlaarW

Nieuwe gebruiker
Lid geworden
18 jun 2017
Berichten
1
Dag iedereen,

Ik vind geen formule voor onderstaand probleem. Ik voegde een bijlage toe.
Op het eerste blad staat een jaarplanning (zie bijlage). Ik wil op het tweede blad graag een nieuwe weergave krijgen: per school de data.

Dus ik zou op het eerste blad de school moeten zoeken over alle ingevulde cellen (vb. school a) en daarbij de gegevens van rij 2 (datum)en rij 3 (VM/NM) verkrijgen die bij de gevonden cellen horen. Het kan dus zijn dat hij meerdere data zal vinden voor een school.

Kan iemand me helpen? Mijn excel-kennis reikt helaas niet zover.
Ik zou dit deze week moeten afwerken maar zie het eventjes niet meer zitten. Zit er al een hele week op te zoeken :-(

groetjes en alvast bedankt op voorhand!

Bekijk bijlage voorbeeld excelprobleem.xlsx
 
Als je de lege rijen en kolommen weglaat dan kan je deze macro proberen. Samengevoegde cellen geven ook alleen maar ellende en kan je dus beter niet gebruiken.

Code: 
Sub VenA()
ar = Sheets("Blad1").Cells(1).CurrentRegion
Set d = CreateObject("scripting.dictionary")
  For j = 4 To UBound(ar)
    For jj = 1 To UBound(ar, 2)
      If ar(j, jj) <> "" Then
        If jj Mod 2 = 0 Then d.Item(d.Count) = ar(j, jj) & ";" & ar(2, jj - 1) & ";" & ar(3, jj) Else d.Item(d.Count) = ar(j, jj) & ";" & ar(2, jj) & ";" & ar(3, jj)
      End If
    Next jj
  Next j
  With Sheets("Blad2")
    .Cells.Clear
    .Cells(2, 1).Resize(d.Count) = Application.Transpose(d.Items)
    .Columns(1).TextToColumns , xlDelimited, , , , True
    .Cells(1).Resize(, 3) = Split("School Datum VM/NM")
    .Columns.AutoFit
    .Cells(1).CurrentRegion.Sort .Cells(1), , , .Cells(1, 2), , .Cells(1, 3), , xlYes
  End With
End Sub
 

Bijlagen

  • voorbeeld excelprobleem.xlsb
    19,3 KB · Weergaven: 29
Ik heb er ook eentje.
Lege rijen en kolommen zijn hier geen probleem. Wel merk ik op dat je beter andersom kan werken: nu ga je van overzicht naar platte tabel. Je kunt beter van platte tabel naar draaitabel.
Code: 
Sub tsh()
    Dim Br
    Dim i As Long, j As Long
    Dim Sh
    
    Br = Sheets(1).UsedRange
    With CreateObject("System.Collections.Arraylist")
        .Add " School|Datum|VM/NM"
        For i = 4 To UBound(Br)
            For j = 1 To UBound(Br, 2)
                If Br(i, j) <> "" Then _
                    .Add Br(i, j) & "|" & Format(Br(2, j + (Br(3, j) = "NM")), "mm-dd-yyyy") & "|" & Br(3, j)
            Next
        Next
        .Sort
        Set Sh = Sheets(2)
        Sh.Cells.Clear
        Sh.Cells(1).Resize(.Count) = Application.Transpose(.ToArray)
        Sh.Cells(1).CurrentRegion.TextToColumns , 1, , , , , , , 1, "|"
    End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan