MS Excel

Ještě jsem pátral ve starších vláknech a narazil na podobný případ. Opět jsi byl u toho ty Poki jako řešitel a já využil onen příklad.
------------------------------------------------------
Private Sub TextBox6_AfterUpdate()
Dim i As Integer
For i = 3 To Application.WorksheetFunction.CountA(Range("C:C"))
If TextBox6 = Cells(i, 3) Then
MsgBox "Tato hodnota je již obsažena (na řádku č. " & i & ")." & vbCrLf & vbCrLf & "Zkus to znova...", vbCritical, "POZOR"
End If
Next
End Sub
-----------------------------------------------------
Tohle je přesně to, co jsem hledal. Akorát je menší problém v tom, že když mi vyskočí MsgBox s hlášením, a já jej potvrdím, vrátím se do formuláře, zůstává hodnota v daném poli a teď již mi nic nebrání ji tam zapsat jako duplicitu. Napadá mě jen to, že po odkliknutí MsgBoxu se ti to pole, které je "hlídáno vymazalo a ty jsi musel hodnotu zadávat znovu...kdyby jsi to chtěl teddy obejít předchozím způsobem nešlo by to ... je to OK ?

Díkycitovat