• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Satırı Silip Başka Sayfaya Gönderme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

Yasar PİSKİN

Yeni Üye
Aktivite

0%
Katılım
18 Nis 2021
Mesajlar
504
Çözümler
2
Aldığı beğeni
110
Excel V
Office 365 TR
Konu Sahibi
Çalışmanın DATA sayfası G Sütunundaki hücrelere herhangi bir tarih değeri girildiğinde o satırı silip ARŞİV sayfasına gönderen mevcut kod bazen çalışmıyor, tarihi ikinci defa girdiğimde çalışıyor bu hususun giderilmesi (mevcut Modül1 deki kodun revize edilmesi) hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Refaz
Sub Kayit_Sil(Sat As Integer) bu kod içinde alttaki satır var ama İZİN adında sayfa yok.

Set buL = Sheets("ÝZÝN").Columns("C").Find(Cells(Sat, "C"), LookAt:=xlWhole)
Tarihe göre sırala Oylara göre sırala
Static a As Integer bunu yerine Dim a As Integer olarak daha uygun olabilir static sayaç gibi olaylar için kullanılıyor genelde.
 
Olumlu oy 0 Negatif oyla
Sub Kayit_Sil(Sat As Integer) bu kod içinde alttaki satır var ama İZİN adında sayfa yok.

Set buL = Sheets("ÝZÝN").Columns("C").Find(Cells(Sat, "C"), LookAt:=xlWhole)
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst