DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim OncekiDeger As Double
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsNumeric(Target) Then Target = Target + OncekiDeger
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Target) Then OncekiDeger = Target
End Sub
hocam tam olarak nasıl yapacağım bulamadım ve excelde yeni sayılırımMerhaba.
Bu istediğiniz şey kod ile olabilir.
Excel sayfasının ismini (altta bulunan sayfa isimleri) sağ tıklatın, kod görüntüle seçin, açılan sayfaya aşağıdaki kodları kopyalayın.
Kod:Dim OncekiDeger As Double Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target = Target + OncekiDeger Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsNumeric(Target) Then OncekiDeger = Target End Sub
hocam teşekkür ederim şimdi bi başka sorum var bu işlemi yaptığımda isim yazmam lazım ama onda hata alıyorum (örnek elektrik yazdığımda hata veriyor bunun hata vermemesi için ne yapabilirim aynı kod geçerli olacak amaExcel dosyasının en alt sol kısımda sayfa isimleri yok mu?
Sayfa1, Sayfa2, Sayfa3 yazar.
Sizin bu işlemi yapmak istediğiniz sayfayı açın sonra sayfa ismini sağ tıklatın, Kod görüntüle seçin açılan sayfaya kodu yapıştırın.
hocam olmuyor 0 yazınca diğer 270 zaten orada beliriyor sonrasında yazdığım 90 da üzerine eklenip 360 oluyorO zaman önce sıfır yazın sonra düzenlemek istediğiniz rakamı yazın.
Yani hücrede 270 yazıyorsa ve siz 90 yazmasını istiyorsanız
270 yazan hücreye önce 0(sıfır) yazın sonra 90 yazın.
hocam saolun bu daha çok işe yararyanlış söyledim sıfır değil -270 yazın.