Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub dotch()
Application.ScreenUpdating = False
On Error GoTo Fout
Lr = Sheets("eet soorten").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Lr
Nm = Sheets(Cells(i, "A").Value).Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(i).Copy Destination:=Sheets(Cells(i, "A").Value).Rows(Nm)
Next
Rows("2:" & Rows.Count).ClearContents
Exit Sub
Fout:
MsgBox "U heeft geen blad met de naam " & Cells(i, "A").Value, vbCritical, "Fout"
Application.ScreenUpdating = True
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.