Tìm gía trị của một cell

[cbtm]

NHỜ CÁC BẠN XEM HỘ MÌNH MỘT SỐ ERROR SAU

Dim TotalValue
        TotalValue = 0
    With Workbooks("JOLIE NAIL SPA INCOME.xls")
    Sheets("SALE").Select
    Range("A1").Select
   
     Do Until ActiveCell.Value = Empty
    If ActiveCell.Value = "DATE" Then
        ActiveCell.Offset(1, 0).Select
        
   [COLOR=Red] ElseIf DateValue(ActiveCell.Value) = DateValue(GIFTCERTIFICATE.DTPicker5) Or _
        DateValue(ActiveCell.Value) > DateValue(GIFTCERTIFICATE.DTPicker5) Then
           If DateValue(ActiveCell.Value) = DateValue(GIFTCERTIFICATE.DTPicker5.Value) Or _
                DateValue(ActiveCell.Value) < DateValue(GIFTCERTIFICATE.DTPicker5.Value) [/COLOR]Then
                TotalValue = TotalValue + ActiveCell.Offset(0, 2)
                ActiveCell.Offset(1, 0).Select
            Else
                ActiveCell.Offset(1, 0).Select
           End If
       
          Else
        ActiveCell.Offset(1, 0).Select
    End If
    
    Loop
    Select Case TotalValue
        Case 0
            GIFTCERTIFICATE.TextBox8.Value = "$" & "0"
        Case Is > 0
            GIFTCERTIFICATE.TextBox8.Value = "$" & TotalValue
    End Select
    End With
   End Sub

MÌNH CÓ G