Kayıt ekleme sorunu...

[etf]

Ekli dosyada hazırlamış olduğum verilerin girişinde 272. kayıttan sonra ilave kayıt yapmamakta.Yeni giriş yapıldığında 272. kayıdı değiştirmekte. Kodlarda bir hata mı var yoksa eksik birşeyler mi bulamadım .Yardımcı olursanız sevinirim.
Şimdiden teşekkürler...

 

[mehmett]

Kaydet tuşunun kodunda aşağıdaki satırda kırmızı renkle belirttiğim değişikliği yaparsanız düzelir sanırım.

say = WorksheetFunction.CountA(Range("B1:B65000"))

 

[Kemal Demir]

Sn.mehmet Affınıza sıgınarak aşagı duzelttim.

Kaydet tuşunun kodunda aşağıdaki satırda kırmızı renkle belirttiğim değişikliği yaparsanız düzelir sanırım.

say = WorksheetFunction.CountA(Range("B1:B65000"))

say = WorksheetFunction.CountA(Range("B[COLOR=red]1[/COLOR]:B65000"))+1

Umarım eksik anlamamısımdır.

 

[mehmett]

Aynen öyle Sn kemaldemir, ben +1 eklemeyi unutmuşum.

Uyarınız için teşekkür ederim.

 

[etf]

teşekkürler emeğinize sağlık...
sizler olmasa ne yaparız bilmem....