degiştirde hata

[akd]

Merhaba arkadaşlar,
benim degiştir makrosuyla başım derte, geçersiz işlem yürüttü, kurtarma raporu gibi bir sürü şey çıkıyor.
Kodu aşağıya yazıyorum, lütfen bir bakarmısınız....

Private Sub CommandButton2_Click()
On Error Resume Next
Sheets("veri").Select
Range("a2").Select
lig = Columns(1).Find(TextBox1, Range("a2"), , , xlByRows).Row
Cells(lig, 2) = TextBox2.Value
Cells(lig, 3) = TextBox3.Value
Cells(lig, 5) = TextBox4.Value
Cells(lig, 6) = TextBox5.Value
Cells(lig, 15) = TextBox8.Value
Cells(lig, 16) = TextBox9.Value
End Sub
Selamlar...

 

[Levent Menteşoğlu]

Kodda hataya neden olacak bir satır görünmüyor. Eğer "on error resume next" satırı olmasa idi textbox1 deki değeri 1 nolu kolonda bulamadığında hata verebilirdi.

lig = Columns(1).Find(TextBox1, Range("a2"), , , xlByRows).Row

yukarıdaki satırı aşağıdaki şekilde deneyin

lig = Columns(1).Find(TextBox1).Row

 

[akd]

Merhaba sayın leventm,
malesef onuda denedim yine aynı hatayı veriyor,
anyı kodu fihris sayfasında kullanıyorun hiç bir sorun yok,

acaba 6. sutundan 15. sutuna atlayamadığı içinmi bu hatayı veriyor diye düşünüyorun
selamlar...

 

[Levent Menteşoğlu]

6. sütundan 15 e atlamaması söz konusu olamaz, Belki bir format sorunu olabilir,isterseniz dosyayı gönderin bir bakalım,sadece hata veren sayfayı içerecek şekilde göndermeniz yeterli olacaktır.

 

[Levent Menteşoğlu]

Þimdi aklıma geldi hücrelerde koruma olabilirmi?

 

[akd]

sayfa korumalı degil,
yinede hücre korumalı işaretinide iptal ettim,
yeniden deyeyim dedim proğram kilitlendi,
alt control delete ile çıktım