kod daki sıkıntı

[yamahato]

Private Sub CommandButton2_Click()
If TextBox1 = "" Then
TextBox1.SetFocus
Exit Sub
End If
If CDbl(TextBox1) = Cells(ActiveCell.Row, 2) Then
Onay = MsgBox("Seçili kayıt silinecektir!" & Chr(10) & "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo)
If Onay = vbNo Then Exit Sub
ActiveCell.EntireRow.Delete
If Range("A3") <> "" Then
Range("A3") = 1
Range("A3").AutoFill Destination:=Range("A3:A" & Cells(Rows.Count, 1).End(3).Row), Type:=xlFillSeries
End If
CommandButton6_Click
Else
MsgBox "Kayıt eşleşmiyor. İşleminiz iptal edilmiştir!", vbExclamation
CommandButton6_Click
End If
End Sub

bu kodda bir yerde bir sıkıntı var ama ne asıl programda bu kod gurubu plaka girip BUL dediktan sonra "Kayıt eşleşmiyor. İşleminiz iptal edilmiştir" diyor ekranı temizliyor gönderdiğim örnek isimli dosyada ise ilk seferde siliyor tekrar başka bir plakayı silmek için girince

range sinıfının autofill yöntemi başarısız dedikten sonra debug tuşuna basınca

Range("A3").AutoFill Destination:=Range("A3:A" & Cells(Rows.Count, 1).End(3).Row), Type:=xlFillSeries sarı oluyor
saygılar
ayrıca örnek isimli dosyada plakayı girip bul demeye müteakip günceleme yaparsak plakanın bulunduğu hücrenin köşesinde sarı ünlem çıkıyor tıklayınca hata mesajı çıkıyor.Eğer herhangi bir işlem yapmazsan aynı plakayı girip bu dediğimizde plaka bulunamadı mesajı geliyor. Çözümü nedir nasıl düzeltecem

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Forumda mesajların daha anlaşılır görünmesi için. Kodları yazarken

 taglarını kullanınız.

[IMG]http://www.excel.web.tr/attachment.php?attachmentid=142329&stc=1&d=1355171935[/IMG]


[IMG]http://www.excel.web.tr/attachment.php?attachmentid=142330&stc=1&d=1355172166[/IMG]


[B]Görünüm şekli:[/B]
[CODE]
sub kod()
msgbox "Excel"
end sub

. . .