textbox yardm

[prof77]

iyi günler
ekli dosyada bir harcırah hesaplama makrosu hazırladım
sizden ricam textbox2 ye irsaliye nosu girdiğimde excel sayfasında D sütununda aynı irsaliye numarası varsa eğer farklı bir textbox içine aynı olan numara ve karşılığına denk gelen bölge yazsın.
burdaki amacım mükerrer kayıt yapmamak.farklı bi öneriniz varsa onuda yazabilirsiniz.
Teşekkürler..

 

[Muzaffer Ali]

Aşağıdaki kodları UserForm1 in kod editörüne yazın

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Range
    Set i = Range("D:D").Find(What:=TextBox2.Text, LookAt:=xlWhole)
    On Error GoTo 1
    If Not i.Value = "" Then
        Cancel = True
        TextBox2.SetFocus
        MsgBox "Belirttiğiniz 'İrsaliye No' zaten kayıtlı."
    End If
1:
End Sub

 

[prof77]

Teşekkürler
güzel oldu

 

[prof77]

Bir sorum daha olacak
kayıt butonuna bastıktan sonra imlecin otomatikmen ilk textbox a gitmesini istiyorum nasıl yapabilirim

 

[Muzaffer Ali]

hangi kontrole gitmesini istiyosanız aşağıdaki gibi yazın

TextBox2.SetFocus

 

[prof77]

çok sağolun