djutoch

Dank voor de terugkoppeling.👍 Zou normaal zeker moeten werken vanaf office 2007.

Heb je het uitgetest met collega's die de foutmelding kregen?

In bijlage voorbeeld met klassieke formules. zoek je school - kopie.xlsx

IK zou het in dit geval wat dynamischer maken want Ts maakt tenslotte gebruik van een tabel. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [f5]) Is Nothing Then Rows("9:" & Rows.Count).ClearContents For Each cl In [tabel1] If Target.Value = cl.Value Then cl.Resize(, 11).Copy [a101].End(xlUp).Offset(1).Resize(, 11) End If Next End If End Sub

Filter werkt idd maar vanaf 2019. Verticaal zoeken geeft idd allen het eerste resultaat weer. Anders moet je aan de de slag met Index vergelijken of Index kleinste, maar ik vrees dat je formule wat ingewikkeld en wat lang gaat worden en makkelijk te vernagelen door de studenten. In bijlage een voorbeeldje met een draaitabel. Dan is er ook nog een gemakkelijke oplossing via vba. zoek je school - kopie (1).xlsx

Waarschijnlijk wel in de website van je monitor. Anders het type en merk van je monitor doorgeven dan kunnen er anderen meezoeken. Geen probleem, we wachten af.

Geen gegevens over je monitor, dan is het wel koffiedik kijken. Je hebt problemen met je video kaart of de driver van je scherm. Als eerste stap ga naar de website van je scherm ga op zoek na de laatste driver en installeer die en kijk of dit je probleem oplost.

Ik was iets te snel om te reageren. (excuses) Ik heb je code eens beter bekeken, die was zo erken baar , die is afkomstig van een vroegere docent van mij. Een paar opmerkingen. @emielDS Dit klopt niet, zijn sheet (met tabel) AM gaat tot kolom W of te wel kolom 23. @Sary Voor de rest, al de codes van staan vol fouten. Trouwens in je vraag heb je de automatische nummering door elkaar aan het haspelen geweest ???? voor de rest: Om een simpel voorbeeld te geven In je code van VCA form refereer je naar "With Sheets("Vloeibare Chocolades - Analyses")" Je hebt helemaal geen sheet "With Sheets("Vloeibare Chocolades - Analyses")" Om op je initiële vraag te beantwoorden: Probeer deze code eens voor je AM sheet met je AMfrm. Private Sub Cmd_00_Click() If T_19.Value = "Ja" Then With Sheets("AM") iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 .Cells(iRow, 1).Resize(, 23).Value = Array(T_00.Value, CDate(T_01.Value), T_02.Value, T_03.Value, T_04.Value, _ T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _ T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_23.Value) End With End If If T_19.Value = "Nee" Then With Sheets("AM") iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 .Cells(iRow, 1).Resize(, 23).Value = Array(T_00.Value, CDate(T_01.Value), T_02.Value, T_03.Value, T_04.Value, _ T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _ T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_23.Value) End With End If reset End Sub :

Welke userform? en welke Sheet? Sheet W kan ik niet vinden en je hebt 7 userforms.