Cách tạo mã code VBA cho hàm vloopkup, chèn thêm dòng dữ liệu

[Huonggiang13]

Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.

 

[BuiQuangThuan]

Tạo nhiều topic thế bạn

 

[Maika8008]

Tạo nhiều topic thế bạn

Bên kia bị bể sô rồi.

 

[Huonggiang13]

Bên kia bị bể sô rồi.

Em đăng mới viết chi tiết hơn và rõ hơn. Anh giúp em nhé

Bài đã được tự động gộp: 12/4/23

Tạo nhiều topic thế bạn

Dạ bên kia em nói không rõ nên e đang lại, trình bầy rõ hơn để nhờ mọi người giúp ạ
Anh giúp em với ạ

 

[Hoàng Tuấn 868]

Em đăng mới viết chi tiết hơn và rõ hơn. Anh giúp em nhé

Dạ bên kia em nói không rõ nên e đang lại, trình bầy rõ hơn để nhờ mọi người giúp ạ
Anh giúp em với ạ

1/ Bạn không nên sốt ruột, các thành viên có giúp bạn thì cũng cần thời gian suy nghĩ, viết code, chạy thử, chỉnh sửa... Có thể còn phải hỏi thêm một số ý chưa rõ.
Ví dụ:
A/ Ở file này của bạn tại sheet Điều tra có mã mà bên sheet Dữ liệu không có mã đó thì để trống hay xóa đi hay thế nào...
B/ Nếu lấy hết dữ liệu bên sheet Dữ liệu sang sheet Điều tra thì copy là xong chứ cần gì phải dùng Vlookup nhỉ?
2/ Bạn vội vàng quá nên lại mắc lỗi nữa rồi kìa, chữ đỏ đỏ đó.

 

[Huonggiang13]

1/ Bạn không nên sốt ruột, các thành viên có giúp bạn thì cũng cần thời gian suy nghĩ, viết code, chạy thử, chỉnh sửa... Có thể còn phải hỏi thêm một số ý chưa rõ.
Ví dụ:
A/ Ở file này của bạn tại sheet Điều tra có mã mà bên sheet Dữ liệu không có mã đó thì để trống hay xóa đi hay thế nào...
B/ Nếu lấy hết dữ liệu bên sheet Dữ liệu sang sheet Điều tra thì copy là xong chứ cần gì phải dùng Vlookup nhỉ?
2/ Bạn vội vàng quá nên lại mắc lỗi nữa rồi kìa, chữ đỏ đỏ đó.

1/ em không sốt ruột nhưng mong anh và mọi người giúp em
A/ Nếu ở sheet Điều tra có mã mà bên sheet dữ liệu không có mã đó thì để trống
B/ Vì đây chỉ là VD thôi em cần link dữ liệu hàng trăm hàng, và các công đoạn khác nhau
2/ Em nói em mới nên thông cảm giúp em mà

 

[Hoàng Tuấn 868]

1/ em không sốt ruột nhưng mong anh và mọi người giúp em
A/ Nếu ở sheet Điều tra có mã mà bên sheet dữ liệu không có mã đó thì để trống
B/ Vì đây chỉ là VD thôi em cần link dữ liệu hàng trăm hàng, và các công đoạn khác nhau
2/ Em nói em mới nên thông cảm giúp em mà

Như vậy là tại cột A sheet Điều tra thì bạn chỉ cần thêm các mã bên cột A sheet Dữ liệu có mà cột A sheet Điều tra chưa có và sắp xếp theo thứ tự thôi đúng không?

 

[Huonggiang13]

Như vậy là tại cột A sheet Điều tra thì bạn chỉ cần thêm các mã bên cột A sheet Dữ liệu có mà cột A sheet Điều tra chưa có và sắp xếp theo thứ tự thôi đúng không?

Dạ bình thường file dữ liệu của em nhập rất nhiều hàng mà điều tra thì chỉ hàng sự cố. họ sẽ là người gửi list yêu cầu tất cả 50 phòng điều tra lấy dữ liệu
VD: List điều tra là nguyên nhưng thục tế công đoạn mình chia thành 00001-01 hoặc 00001-02 thì mình cần lấy cả ạ. Em không biết làm code thì mới nhờ mọi người nếu đơn giản như anh nói e cung thủ công vlookup được mà. Mong muốn nếu giúp được anh giúp.
Không để người khác giúp em cũng được. Cảm ơn anh(Hạnh họe hơi nhiều ạ)

 

[Hoàng Tuấn 868]

Dạ bình thường file dữ liệu của em nhập rất nhiều hàng mà điều tra thì chỉ hàng sự cố. họ sẽ là người gửi list yêu cầu tất cả 50 phòng điều tra lấy dữ liệu
VD: List điều tra là nguyên nhưng thục tế công đoạn mình chia thành 00001-01 hoặc 00001-02 thì mình cần lấy cả ạ. Em không biết làm code thì mới nhờ mọi người nếu đơn giản như anh nói e cung thủ công vlookup được mà. Mong muốn nếu giúp được anh giúp.
Không để người khác giúp em cũng được. Cảm ơn anh(Hạnh họe hơi nhiều ạ)

Mình hỏi cho kỹ bởi vì cấu trúc bảng tính của bạn chắc chắn không như ví dụ. Nếu không có cấu trúc chuẩn thì sau này sẽ phải sửa đi sửa lại code. Bạn càng mô tả chuẩn đến đâu thì sẽ có code nhanh và chính xác đến đó. Nhưng nếu bạn nói mình là "Hạnh họe" thì bạn chịu khó chờ người khác vậy.

 

[Huonggiang13]

Mình hỏi cho kỹ bởi vì cấu trúc bảng tính của bạn chắc chắn không như ví dụ. Nếu không có cấu trúc chuẩn thì sau này sẽ phải sửa đi sửa lại code. Bạn càng mô tả chuẩn đến đâu thì sẽ có code nhanh và chính xác đến đó. Nhưng nếu bạn nói mình là "Hạnh họe" thì bạn chịu khó chờ người khác vậy.

Em đưa ra cấu trúc bảo dữ liệu sẽ là như thê. Chứ e đâu dở hơi mức đi hỏi 1 đường làm 1 nẻo phí công à. Vâng để em nhờ người khác. Sau nếu mà bài viết mà có ai như em có nghĩa người mới người ta chưa hiếu diễn đàn nên anh đừng hạnh họe qua. thân ái!!!
CẢM ƠN

 

[Hoàng Tuấn 868]

Em đưa ra cấu trúc bảo dữ liệu sẽ là như thê. Chứ e đâu dở hơi mức đi hỏi 1 đường làm 1 nẻo phí công à. Vâng để em nhờ người khác. Sau nếu mà bài viết mà có ai như em có nghĩa người mới người ta chưa hiếu diễn đàn nên anh đừng hạnh họe qua. thân ái!!!
CẢM ƠN

Đang viết cho bạn gần xong rồi, chỉ hỏi thêm thông tin cho cẩn thận mà... tiếc quá.

 

[Huonggiang13]

Đang viết cho bạn gần xong rồi, chỉ hỏi thêm thông tin cho cẩn thận mà... tiếc quá.
View attachment 288907

Thì em chia sẻ thật mà. Anh thử đặt địa vị anh vào em đi. Nếu đi nhờ vả mà người ta cứ thế hoài thì mình rất khó chịu ấy. E đã nói ở trên em mới tập học VBA và mới vào diễn đàn có gì không nên thì bỏ qua giúp em. Nếu giúp được em điều em biết ơn. Còn e cung diễn giả mong muốn.
Sheet điều tra là khách hàng yêu cầu chúng em làm
Sheet dữ liệu sheet chúng em nhập
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Nếu anh làm được thì anh làm giúp em ạ

 

[Sonkull]

Option Explicit

Sub BaoCao()
Dim ws_Data, ws_Dieu_tra As Worksheet
Dim Source, SQL_Command As String

Set ws_Data = ThisWorkbook.Worksheets(SHEET_Data)
Set ws_Dieu_tra = ThisWorkbook.Worksheets(SHEET_Dieu_tra)

Source = ThisWorkbook.FullName

SQL_Command = "SELECT [Ten_Ma_Hang]" & _
"FROM [Data$] " & _
"GROUP BY [Ten_Ma_Hang] " & _
"ORDER BY [Ten_Ma_Hang] ASC "

SQL_QUERY Source, SQL_Command, SHEET_Dieu_tra, "A1"
End Sub

Của bạn nhé không biết có đúng ý của bạn không

 

[Huonggiang13]

Option Explicit

Sub BaoCao()
Dim ws_Data, ws_Dieu_tra As Worksheet
Dim Source, SQL_Command As String

Set ws_Data = ThisWorkbook.Worksheets(SHEET_Data)
Set ws_Dieu_tra = ThisWorkbook.Worksheets(SHEET_Dieu_tra)

Source = ThisWorkbook.FullName

SQL_Command = "SELECT [Ten_Ma_Hang]" & _
"FROM [Data$] " & _
"GROUP BY [Ten_Ma_Hang] " & _
"ORDER BY [Ten_Ma_Hang] ASC "

SQL_QUERY Source, SQL_Command, SHEET_Dieu_tra, "A1"
End Sub

Của bạn nhé không biết có đúng ý của bạn không
View attachment 288910

Dạ chị ơi em muốn được như này ạ
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Cột A bên sheet điều tra là mã bên khách hàng yêu cầu mình phải lấy

 

[Huonggiang13]

Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.

@vungoc

Em cần vlookup dữ liệu từ sheet dữ liệu sang sheet điều tra
VD: Bên sheet dữ liệu tai ô A3 A4 có mã A00001-01 A00001-02, nhưng bên sheet điều tra lại chỉ có A00001-01
Mong muốn của em là lấy được hết dữ liệu bên sheet dữ liệu sang bên sheet điều tra. trường hợp nếu bên sheet dữ liệu có mã hàng đó mà bên sheet điều tra không có thì tự động sẽ chèn thêm dòng dữ liệu đó vào.
Mong anh chị giúp em.

@ngocbaovu Anh giúp em được không ạ

 

[Maika8008]

Dạ chị ơi em muốn được như này ạ
Em muốn làm code để tự động linh dữ liệu ở sheet dữ liệu sang sheet điều tra
Nếu bên sheet điều tra có mà bên sheet dữ liệu không có mình bỏ trống
Còn nếu sheets dữ liệu có thì bên sheet điều tra sẽ tự động inset chèn thêm dòng cho khớp với bên sheet điều tra ạ
Cột A bên sheet điều tra là mã bên khách hàng yêu cầu mình phải lấy

Dữ kiện bạn đưa ra bị thiếu:
1. sheet điều tra có mà bên sheet dữ liệu không có: được
2. sheets dữ liệu có thì bên sheet điều tra (không có) sẽ tự động inset chèn thêm dòng: được
3. Thế còn sheet điều tra có + bên sheet dữ liệu cũng có: bạn có nêu ra là làm thế nào đâu. Lẽ ra bạn phải nói là lấy hết dữ liệu qua nếu 2 bên cùng có (để khẳng định, vì sẽ có trường hợp cả 2 bên cùng có thì không làm gì cả)

Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?

 

[Huonggiang13]

Dữ kiện bạn đưa ra bị thiếu:
1. sheet điều tra có mà bên sheet dữ liệu không có: được
2. sheets dữ liệu có thì bên sheet điều tra (không có) sẽ tự động inset chèn thêm dòng: được
3. Thế còn sheet điều tra có + bên sheet dữ liệu cũng có: bạn có nêu ra là làm thế nào đâu. Lẽ ra bạn phải nói là lấy hết dữ liệu qua nếu 2 bên cùng có (để khẳng định, vì sẽ có trường hợp cả 2 bên cùng có thì không làm gì cả)

Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?

Dạ đúng ý em là như thế đấy ạ. Tại em không biết diễn giải sao ý. Em sẽ rút kinh nghiệm. Chị làm giúp em với ạ

 

[Hoàng Tuấn 868]

Thêm nữa: code làm gì thì làm, miễn sao sắp xếp đúng thứ tự như bạn mong muốn là được chứ sao lại nêu ra là phải Insert dòng?

Vấn đề này em đã nêu ra ở bài #7 rồi, nhưng bạn ấy không hiểu cách mình làm lại còn cười và bảo là mình "hạnh họe", khổ thế chứ. Viết xong từ lúc ấy rồi đấy nhưng chán chả buồn đưa lên nữa.

 

[Maika8008]

Dạ đúng ý em là như thế đấy ạ. Tại em không biết diễn giải sao ý. Em sẽ rút kinh nghiệm. Chị làm giúp em với ạ

Bạn có bị "làm sao" không vậy? Hay uống quá chén?

 

[Hoàng Tuấn 868]

Bạn có bị "làm sao" không vậy? Hay uống quá chén?

Tặng anh một vé mời đi Thái.