DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.FormulaR1C1 = "=RC[1]+1"
End If
End Sub
Teşekürler deneyip paylaşım yapacağım.A1 hücresinde, B1 hücresini 1 ile toplayan bir formül(=B1+1) varsa
İlgili sayfanın kod modülüne aşağıdaki kodu yazın.
A1 hücresinde bir değişiklik yapılınca, tekrar bu formülü A1 hücresine yazacaktır.Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Target.FormulaR1C1 = "=RC[1]+1" End If End Sub
Ancak merak ettim, koruma şifresini kıran biri, bu makroyu da silemez mi?
Dim a
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Or Target.Address = "$A$4" Or Target.Address = "$A$5" Then
Target.Formula = a
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Formula
End Sub