Tìm kiếm và copy giá trị từ bảng đến bảng khác (3 người xem)

[vnproc]

Chào mọi người,

Mình đang có 1 bảng có các giá trị tổng tháng các mã hàng theo các cột. Mình cần viết 1 module VBA để copy các giá trị đến bảng 2 có các mã hàng tương ứng.
Mong mọi người giúp đỡ.

Cảm ơn

(File mẫu mình đính kèm ở đây)

 

[Hoàng Tuấn 868]

Mình cần viết 1 module VBA để copy các giá trị đến bảng 2 có các mã hàng tương ứng.

Bài này đâu đã cần dùng đến vba nhỉ.

 

[vnproc]

Bài này đâu đã cần dùng đến vba nhỉ.

Mình biết có thể dùng hàm từ Excel. Nhưng đây là mẫu mình đưa lên còn thực thế các tháng sẽ phát sinh nhiều nữa.
Với lại mình cũng đang học VBA

 

[BuiQuangThuan]

Mình biết có thể dùng hàm từ Excel. Nhưng đây là mẫu mình đưa lên còn thực thế các tháng sẽ phát sinh nhiều nữa.
Với lại mình cũng đang học VBA

Nhất định phải là code thì thử code này coi sao?

Sub ABC()
    Dim Thang, Rng As Range, iR&
    With Sheet1
        Thang = .Range("C2").Value2
        iR = .Range("C" & Rows.Count).End(3).Row
        Set Rng = .Range("C7:C" & iR)
        If .Rows("7:7").Find(Thang).Column > 0 Then
            Rng.Copy .Range("P7")
            .Cells(8, .Rows("7:7").Find(Thang).Column).Resize(Rng.Rows.Count - 1).Copy .Range("Q8")
        End If
    End With
End Sub

 

[SA_DQ]

Nhất định phải là code thì thử code này coi sao?

Sub ABC()
    Dim Thang, Rng As Range, iR&
    With Sheet1
        Thang = .Range("C2").Value2
        iR = .Range("C" & Rows.Count).End(3).Row
        Set Rng = .Range("C7:C" & iR)
6        If .Rows("7:7").Find(Thang).Column > 0 Then
            Rng.Copy .Range("P7")
            .Cells(8, .Rows("7:7").Find(Thang).Column).Resize(Rng.Rows.Count - 1).Copy .Range("Q8")
        End If
    End With
End Sub

Câu lệnh mang số 6 của bạn chứa lỗi tiềm tàng
Ví dụ trong cả dòng 7 không có Thang (do nhập sai chính tả,. . . ) thì sẽ ra sao?!

 

[BuiQuangThuan]

Câu lệnh mang số 6 của bạn chứa lỗi tiềm tàng
Ví dụ trong cả dòng 7 không có Thang (do nhập sai chính tả,. . . ) thì sẽ ra sao?!

Cám ơn chú nhắc nhở. Code không bẫy lỗi. Thớt có thể dựa vào gợi ý trên tự bẫy lỗi

 

[vnproc]

Nhất định phải là code thì thử code này coi sao?

Sub ABC()
    Dim Thang, Rng As Range, iR&
    With Sheet1
        Thang = .Range("C2").Value2
        iR = .Range("C" & Rows.Count).End(3).Row
        Set Rng = .Range("C7:C" & iR)
        If .Rows("7:7").Find(Thang).Column > 0 Then
            Rng.Copy .Range("P7")
            .Cells(8, .Rows("7:7").Find(Thang).Column).Resize(Rng.Rows.Count - 1).Copy .Range("Q8")
        End If
    End With
End Sub

Cảm ơn bạn nhiều nhé.

 

[SA_DQ]

. . . . Nhập tháng của năm vào C2
Khi click Copy thì chức năng sẽ copy các giá trị tương ứng với C2 từ bảng sp theo Mahang sang bang Tongthang

Bài tập dành cho @Chủ bài đăng:
(Thay vì nhập chuỗi tháng-năm vô ô C2) Ta tạo tại [C2] 1 ComboBox với nguồn của nó là các trị tháng-năm từ/của dòng 7
Lúc đó ta biến macro ở #4 thành 1 macro sự kiện để cho ta kết quả báo cáo cần thiết

[Nếu sau 36 giờ mà chủ bài đăng chưa viết được thì sẽ được giúp, phải vậy không các tác giả bài đăng trong chủ đề này!]

 

[vnproc]

Bài tập dành cho @Chủ bài đăng:
(Thay vì nhập chuỗi tháng-năm vô ô C2) Ta tạo tại [C2] 1 ComboBox với nguồn của nó là các trị tháng-năm từ/của dòng 7
Lúc đó ta biến macro ở #4 thành 1 macro sự kiện để cho ta kết quả báo cáo cần thiết

[Nếu sau 36 giờ mà chủ bài đăng chưa viết được thì sẽ được giúp, phải vậy không các tác giả bài đăng trong chủ đề này!]

Cảm ơn bạn.

Mình đã test chức năng trên. Nhưng có 1 vấn đề là khi bảng cần lấy có ít mã hàng hơn thì chức năng vẫn copy nguyên sang các mã hàng ko cần lấy.
Chức năng không vlookup mã hàng từ bảng 1 sang 2 và lấy số lượng từ bảng 1 theo mã hàng

Ví dụ Mình chỉ cần lấy ngẫu nhiên trong bảng này 2 mã hàng của tháng 2/2023
Bảng 1

Mahang	Tên Sp	Jan '23	W1	W2	Feb '23
100A	Sp 1A	1,001​	122​	122​	229​
100B	SP 1B	181​	125​	125​	366​
200A	SP 2A	229​	128​	128​	15​
200B	SP 2B	39​	131​	131​	7​
210C	SP 2C	820​	134​	134​	956​

Bảng 2

Mahang	Tong Tháng
100A	229​
100B	366​

Cảm ơn