Atwist
Terugkerende gebruiker
- Lid geworden
- 24 jan 2006
- Berichten
- 1.055
- Besturingssysteem
- Wndows 10
- Office versie
- 2016
Na lange tijd gebruik ik weer het formulier wat ik destijds heb gemaakt, alleen nu krijg ik deze melding:
Loopt van op de rode tekst
Ik heb momenteel geen idee waar ik moet zoeken, ben te lang uit het Excel en VBA gebeuren.
Graag een tip van jullie kant, zodat ik weer verder kan
Loopt van op de rode tekst
Code:
Private Sub CommandButton6_Click()
Sheets("Archief").Select
If Application.WorksheetFunction.CountIf(Range("Archief!P:P"), Me.TextBox7.Value) > 0 Then
TextBox7.BackColor = &HFF&
MsgBox ("Project nummer bestaat al")
Else
TextBox7.BackColor = &HFF00&
If TextBox7.Value >= 0 Then ListBox13.Enabled = True
End If
Sheets("Archief").Select
Range("O1:P300").Select
[COLOR="#FF0000"] Range("$O$1:$P$300").RemoveDuplicates Columns:=Array(1, 2), Header _
:=xlNo[/COLOR]
Range("O1:P300").Select
ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Add Key:=Range("O1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Archief").Sort
.SetRange Range("O1:P300")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Ik heb momenteel geen idee waar ik moet zoeken, ben te lang uit het Excel en VBA gebeuren.
Graag een tip van jullie kant, zodat ik weer verder kan