İlk otuz kayıt yaptıktan sonraki ilk kayyıtta son kaydı siliyor yenisini ekliyor.
Otuz kayıttan fazla kayıt yapmıyor
Sn:black24
Buyrun istediğiniz düzenlenmiştir.
Buyrun istediğiniz düzenlenmiştir.
Sn:black24
Sizin eklemiş olduğunuz kod
Kod aşağıdaki şekilde değiştirilmiştir.
Sorularınızı formda ayrı bir başlık altında sorunuzki yardımcı olalım Lütfen özel olarak istemeyiniz yoksa sorularınız yanıtsız kalır.Mutlaka bir arkadaşımız yardımcı olacaltır.Ara yüz dizaynı ayrı bir konu.
Sizin eklemiş olduğunuz kod
Kod:
b = WorksheetFunction.CountA(Sheets("veri").Range("A:A"))
Kod:
b = WorksheetFunction.CountA(Sheets("veri").Range("A:A")) + 1
Sn oğulcan programı açtığımda bende aşağıdaki satırda hata veriyor
Calendar1.Value = Format(Date, "dd.mm.yy.")
Calendar1.Value = Format(Date, "dd.mm.yy.")
Sn:black24
Bende herhangi bir hata yok normal olarak çalışıyor.Pek tavsiye etmiyeceğim bir kod ama bazı zamanlarda kullanabiliriz kodların en üstüne yani ilk satır olarak ekleyiniz.
Bende herhangi bir hata yok normal olarak çalışıyor.Pek tavsiye etmiyeceğim bir kod ama bazı zamanlarda kullanabiliriz kodların en üstüne yani ilk satır olarak ekleyiniz.
Kod:
On Error Resume Next
Konuyu Okuyanlar: 1 Ziyaretçi