hücreye girilen değer uygun değilse uyarı mesajı verebilir mi?

[microaim]

değerli arkadaşlar;

iki tane sorunum var.
1.si hücreye girilen veriler 0 ile 100 arasında olması gerekiyor.
2.si sütun silme ile ilgili

ekte açıklama yapmaya çalıştım.şimdiden teşekkür ederim..

 

[hsayar]

1. Sorunuzun cevabı Menüden Veri>Doğrulama, izin verilen Tümsayı, Veri Arasında, En az 0 En çok 100

2. sorunuz için daha bakmadım

 

[N.Ziya Hiçdurmaz]

Yanıt

1. sorunuz için Sayfa kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo HATA
If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
If Target.Value > 100 Then
Target.Value = ""
MsgBox "0 İle 100 arası değer girmelisiniz."
End If
Exit Sub
HATA:
End Sub

 

[hsayar]

2. sorunuz için sağ tuşa tıklayınca açılan menüden sili seçince

Hücreleri Sola Sürükle Derseniz mesala a1 i silince b1, a1 in yerinei alır
Hücreleri Yukarı Sürükle Derseniz mesala a1 i silince a2, a1 in yerinei alır

Tüm satır derseniz 1. satı silinir yerine ikinci satır gelir
Tüm Sütun derseniz A sütunu silinir yerine b sütunu gelir

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub satır_sil()
If ActiveCell.Column = 1 Then ActiveCell.EntireRow.Delete
End Sub

 

[microaim]

cevaplar harika...Allah razı olsun..insan böyle cevaplar alınca iştiyakı artıyor.elimizden acizane bir teşekkürden başkası gelmiyor.

 

[Necdet]

Sayın microaim,

Acele etmeyin, apalamadan yürümek olmaz. Elinizden çok şeyler gelecektir, buna emin olunuz.