Sayın üstadlar ve arkadaşlar; Ekli Dosyada "KAYDET" butonuna gerekli kodları yazmama rağmen kayıt işlemini yapmamakta. Acaba nerede yanlış yapıyorum. İlgilenirseniz sevinirim. " GEÇİCİ KAYIT " butonunu tıkladığımda " ANLIKKAYIT" sayfasına bilgileri atıyor, daha sonra " KAYDET " butonu aktif oluyor, eğer bilgiler doğru ise " KAYDET " butonunu tıkladığımda " KAYIT " sayfasına bilgilerin aktarılması gerekiyor fakat bir türlü hatayı bulamadım. Bu konuda da yardımcı olursanız sevinirm. Teşekkürler şimdiden.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kaydet Butonu islem yapmıyor
- Konbuyu başlatan millis
- Başlangıç tarihi
E
ExcelF1
Misafir
Kayıt butoununuzdaki şu kısmı düzeltiniz.
Private Sub KAYDET_Click()
On Error Resume Next
Sheets("ANLIKKAYIT").Select
Dim c, d
c = 2
Do While Worksheets("ANLIKKAYIT").Cells(c, 1) <> ""
Sebep : Anlık kayıt ile ilgili sayfanın 2.satırına kayıt yaptırıyorsunuz. Kodlarınızda ise c = 3 diye belirtmişsiniz. Do While komutunda da program ile 3.satır boş değilse yap diyorsunuz. Oysa 3.satır boş. C'yi 2 yaparsınız, sorun kalmayacaktır.
Kolay gelsin.
Private Sub KAYDET_Click()
On Error Resume Next
Sheets("ANLIKKAYIT").Select
Dim c, d
c = 2
Do While Worksheets("ANLIKKAYIT").Cells(c, 1) <> ""
Sebep : Anlık kayıt ile ilgili sayfanın 2.satırına kayıt yaptırıyorsunuz. Kodlarınızda ise c = 3 diye belirtmişsiniz. Do While komutunda da program ile 3.satır boş değilse yap diyorsunuz. Oysa 3.satır boş. C'yi 2 yaparsınız, sorun kalmayacaktır.
Kolay gelsin.
Çok teşekkür ederim ilginiz için.
E
ExcelF1
Misafir
Rica ederim, kolay gelsin.