Makro ile Hücre bilgisi sabitleme

[gezin23]

Herkese Selamlar. Ekteki dosyayı inceleyebilirseniz, yardımlarınızı bekliyorum.
Hücreleri sildiğimde hücre bilgilerinin, sadece ilk sütun ve ilk satırdaki bilgilerin değişmeden kalmasını istiyorum.

 

[Erdem Akdemir]

Sayfa özelliklerine,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then Exit Sub
Application.EnableEvents = False
Range("a1") = "TCKN"
Range("b1") = "Veri Tip"
For i = 1 To 31
Cells(1, i + 2) = "Gun" & i
Next i
Application.EnableEvents = True
End Sub

 

[tropique]

Merhaba,

Dosyanız açılırken hata veriyor, ama yanlış anlamadıysam, şu kod işiniz görebilir. kendinize göre uyarlayabilirsiniz. A1,A2 hücreleri içine siz silseniz bile ABC, XYZ olarak yazılacaktır.

Kodu hangi sayfaya uygulamak istiyorsanız onun kod ekranına yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("a1").Value = "ABC"
Range("a2").Value = "XYZ"

End Sub

 

[gezin23]

Çok teşekkürler arkadaşlar. Her iki cevap da istediğim gibi