Belli sarta göre silme veya uyarması

[Vedat Özer]

Selamun Aleyküm,

C 13 Hücresinden başlayacak ve c 1000 Hücresine Kadar Olan aradaki veriler.
Mesela c14 hücresine bir değer girdiğimde ve ya yapıştır dediğimde beni uyarması veya yazdıgım gibi veriyi silmesi için gerekli kod.


Şimdiden Herkeze Teşekkür Ederim...

 

[İhsan Tank]

a.s.
syn : Vedat Bey
Neye göre Silip Uyarı Verecek bunu Açıklamamışsınız

 

[Vedat Özer]

Selamun Aleyküm,

C13 İle C1000 Arasında bir veri girişi yaptıgımda otomatik olarak silecek hemen.

 

[Vedat Özer]

Selamun Aleyküm,

Konunun açıklaması biraz eksik olmuş herhalde biraz daha açayım...


Ben diyelimki C14 Hücresine "excelwebtr" yazdım bu yazımı bitirdikten sonra enter tuşuna bastıgımda normal c14 hücresinde "excelwebtr" olması lazım ama öyle bir kod olsun ki bunu yazıp enter tuşuna batıgımda hemen silsin.

Kısaca C13 İle C1000 Arasında ne tür bir veri girersem gireyim makro bunu hemen silsin.





İnşallah Doğru Anlatmışımdır..

 

[usubaykan]

Merhaba;

Sayfanızın kod bölümüne dener misiniz?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C13:C65536]) Is Nothing Then
Range(Cells(Target.Row), Cells(65536, "C")).ClearContents
End If
End Sub

Selamun Aleyküm,

Konunun açıklaması biraz eksik olmuş herhalde biraz daha açayım...


Ben diyelimki C14 Hücresine "excelwebtr" yazdım bu yazımı bitirdikten sonra enter tuşuna bastıgımda normal c14 hücresinde "excelwebtr" olması lazım ama öyle bir kod olsun ki bunu yazıp enter tuşuna batıgımda hemen silsin.

Kısaca C13 İle C1000 Arasında ne tür bir veri girersem gireyim makro bunu hemen silsin.





İnşallah Doğru Anlatmışımdır..

 

[Vedat Özer]

Selamun Aleyküm,

İlginize Teşekkür Ederim.

Denedim Fakat olmadı veya ben yapmamadım.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C13:C1000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
On Error GoTo son
    If Target <> "" Then
        Target.ClearContents
        MsgBox "Bu Alana Giriş Yapılamaz"
        Exit Sub
    End If
son:
Range("C13:C1000").ClearContents
Application.EnableEvents = True
End Sub

Ek olarak, kontrolü güçlendirmek için aşağıdaki kodlarıda ThisWorbook sayfasına yapıştırınız..

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountA([C13:C1000]) > 0 Then
    MsgBox "C13:C1000 Aralığında Veri Olmamalıdır."
    Range("C13:C1000").ClearContents
    ActiveWorkbook.Save
    Exit Sub
End If
End Sub

.

 

[usubaykan]

ALT+F11 tuşlarına basın. Çıkan Basic sayfasında VbaProject(...Dosyanız) oradan uygulamak istediğiniz sayfanın Kod bölümü yani Sayfa1 de bu kodu uygulayacaksınız oraya çift tıklatıp açın. Ve kodları kopyalayın.

Selamun Aleyküm,

İlginize Teşekkür Ederim.

Denedim Fakat olmadı veya ben yapmamadım.

 

[Vedat Özer]

Selamun Aleyküm,


İlgilenen tüm arkadaşlara teşekkür ederim..

 

[usubaykan]

Selamun Aleyküm,


İlgilenen tüm arkadaşlara teşekkür ederim..

Aleyküm Selam,

Rica Ederim. ;-)