Nhờ anh em GPE viết hộ code copy từ sheet DGCT qua Sheet Du toan (1 người xem)

[vndat]

Mình kèm theo file trong đó có code mình chưa có lối ra

 

[SA_DQ]

Bạn thử làm theo hướng dẫn sau đây

Bạn đến trang tính 'DGCT' & nhập vô [AA2] trị trong [D35]
Nhập tương tự vô [AA3] trị ở [D39]
& [AA4] là [d11]
Sau đó gán vùng 3 ô này cái tên 'MCV" (Nếu không thích bạn có thể thay bằng tên khác, nhưng cần đổi luôn tên trong macro sau)

 Optiion Explicit
[B]Sub CopyAll()[/B] 
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim Rg0 As Range, Cll As Range, SRg As Range
 Dim MyAdd As String
 
 Sheets("DuToan").Select
 Set Sh = ThisWorkbook.Worksheets("DGCT")
 Sh.[C65500].End(xlUp).Offset(1, -1).Value = "GPE"
 Set Rng = Sh.Range(Sh.[B7], Sh.[B65500].End(xlUp))
 [f8].Resize(9 * Rng.Rows.Count, 7).ClearContents
 For Each Cls In Range([b8], [b8].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        Set Rg0 = Sh.Range(sRng, sRng.End(xlDown).Offset(-1)).Offset(, 2)
        For Each Cll In Sh.Range("MCV")
            Set SRg = Rg0.Find(Cll.Value)
            If Not SRg Is Nothing Then
                Cls.Offset(, 5 + Cll.Row).Value = SRg.Offset(, 4).Value
            
            End If
        Next Cll
    Else
        Cls.Interior.ColorIndex = 38
    End If
 Next Cls
 Randomize
 [f6].Resize(, 3).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
[B]End Sub[/B]

Những mong là khỏi gởi file lên!

 

[vndat]

rất cảm ơn bạn nhưng bạn hiểu sai ý mình rồi
- Mình đã có code phần chuyển từ sheet DGCT qua Sheet dutoan ( phần màu đen trong sheet dutoan)
Phần màu xanh trong sheet dutoan mình chưa viết được. mong bạn nghiên cứu giúp hộ.
mình gửi lại file đính kèm.

 

[SA_DQ]

Đúng là chưa hiểu được í bạn!

. . . nhưng bạn hiểu sai ý mình rồi
- Mình đã có code phần chuyển từ sheet DGCT qua Sheet dutoan ( phần màu đen trong sheet dutoan)
Phần màu xanh trong sheet dutoan mình chưa viết được. mong bạn nghiên cứu giúp hộ.

Mã hàng AE 11925, AE 11915 & AE 12515 ở trang 'DGCT' không có thì bạn lấy số liệu ở đâu cho vô các cột đơn giá làm vậy?

Mà nữa, mã hàng AE 11110 có 3 dòng vật liệu gồm 'Đá hộc', 'Đá 4*6' & 'Vữa' thì bạn bốc số liệu 3.35 bỏ vô cột đơn giá là sao?

(Hay chúng có cùng đơn vị tính là m3 nên lấy trung bình?
Mà cũng khó xuôi, khi đơn vị tính các dòng khác nhau thì mần răng?)

Chịu . . . .!

 

[vndat]

Cảm ơn bạn!
- phần mã hiệu AE 11925, AE 11915 & AE 12515 ở trang 'DGCT' không có thì bạn lấy số liệu ở đâu cho vô các cột đơn giá làm vậy? là mình sai rồi, mình mới chạy tớí đơn giá chi tiết mà chưa chạy qua sheet dự toán và mình đã chạy lại rồi, bạn xem hộ
-mã hàng AE 11110 có 3 dòng vật liệu gồm 'Đá hộc', 'Đá 4*6' & 'Vữa' thì bạn bốc số liệu 3.35 bỏ vô cột đơn giá là sao? là đúng đó bạn vì trong hạng mục công việc AE 11110 thì vật liệu: Vattu = "V" & ChrW(7853) & "t li" & ChrW(7879) & "u" trong đơn giá chi tiết là cộng tất cả các vật liệu đó lại ( thủ tục này mình đã làm được rồi)
mình gửi file lại bạn nhé

 

[SA_DQ]

[thongbao]Mình chỉ lấy 3 cột đơn giá thôi; 3 cột sau chúng bạn đã sẵn công thức rồi mà![/thongbao]

 

[vndat]

Cảm ơn bác! em đã thử nghiệm và xài rất tốt; tuy nhiên nều kết để trong một workbook có môdun open để mở Dic thì bó tay không chạy được, bác xem hộ em. (em xài code open mở Dic trong hướng dẫn dùng code thay hàm vlookp)