1 ile 10 arası olan satırları silinmesini engellemek

[hsynkrky]

Vba da 1 den 10 a kadar olan satırların silinmesini nasıl engellerim
şimdiden çok teşekkür ederim.

 

[Murat OSMA]

ThisWorkbook kod sayfasına aşağıdaki kodları yapıştırabilirsiniz.
Verilen hücre aralığını istediğiniz gibi değiştirebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Workbook_Open()
    Sayfa1.[COLOR="Red"]ScrollArea[/COLOR] = "[COLOR="blue"]A11:Z10000[/COLOR]"
End Sub[/SIZE][/FONT]

 

[hsynkrky]

çok teşekkür ederim murat bey işe yaradı yanlız hücreleri a11 kadar olan aralıklardaki hücreleri seçmem üzerine veri girmem gerekiyor bu kodda sanırım bu mümkün değil.

 

[Murat OSMA]

Verdiğim kod çalışma sayfasındaki alanı sınırlandırır.​

 

[hsynkrky]

[ındent][sıze="2"]verdiğim kod çalışma sayfasındaki alanı sınırlandırır.[/sıze][/ındent]

evet doğru sınırlandırıyor benim istediğin a1 ile p10 arasında değişken verileri giriyorum yanlışlıkla bu satırlarIN SİLİNMEMESİ. YANİ sadece satırların silinmesini engellemek sınırlandırmasına gerek yok.

 

[Ömer BARAN]

Merhabalar.
Sayın OSMA'nın müsadesiyle bir önerim olacak.
Ekteki belgeyi dener misiniz?

Belge BURADA.

 

[hsynkrky]

TEŞEKKÜRLER ÖMER BARAB NU TAM İSTEDİĞİM GİBİ ELLERİNE SAĞLIK İYİÇALIŞMALAR.

Merhabalar.
Sayın OSMA'nın müsadesiyle bir önerim olacak.
Ekteki belgeyi dener misiniz?

 

[Murat OSMA]

evet doğru sınırlandırıyor benim istediğin a1 ile p10 arasında değişken verileri giriyorum yanlışlıkla bu satırlarIN SİLİNMEMESİ. YANİ sadece satırların silinmesini engellemek sınırlandırmasına gerek yok.

Anladım.

Bu kodları ilgili sayfanın kod kısmına yazarak kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo sil
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Len(Trim(Target.Value)) = 0 Then Application.Undo
    End If
devam:
    Application.EnableEvents = True
    Exit Sub
sil:
    Application.Undo
    Resume devam
End Sub[/SIZE][/FONT]

Merhabalar.
Sayın OSMA'nın müsadesiyle bir önerim olacak.
Ekteki belgeyi dener misiniz?

Belge BURADA.

Örnek için teşekkürler Ömer Bey, basit (kullanışlı) bir çözüm olmuş.

Saygılar​