Değerli arkadaşlar,
7 sayfadan oluşan bir excel çalışma kitabım var.
Sayfa1’de öğrencilerin ad ve numara bilgileri var. C7: D7'den C66: D66'ya kadar.
Her öğrenci için Sayfa2'den Sayfa7'ye kadar olan sayfaların tümünde not yazılabilen yerler var. Buralar E7:AM7 aralığı ve AT7:BA7 aralıkları.
Bu aralıklar Sayfa2'den Sayfa7'ye kadar olan tüm sayfalarda her öğrenci için aşağı doğru E66:AM66 ve AT66:BA66'ya kadar iniyor.
İHTİYAÇ
A) Sayfa1’deki öğrenci ve numaraları Sayfa2'den Sayfa7'ye kadar olan sayfaların E7:AM7 aralığı ve AT7:BA7 aralıklarında(her öğrencinin ilişkili olduğu satırda) herhangi bir veri varsa silinememesi.
B) Silmek istendiğinde "Burayı silemezsiniz." uyarısının çıkması.
Örnek:
Sayfa1'deki C15: D15'te öğrencinin adı ve numarası var.
Sayfa2 ... Sayfa7 arasındaki sayfaların (E15:AM15 ve AT15:BA15) aralıklarında bir tane bile veri varsa Sayfa1 C15: D15'in silinememesi.
Yani E15:AM15 ve AT15:BA15 tamamen boşa eşit değilse silinememesi.
http://s3.dosya.tc/server14/xt946v/sileme.rar.html
Bu soruyu daha önce veri doğrulama ile ilgili sormuştum. Oradan olmuyormuş. Korhan Bey aşağıdaki makroyu önermişti. Makronun baktığı aralıkları düzenlemeyi bilmediğimden yardımlarınızı talep ederim.
Makro B1:B10'da veri varsa A1:A10 aralığında karşısında bulunan veriyi sildirmiyor.
7 sayfadan oluşan bir excel çalışma kitabım var.
Sayfa1’de öğrencilerin ad ve numara bilgileri var. C7: D7'den C66: D66'ya kadar.
Her öğrenci için Sayfa2'den Sayfa7'ye kadar olan sayfaların tümünde not yazılabilen yerler var. Buralar E7:AM7 aralığı ve AT7:BA7 aralıkları.
Bu aralıklar Sayfa2'den Sayfa7'ye kadar olan tüm sayfalarda her öğrenci için aşağı doğru E66:AM66 ve AT66:BA66'ya kadar iniyor.
İHTİYAÇ
A) Sayfa1’deki öğrenci ve numaraları Sayfa2'den Sayfa7'ye kadar olan sayfaların E7:AM7 aralığı ve AT7:BA7 aralıklarında(her öğrencinin ilişkili olduğu satırda) herhangi bir veri varsa silinememesi.
B) Silmek istendiğinde "Burayı silemezsiniz." uyarısının çıkması.
Örnek:
Sayfa1'deki C15: D15'te öğrencinin adı ve numarası var.
Sayfa2 ... Sayfa7 arasındaki sayfaların (E15:AM15 ve AT15:BA15) aralıklarında bir tane bile veri varsa Sayfa1 C15: D15'in silinememesi.
Yani E15:AM15 ve AT15:BA15 tamamen boşa eşit değilse silinememesi.
http://s3.dosya.tc/server14/xt946v/sileme.rar.html
Bu soruyu daha önce veri doğrulama ile ilgili sormuştum. Oradan olmuyormuş. Korhan Bey aşağıdaki makroyu önermişti. Makronun baktığı aralıkları düzenlemeyi bilmediğimden yardımlarınızı talep ederim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not IsEmpty(Target.Next) Then
Application.Undo
End If
Application.EnableEvents = True
End Sub