टॉगल बटन सक्रिय होने के बाद स्वचालित रूप से अपडेट करने की पंक्तियाँ

Question

मैं कोड (नीचे) बनाने की कोशिश कर रहा हूं ताकि जब टॉगल बटन पर क्लिक किया जाए तो यह पंक्तियों को खोल दे। लेकिन, इसके भीतर कुछ पंक्तियां हैं जिन्हें किसी अन्य सेल के अनुसार अपडेट किया जाना चाहिए और उस सेल वैल्यू के आधार पर कुछ पंक्तियों को छिपा कर रखा जाना चाहिए। नीचे दिया गया कोड काम करता है, लेकिन पंक्तियाँ स्वचालित रूप से अपडेट नहीं होती हैं और मुझे पंक्तियों को छिपाने के लिए टॉगल बटन पर क्लिक करने की आवश्यकता होती है। क्या इसे गतिशील रूप से लिंक करने का एक तरीका है ताकि यह स्वचालित रूप से अपडेट हो जाए कि कौन सी रेखाएं छिपानी हैं? धन्यवाद

Dim xAddress As String
xAddress = "55:136"
If Progress.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
    If Range("I24").Value = "Yes" Then
        Rows("92:102").EntireRow.Hidden = False
        Rows("103:110").EntireRow.Hidden = True
    ElseIf Range("I24").Value = "No" Then
        Rows("92:102").EntireRow.Hidden = True
        Rows("103:110").EntireRow.Hidden = False
    End If
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If

Answer 1

यदि Progressसभी श्रेणियों के साथ शीट 1 पर टॉगल बटन है, तो इसे शीट 1 मॉड्यूल में रखें

---

Option Explicit

Private Sub Progress_Click()
    Dim rngI24 As Boolean

    rngI24 = Me.Range("I24").Value2 = "Yes"

    Me.Rows("55:136").Hidden = Me.Progress.Value
    Me.Rows("92:102").Hidden = Not rngI24
    Me.Rows("103:110").Hidden = rngI24
End Sub