• 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ü Silinmiş Hücre İçin MsgBox Uyarısı

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.
hakki83

hakki83

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
234
Excel V
Office 2016 TR
Konu Sahibi
Selamlar


A2 ile A10000 arası sırayla tarihler yazılı.

Eğer yanlışlıkla bu tarihlerden bir veya birden fazlası yanlışlıkla silinirse,

Activate olayında MsgBox ile " ........ Hücre-Hücrelerdeki Tarihler Yanlışlıkla Silinmiş, Düzeltiniz"

uyarısı verdirebilir miyiz?

Silinmiş bir tarih yoksa, herhangi bir uyarı vermeyecek.

(Not: Sayfayı Koru özelliğini bu dosyada kullanmıyorum)
 
Çözüm
martinmax
kodu ve örnek dosya ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
baslangic = "01.01.2000"
For a = 2 To 10000
If CLng(Range("A" & a)) <> CLng(CDate(baslangic)) + a - 2 Then
MsgBox "A" & a & " hücresindeki tarih yanlışlıkla silinmiş veya tarih değil", vbCritical, "Hata"
End If
Next a
End Sub
Tarihe göre sırala Oylara göre sırala
kodu ve örnek dosya ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
baslangic = "01.01.2000"
For a = 2 To 10000
If CLng(Range("A" & a)) <> CLng(CDate(baslangic)) + a - 2 Then
MsgBox "A" & a & " hücresindeki tarih yanlışlıkla silinmiş veya tarih değil", vbCritical, "Hata"
End If
Next a
End Sub
 

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.
Olumlu oy 2 Negatif oyla
Çözüm
Konu Sahibi
Martinmax hocam emeğinize sağlık. Çok ama çok güzel olmuş.
Teşekkür ederim.
Hiç düzeltilecek ya da değiştirilecek bir şey dahi bulamadım.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Martinmax hocam bir sorum var,

Diyelim ki kullanıcı tarihi yanlışlıkla silmek yerine, tuttu yanlışlıkla klavyedeki bir harfe bastı.

Aynı hata magbox pencerelerinin çıkması için, On Error satırı yeterli olur mu yoksa başka bir şey eklemek gerekir mi?
 
Olumlu oy 0 Negatif oyla
a10000 satırına kadar olması gereken tarih dışında herhangi bir şey yazılırsa ondada hatayı veriyor zaten. kodu o şekilde yazdım.
yani başka tarih bile yazılsa ondada hata verecek.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst