Copy Giá Trị ( Xong)

[Duchuy2821]

Chào các anh chị, nhờ mọi người giúp em với ạ. Những màu được tô sử dụng Duplicate nên khi sử dụng code "Cells(i, 1).Interior.ColorIndex" nó đều trả về giá trị -4241
Code của em như sau nhờ mọi người sửa giúp ạ:
Sub xuatgiatritheomau()
Dim d As double
Dim i As Long
Dim dongcuoi As Long
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
dongcuoi = sh.Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
d = -4142
For i = 3 To dongcuoi
If Cells(i, 1).Interior.ColorIndex = d Then
Cells(i, 6).Value = Cells(i, 1).Value
End If
Next
End Sub

 

[BuiQuangThuan]

Cái yêu cầu số 3 là thế nào vậy

 

[Duchuy2821]

Cái yêu cầu số 3 là thế nào vậy

Dạ là gom Tồn 1 (Cột F) và Tồn 2 (Cột G) vào cột Tồn Tổng

 

[BuiQuangThuan]

Dạ là gom Tồn 1 (Cột F) và Tồn 2 (Cột G) vào cột Tồn Tổng

Sao nó ra được cái số 333 vậy

 

[Duchuy2821]

Sao nó ra được cái số 333 vậy

Tức là những ô nào không tô màu thì sẽ trích nó sang tồn 1 và tồn 2 á a

 

[Hoàng Tuấn 868]

Sao nó ra được cái số 333 vậy

Bài này chắc viết code mới nhanh hơn.

 

[Duchuy2821]

Bài này chắc viết code mới nhanh hơn.

dạ nhờ a giúp em với

 

[Hoàng Tuấn 868]

dạ nhờ a giúp em với

Bạn sửa hết mấy chữ viết tắt rồi bàn tiếp nhỉ.

 

[BuiQuangThuan]

Tức là những ô nào không tô màu thì sẽ trích nó sang tồn 1 và tồn 2 á a

Bạn sử dụng conditional để bôi màu, Chính vì thế code của bạn hoạt động không có chuẩn

 

[sangh]

Bạn sử dụng conditional để bôi màu, Chính vì thế code của bạn hoạt động không có chuẩn

Nên ô nào cũng ra một số -4142