VBA - डेटा जब सेल में प्रवेश करता है तो ऑटो-पॉपुलेट डेट

Question

मेरे पास एक ट्रैकिंग स्प्रेडशीट है जहां मैं चाहूंगा कि अगले कॉलम में ऑटो-पॉप्युलेट करने के लिए एक सेल पूरी हो जाए। मुझे निम्नलिखित कोड मिला जो पहले (I: I) के लिए काम करता है, लेकिन मैं उसी कोड को 5 अन्य कॉलमों में जोड़ना चाहता हूं (अर्थात जब डेटा K1 में दर्ज किया जाता है, तो तारीख L1 में पॉप्युलेट हो जाती है, जब P1 में डेटा दर्ज किया जाता है। , तारीख Q1 में आबाद है)।

मैंने पहले कभी VBA का उपयोग नहीं किया है। मैंने कोड को कॉपी / पेस्ट करने और रेंज बदलने की कोशिश की, लेकिन मुझे एक अस्पष्ट नाम त्रुटि मिली। मैं नाम कैसे बदलूं ताकि मैं कोड का पुन: उपयोग कर सकूं?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, B As Range, Inte As Range, r As Range
    Set A = Range("I:I")
    Set Inte = Intersect(A, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In Inte
            r.Offset(0, 1).Value = Date
        Next r
    Application.EnableEvents = True
End Sub

धन्यवाद,

मेलानी

Answer 1

कई स्तंभों को शामिल करने का परिवर्तन काफी सरल है। कोड की केवल एक पंक्ति को बदलना होगा:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("I:I,K:K,P:P")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub

Application.EnableEvents = False
    For Each r In Inte
        r.Offset(0, 1).Value = Date
    Next r
Application.EnableEvents = True
End Sub

यह कॉलम की निगरानी करेगा मैं , कश्मीर , तथा पी