Nhờ Anh/Chị hỗ trợ lỗi đoạn code.

Liên hệ QC
Status
Không mở trả lời sau này.

phanvantruong

Thành viên chính thức
Tham gia
1/7/10
Bài viết
52
Được thích
1
Nghề nghiệp
Warehouse
Kính gửi Anh/Chị/Em diễn đàn !
Em hiện tại đang có 1 tình huống code chỉ chạy đoạn sau Elseif đoạn dò if không lên được giá trị như yêu cầu.
For Each rng1 In Workbooks(ten_fileF).Sheets("F PORT").Range("I8:V8")
If rng1.Value = "Nightshift" Then
Sheet4.Range("J8").Value = rng1.Offset(, 1)
ElseIf rng1.Value = "Dayshift:" Then
Sheet4.Range("J8").Value = rng1.Offset(, 1)

End If
Next
 
Kính gửi Anh/Chị/Em diễn đàn !
Em hiện tại đang có 1 tình huống code chỉ chạy đoạn sau Elseif đoạn dò if không lên được giá trị như yêu cầu.
For Each rng1 In Workbooks(ten_fileF).Sheets("F PORT").Range("I8:V8")
If rng1.Value = "Nightshift" Then
Sheet4.Range("J8").Value = rng1.Offset(, 1)
ElseIf rng1.Value = "Dayshift:" Then
Sheet4.Range("J8").Value = rng1.Offset(, 1)

End If
Next
Có khả năng bị 100 dạng lỗi, nên không biết lỗi gì nếu không có file
 
Upvote 0
Status
Không mở trả lời sau này.
Web KT
Back
Top Bottom