Mrb,
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'validate text box
If Application.WorksheetFunction.CountIf(Worksheets("veriler").Range("K2:GC600"), TextBox6.Text) > 0 Then
MsgBox ("Mükerrer Makbuz Numarası!")
Cancel = True
End If
End Sub
yukarıdaki kodla textbox 'lara girilen makbuz numaralarının mükerrerliğini kontrol ettirmek istiyorum . Makbuz numaralarını girdiğim textbox' lar 2 ,6 , 10 ....şeklinde 44 adettir. 44 adet textbox için yukarıdaki kodu yazmak istemiyorum daha kısa bir yolu varmıdır?
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'validate text box
If Application.WorksheetFunction.CountIf(Worksheets("veriler").Range("K2:GC600"), TextBox6.Text) > 0 Then
MsgBox ("Mükerrer Makbuz Numarası!")
Cancel = True
End If
End Sub
yukarıdaki kodla textbox 'lara girilen makbuz numaralarının mükerrerliğini kontrol ettirmek istiyorum . Makbuz numaralarını girdiğim textbox' lar 2 ,6 , 10 ....şeklinde 44 adettir. 44 adet textbox için yukarıdaki kodu yazmak istemiyorum daha kısa bir yolu varmıdır?
Son düzenleme: