Arama Yaparken Sütunlar Neden Kayıyor?

[newmoonstar]

Arkadaşlar EK'teki dosyada bir çalışma var ve çalışmada formda var.. Formu açtığımızda Ara yaptığımızda formdaki yerler textbox'lar bir sonraki sütuna kaymış gibi? Anlayamadım... Yardımlarınızı bekliyorum...

 

[Recep İpek]

Kodu aşağıdaki şekilde düzeltiniz.

VeriAl makrosu aktif hücreye göre işlem yaptığı için 2 kolon eksiğini gösteriyor.

Private Sub B08_Click()
On Error Resume Next
Dim alan, ara, sayi As Variant
ara = InputBox("Kabahat Eylem Numarasını Giriniz.", "ARAMA")
sayi = Val(ara)
Set alan = Range("C1:C1001").Find(sayi)
If alan Is Nothing Then
MsgBox "Aradığınız Kayıt Bulunamadı.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Exit Sub
Else
alan.Offset(0, -2).Select
Call VeriAl
End If
ALAN02.SetFocus
End Sub

 

[newmoonstar]

Eyvallah çok teşekkür ederim...