Ik laat op een sheet kijken of de via VBA ingevulde formules fouten veroorzaken. Dit betekent dan dat data niet aanwezig is. Die zou ik graag gepresenteerd krijgen op een aparte sheet (de code start met eerst het verwijderen van die sheet en de link mochten die er zijn)
Wat ik wil: van elke fout die in mijn tabel wordt gevonden wil ik graag het adres als hyperlink op de sheet Fouten krijgen, startend vanaf A1.
Zoals ik het nu in de code heb is dat er een check is of er fouten zijn, dan wordt een link gemaakt die je dan naar de sheet brengt, maar dan naar cel a1.
Dat zegt nog niks, dan moet je nog gaan zoeken naar waar de foutwaarden zich bevinden. Daarom wil ik het graag op een aparte sheet met linkjes per fout hebben. Dat zit nog niet in de code hieronder omdat ik niet uit die For ... loop kom.
Wie kan me verder helpen? Ik heb het gevoel dat ik wel in de buurt zit?
Wat ik wil: van elke fout die in mijn tabel wordt gevonden wil ik graag het adres als hyperlink op de sheet Fouten krijgen, startend vanaf A1.
Zoals ik het nu in de code heb is dat er een check is of er fouten zijn, dan wordt een link gemaakt die je dan naar de sheet brengt, maar dan naar cel a1.
Dat zegt nog niks, dan moet je nog gaan zoeken naar waar de foutwaarden zich bevinden. Daarom wil ik het graag op een aparte sheet met linkjes per fout hebben. Dat zit nog niet in de code hieronder omdat ik niet uit die For ... loop kom.
Code:
With .Cells.SpecialCells(xlCellTypeFormulas, 16)
If .Count > 0 Then
Dim J as integer
Sheets.Add.Name = "Fouten"
For Each Fout In .Cells.SpecialCells(xlCellTypeFormulas, 16)
Fout.Address = Sheets("Fout").Range("A, fout").Value
j = j+1
Next
'' melding+link dat er fouten gevonden zijn!
With Sheets("DT Vestigingen").[L36]
.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="LijstNieuw!A1", TextToDisplay:="Er zijn fouten aanwezig binnen de tabel op ""LijstNieuw""!"
With .Font
.Color = -16776961
.TintAndShade = 0
End With
End With
End If
End With
Wie kan me verder helpen? Ik heb het gevoel dat ik wel in de buurt zit?