Mükerrer kayıt uyarısı

[cem yılmaz]

Merhabalar..

İlk önce herkese günaydın diyorum.Örnek çalışmamda yaptığım işlem daha önce yapılmış olan kayıda tekrar aynı şekilde kayıt yaptığım zaman uyarı veriyor ve "bu mühür 123123 tesisatında kullanılmış" diyor.Benim istediğim ise aynı uyarıya ilaveten işlendiği tarihide söylemesi yani "bu mühür 123123 tesisatında 01.01.2008 tarihinde kullanılmış" yazdırabilirmiyiz.?
Yanılmıyorsam şu kodlarda değişiklik yapılması gerekiyor ama beceremedim

Dim k As Range, w As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Sheets(ComboBox2.Value).Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
Set w = Sheets(ComboBox2.Value).Range("c5:c65536").Find(TextBox3.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
If Not w Is Nothing Then
cevap = MsgBox("Bu Tesisat No daha önce" & w.Offset(0, -1).Value & _
" Mühür No ile girilmiştir." & Chr(13) & _
"İşleme devam edilsin mi?", vbYesNo, "UYARI")
If cevap = vbYes Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 5).Value = ComboBox3.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce işlenmiştir!Tekrar işlem yapamazsınız..", vbCritical, "UYARI"
End If
End If
ElseIf w Is Nothing Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 5).Value = ComboBox3.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce işlenmiştir!Tekrar işlem yapamazsınız..", vbCritical, "UYARI"
End If
End If
Else
MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub

 

[programer]

Kodu aşağıdaki gibi değiştirirseniz istediğiniz olacaktır

cevap = MsgBox("Bu Tesisat No daha önce" & w.Offset(0, -1).Value & w.Offset(0, 2).Value & _
" Mühür No ile girilmiştir." & Chr(13) & _
"İşleme devam edilsin mi?", vbYesNo, "UYARI")

 

[cem yılmaz]

Teşekkür ederim uyarı şekli doğru yalnız küçük bir ayrıntı var mühür numarası ve tarihi bitişik yazıyor aralara boşluk yaptığımda hata veriyor. Uyarı şöyle yapabilirmiyiz "Bu tesisat daha önce 123123 tesisat numarasında 23.07.2008 tarihinde kullanılmış devam edilsinmi?"
Verdiği uyarı şekli ise;

 

[programer]

Aşağıdaki kodu denermisiniz

cevap = MsgBox("Bu Tesisat No daha önce " & w.Offset(0, -1).Value & " tesisat numarasında " & w.Offset(0, 2).Value & _
" tarihinde kullanılmış" & Chr(13) & _
"İşleme devam edilsin mi?", vbYesNo, "UYARI")

 

[cem yılmaz]

Yardımlarınızdan dolayı teşekkür ederim sağolun.