Bitişik hücre güncellendiğinde Excel'de hücreye tarih otomatik olarak nasıl doldurulur?

Bazen, belirli bir sütundaki hücreyi güncellediğinizde, güncellemenin en son tarihini işaretlemek isteyebilirsiniz. Bu makale, bu sorunu çözmek için bir VBA yöntemi önerecektir. Bir hücre güncellendiğinde, bitişik hücre anında geçerli tarihle otomatik olarak doldurulacaktır.

VBA kodu ile bitişik hücre güncellendiğinde hücreye şu anki tarihi otomatik olarak doldurma

VBA kodu ile bitişik hücre güncellendiğinde hücreye şu anki tarihi otomatik olarak doldurma

Diyelim ki güncellemeniz gereken veriler Sütun B'de yer alıyor ve Sütun B'deki bir hücre güncellendiğinde, geçerli tarih Sütun A'daki bitişik hücreye doldurulacak. Ekran görüntüsüne bakın:

Bu sorunu çözmek için aşağıdaki VBA kodunu çalıştırabilirsiniz.

1. Tarihleri bitişik güncellenen hücreye göre otomatik olarak doldurmanız gereken çalışma sayfası sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Görünüm Kodu'nu seçin.

2. Microsoft Visual Basic for Applications penceresinde lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Bitişik hücre güncellendiğinde bir hücreye şu anki tarihi otomatik olarak doldurma

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

Notlar:

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

Şimdi itibaren, Sütun B'deki hücreler güncellendiğinde, Sütun A'daki bitişik hücre anında geçerli tarihle doldurulacaktır. Ekran görüntüsüne bakın:

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel açılır listesinde değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirsiniz?
• Excel açılır listesinde yazarken otomatik tamamlamayı nasıl yapabilirsiniz?