엑셀 VBA 형식 불일치 오류 13

Question

가 계속 나는 잘 어제 코드

Private Sub Filter_Click() 
Dim i As Long 

For i = 2 To 75000 
If Sheets("Scale Data").Cells(i, 5) = True Then 
Sheets("Filtered Data").Rows(i).Value = Sheets("Scale Data").Rows(i).Value 
End If 
Next i 

End Sub 

아래의 코드 라인 4 형식 불일치 오류 (13) 근무가 계속 데이터 비트 지금은 아무것도를 변경 .. ..

아무도 도와 줄 수 있습니까? 나는 비슷한 게시물을 많이 썼지 만 대답을 얻지 못하는 것 같습니다. 당신은 당신의 루프에 Debug.Print 줄을 추가하고 값을 분석해야 사전

Answer 1

에

덕분에이 도움이 될 것입니다

For i = 2 To 75000 
    ' add this line 
    Debug.Print Sheets("Scale Data").Cells(i, 5) 

    If Sheets("Scale Data").Cells(i, 5) = True Then 
    Sheets("Filtered Data").Rows(i).Value = Sheets("Scale Data").Rows(i).Value 
    End If 
Next i 

희망 (그것은 부울 유형하지 않을 수 있습니다).