สอบถามการ check ข้อมูลระหว่าง sheet เป็นช่วง ๆ ที่มีข้อมูลเพิ่มขึ้นทุกเดือน ด้วย vba

[lumi]

สอบถามการเขียน vba excel เพื่อหาข้อมูลเริ่มต้นและสิ้นสุดได้อย่างไรค่ะ
จาก file ที่แนบมา ต้องการนำ ข้อมูล sheet List_User ไป check กับ sheet
ย่อยที่ข้อมูลจะเปลี่ยนไปทุกเดือน
และ sheet List_User จะมีข้อมูลเพิ่มขึ้นในแต่ละหัวทุกเดือน
จากสูตร vba ที่เขียนมาต้องเข้าไปเปลี่ยนบรรทัดเริ่มต้นและสิ้นสุดของแต่ละหัวข้อ
ทุกเดือนเมื่อบรรทัดขยับ ขอคำแนะนำด้วยค่ะ ยังไม่เก่ง vba กำลังลองทำโดยดู
จากหนังสือเอาค่ะ รบกวนด้วยนะคะ ได้แนบ code มาให้ด้วยค่ะ

Code: Select all

Private Sub CheckSA2100_Click()
Application.ScreenUpdating = False
Dim r, r1, r2, rCode, rCode1 As Range
Dim rCTCode As String

With Sheets("List_User")
    Set rCode = .Range("c6:c16").SpecialCells(xlCellTypeConstants)
End With

For Each r In rCode
'    If r.Value = "**" Then Exit For
    rCTCode = r.Value
        
        With Sheets("SA2100000")
            Set rCode1 = .Range("c:c").SpecialCells(xlCellTypeConstants)
            For Each r1 In rCode1
                If r1.Value = rCTCode Then
                    r.Offset(, 19) = "Yes"
                    r.Offset(, 19).Font.Color = RGB(0, 0, 0)
                ElseIf r1.Value <> rCTCode Then
                    If r.Offset(, 19) = "" Then
                        r.Offset(, 19) = "No"
                        r.Offset(, 19).Font.Color = RGB(255, 0, 0)
                    End If
                End If
            Next r1
        End With
Next r
Application.ScreenUpdating = True
Sheet1.Select
End Sub

[logic]

ยังไม่เห็นไฟล์แนบ ลองแนบมาอีกทีนะครับ

[lumi]

File แนบค่ะ

[logic]

จากสูตร vba ที่เขียนมาต้องเข้าไปเปลี่ยนบรรทัดเริ่มต้นและสิ้นสุดของแต่ละหัวข้อ

ลองปรับเป็นแบบนี้ครับ

Code: Select all

'...

Dim rCTCode As String, l As Integer

With Sheets("List_User")
    l = Application.Match("SA2100", .Range("B:B"), 0) + 1
'    Set rCode = .Range("c6:c16").SpecialCells(xlCellTypeConstants)
    Set rCode = .Range("C" & l, .Range("C" & l).End(xlDown))
End With
'...

[lumi]

ทำได้แล้วค่ะ ขอบคุณมาก ๆ นะคะ