dosyayı çalıştıramıyorum

[celine]

Arkadaşlar, ekli dosyadaki programımda gözden kaçırdığım birşey var ve çalışmıyor, yanlışımı bulup düzeltebilirmisiniz? Program aslında çalışıyordu tam bitti derken sorunla karşılaştım, yardımcı olacak biri olursa gerçekten minnettar kalırım.

 

[Levent Menteşoğlu]

Çalışmayan neresidir onuda açıklarmısınız.

 

[celine]

programı çalıştırıp yeni kayıt diyoruz ve bilgiler girildiğinde çalışma sayfasına yazmıyor,, problem bu Sn leventm çok teşekkürler ilginiz için, birde çözümü bulabilirsek çok memnun olurum.

 

[Levent Menteşoğlu]

Kod içindeki veri kaydedilecek sayfa adlarını gözden geçirin.

 

[celine]

Sn leventm açıkçası ben baktım ama düzeltemedim yani yazılan sayfa zaten belli fakat hangi ismi kullanacağımı şaşırdım açıkçası, eğer yardımcı olabilirseniz çok sevinirim

 

[Ferhat Pazarçevirdi]

Merhabalar

Dosyanızdaki kodları aşağıdakiler ile değiştirin. Sayfa1 diye bir sheet olmamasına rağmen, siz Sayfa1'e kayıt göndermeye çalışıyorsunuz. Üstelik on error resume next kullanarak progrmın bir hata iletisi vermesini de gölgelemektesiniz.

SonKayıt makronuz şöyle olmalı....

Sub SonKayıt()
On Error Resume Next
[COLOR=red][B]Sheets("KalanMiktar").Select[/B][/COLOR]
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

VeriKaydet adlı makronuz şöyle olmalı

Sub VeriKaydet()
[COLOR=red][B]Sheets("KalanMiktar").Select[/B][/COLOR]
[COLOR=green]...[/COLOR]
[COLOR=green]....[/COLOR]
[COLOR=green]Diğer kodlarınız.....[/COLOR]
[COLOR=green]....[/COLOR]
End Sub

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Dosyanızda sayfa1 isimli bir sayfa olmadığı halde kod içinde geçiyor. Buna dikkat edin. Ayrıca sıranosunda bir hata vardı onuda düzelttim.

Not: Sn fpc gerekli uyarıları yapmış, bende dosyayı eklemiş olayım.

 

[celine]

Sn leventm ve Sn fpc inanın hiç yapamıcam sandım.. çok çok teşekkürler..