Giải thích và gỡ rối VBA

[kientung]

chào anh chị

Em có làm 1 file gộp dữ liệu từ file TCR sang file TCR Main

Nhưng lúc chạy thì bị lỗi như dưới

Nhờ anh chị giúp đỡ ạ

 

[BuiQuangThuan]

Sao lại đăng bài ngăn này. Bạn thử kiểm tra dữ liệu cái cột B có thoả mãn không. Tại online điện thoại nên không test được

 

[kientung]

Sao lại đăng bài ngăn này. Bạn thử kiểm tra dữ liệu cái cột B có thoả mãn không. Tại online điện thoại nên không test được

Đăng ở ngăn nào thì tốt hơn vậy anh ơi

E có check ở Cột B rồi nhưng chưa biết thế nào ạ

 

[snow25]

chào anh chị

Em có làm 1 file gộp dữ liệu từ file TCR sang file TCR Main

Nhưng lúc chạy thì bị lỗi như dưới

Nhờ anh chị giúp đỡ ạ

View attachment 245823

Nhìn hình đoán TLot có khả năng 1 ký tự.Nên hàm left nó lỗi.

 

[levanduyet]

chào anh chị

Em có làm 1 file gộp dữ liệu từ file TCR sang file TCR Main

Nhưng lúc chạy thì bị lỗi như dưới

Nhờ anh chị giúp đỡ ạ

View attachment 245823

Em chú ý đoạn

TLot = .Cells(i, 2).Value  'tenlot

Khi em quét đến B15, giá trị ô bị lỗi #DIV/0!
Em thử thay bằng đoạn này xem sao nhé.

TLot = CStr(.Cells(i, 2).Value)  'tenlot

Lê Văn Duyệt

 

[kientung]

Em chú ý đoạn

TLot = .Cells(i, 2).Value  'tenlot

Khi em quét đến B15, giá trị ô bị lỗi #DIV/0!
Em thử thay bằng đoạn này xem sao nhé.

TLot = CStr(.Cells(i, 2).Value)  'tenlot

Lê Văn Duyệt

em cảm ơn anh nhé

chạy Ok rồi a

 

[kientung]

em cảm ơn anh nhé

chạy Ok rồi a

a cho e hỏi thêm 1 xíu

ở file dữ liệu e muốn lây thêm dữ liệu ở mục bôi vàng thì thêm code như dưới vào đúng không anh

Sheet2.Cells(DcuoiM, 13).Value = EData(3, 0) 'moi them
Sheet2.Cells(DcuoiM, 14).Value = EData(3, 1)
Sheet2.Cells(DcuoiM, 15).Value = EData(4, 0)
Sheet2.Cells(DcuoiM, 16).Value = EData(4, 1)