Excel'de bir hücredeki değişen değerler nasıl kaydedilir?
Excel'de sıkça değişen bir hücrenin her yeni değerini nasıl kaydedebilirsiniz? Örneğin, C2 hücresindeki orijinal değer 100 olsun. Bu değeri 200 olarak değiştirdiğinizde, önceki değer olan 100 otomatik olarak D2 hücresine kaydedilsin. Ardından 200’ü 300 ile değiştirdiğinizde, 200 değeri D3 hücresine eklensin; 300’ü 400 yaparsanız, 300 değeri bu kez D4 hücresine yerleştirilsin ve bu işlem her değişiklikte devam etsin. Bu makaledeki yöntem, tam olarak bunu gerçekleştirmenize yardımcı olur.
Değişen değerleri bir hücrede VBA koduyla kaydetme
Değişen değerleri bir hücrede VBA koduyla kaydetme
Aşağıdaki VBA kodu, Excel'de bir hücredeki her değişikliği kaydetmenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın.
1. Değişen değerlerini kaydetmek istediğiniz hücreyi içeren çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Ardından Microsoft Visual Basic for Applications penceresi açılır; lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA kodu: bir hücredeki değişen değerleri kaydetme
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End SubNotlar: Kodda C2, tüm değişen değerlerin kaydedileceği hücredir. D2 ise C2'nin ilk değişen değerinin yerleştirileceği hücredir.
3. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.
Artık C2 hücresindeki değeri her değiştirdiğinizde, önceki değerler D2 hücresine ve altındaki hücrelere kaydedilecektir.
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— tek tek eklenti satın alımına göre tasarruf edin