Bazi sutunlari silmeye engellemek

[cagataybaser]

Merhabalar,
B sutunundan AA sutununa kadar sutunlarin silinememesini fakat degisiklik yapilabilmesini istiyorum.
Nasil yapilabilir?
Saygilarimla

 

[ynmcan]

Sayın Cagataybaser;

İstediğinizi yardımcı bir sayfa kullanarak yapmaya çalıştım.
Kod Çalıştığınız sayfayı Sayfa1 varsayarak, kopyasını Sayfa2 ye atıyor.
Sayfa1 de [B:AA] aralığındaki en son dolu satıra kadar daha önce veri olan hücreleri silerseniz Sayfa2 den sildiğiniz veriyi geri getiriyor. Veriyi değiştirirseniz değiştirdiğiniz gibi kalıyor.

Ekteki Örnek dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For X = 2 To 26
    SATIR = Cells(65536, X).End(3).Row + 1
    SON_SATIR = WorksheetFunction.Max(SON_SATIR, SATIR)
Next X

For sat = 1 To SON_SATIR
For sut = 2 To 26

If Sayfa1.Cells(sat, sut) = "" Then
    Sayfa1.Cells(sat, sut) = Sayfa2.Cells(sat, sut)
End If
    Sayfa2.Cells(sat, sut) = Sayfa1.Cells(sat, sut)
Next sut
Next sat
    
End Sub