Cách tạo mã code VBA cho hàm vloopkup, chèn thêm dòng dữ liệu (1 người xem)

[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.

 

[Maika8008]

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.

Đọc chú thích trong code:

Sub DoTimCapNhatDL()
    Dim aKT, aDL, aKQ, i&, j&, k&, rw&, endR&, dic As Object, Rng As Range
    endR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    aDL = Sheet1.Range("A2:F" & endR).Value
    endR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    aKT = Sheet2.Range("A2:F" & endR).Value
    ReDim aKQ(1 To UBound(aDL) * 2, 1 To UBound(aDL, 2))
    Set dic = CreateObject("Scripting.Dictionary")
    
    'Duyet + lay du lieu sheet Du LIEU
    For i = 1 To UBound(aDL)
        If Not dic.Exists(aDL(i, 1)) Then
            dic(aDL(i, 1)) = i
            k = k + 1
            For j = 1 To UBound(aDL, 2)
                aKQ(k, j) = aDL(i, j)
            Next
        End If
    Next
    
    'Duyet + lay du lieu sheet Dieu tra ma sheet DU LIEU khong co
    For i = 1 To UBound(aKT)
        If Not dic.Exists(aKT(i, 1)) Then
            k = k + 1
            aKQ(k, 1) = aKT(i, 1)
        End If
    Next
    
    'Chep vao J2 va sap xep theo cot ma so (thay J2 bang dia chi mong muon)
    Set Rng = Sheet2.Range("J2")
    With Rng.Resize(k, UBound(aDL, 2))
        .Value = aKQ
        .Sort Key1:=Rng, Order1:=xlAscending
    End With
End Sub

 

[Huonggiang13]

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.

Dạ e cũng đã nói là vấn đề do cách em không biết diễn giải. Và em cũng có xin lỗi anh rồi. Nếu anh làm được rồi. Anh cho e xin file ấy ạ.Em mới nhiều cái không biết. Em cũng có tiếp thu và sửa chứ em không có nang và bảo thủ. Anh làm xong rồi anh cho e xin file nhé. Mọi cái e nói không phải xin anh bỏ qua giúp em

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

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

Dạ tại em vào xem là nam hay nữ mà không thấy hiển thị ạ. Với tên là Maika e nghĩ là con gái ấy. Nên nếu là nam e xin lỗi ạ. E sẽ sửa lại cách xưng hô

 

[Maika8008]

Dạ tại em vào xem là nam hay nữ mà không thấy hiển thị ạ. Với tên là Maika e nghĩ là con gái ấy. Nên nếu là nam e xin lỗi ạ. E sẽ sửa lại cách xưng hô

Tôi đã cảnh báo ở bên bể sô rồi mà mau quên vậy. Nhưng cũng lạ: bài viết #21 với code cho mình thì không đề cập mà chỉ phân bua.

 

[ngocbaovu]

Bài #15 sao tự dưng lại lôi mình vào nhỉ?? Trên Forum thiếu gì người thừa khả năng giúp đâu?! Mọi người đều rất nhiệt tình đó thôi. Mình cũng thi thoảng rảnh rang thì lướt lát kiểu xem cho vui thôi. Công việc cũng chỉ dùng bảng tính dạng cộng trừ nhân chia. Không rành code lắm nên cấu trúc chắp vá, lủng củng lắm. Bạn thử code bài #21 đi.

 

[Huonggiang13]

Tôi đã cảnh báo ở bên bể sô rồi mà mau quên vậy. Nhưng cũng lạ: bài viết #21 với code cho mình thì không đề cập mà chỉ phân bua.

Dạ do em quên ạ. Em xin lỗi anh nhiều nhé. Code trước anh gửi là làm được đúng không anh. Anh cho e xin file anh làm được không ạ.

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

Bài #15 sao tự dưng lại lôi mình vào nhỉ?? Trên Forum thiếu gì người thừa khả năng giúp đâu?! Mọi người đều rất nhiệt tình đó thôi. Mình cũng thi thoảng rảnh rang thì lướt lát kiểu xem cho vui thôi. Công việc cũng chỉ dùng bảng tính dạng cộng trừ nhân chia. Không rành code lắm nên cấu trúc chắp vá, lủng củng lắm. Bạn thử code bài #21 đi.

Dạ em cảm ơn anh ạ

 

[Maika8008]

Dạ do em quên ạ. Em xin lỗi anh nhiều nhé. Code trước anh gửi là làm được đúng không anh. Anh cho e xin file anh làm được không ạ.

File của bạn ở bài #1 đấy, dán code vào rồi chạy. Nhớ lưu file thành dạng .xlsm.

 

[Huonggiang13]

File của bạn ở bài #1 đấy, dán code vào rồi chạy. Nhớ lưu file thành dạng .xlsm.

Em dán vào rồi mà sao k thấy chạy. Anh xem lại giúp e được không ạ. Em dán vào sheet điều tra ạ

 

[bebo021999]

Em dán vào rồi mà sao k thấy chạy. Anh xem lại giúp e được không ạ. Em dán vào sheet điều tra ạ

File của bạn ở bài #1 đấy, dán code vào rồi chạy. Nhớ lưu file thành dạng .xlsm.

Em cũng vậy, dán xong tranh thủ chạy ra ngoài có tí việc, quay vô vẫn không thấy gì, chị giúp em với.

 

[Huonggiang13]

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.

Anh ơi a giúp em với ạ. Cho em xin bản anh đã làm với. Em đang phải làm mà lâu quá. Anh bỏ qua giúp em với ạ

 

[Maika8008]

E đã nói ở trên em mới tập học VBA ...

Như đã trích dẫn thì có học VBA mà tại sao:
1. Cái dấu nháy đơn trong code của tôi bạn vứt đi để cho VBA không chấp nhận ở mấy cái dòng đỏ đỏ này?

2. Bạn không biết chạy 1 macro bằng cách nào?

 

[Huonggiang13]

Như đã trích dẫn thì có học VBA mà tại sao:
1. Cái dấu nháy đơn trong code của tôi bạn vứt đi để cho VBA không chấp nhận ở mấy cái dòng đỏ đỏ này?
View attachment 288949
2. Bạn không biết chạy 1 macro bằng cách nào?

Dạ đây file em đã gán code vào. Anh xem giúp em sai đâu nhé

 

[Maika8008]

Dạ đây file em đã gán code vào. Anh xem giúp em sai đâu nhé

Tôi viết code khi sheet1 trong file bài #1 là sheet Dữ liệu, Sheet2 là sheet Điều tra. Chừ bạn xóa mất Sheet1 rồi biến Sheet3 thành sheet Điều tra, Sheet4 thành sheet Dữ liệu. Thế thì code làm sao chạy.

Ở bài #26, tôi bảo bạn lấy file ở bài #1 chép code vào mà bạn không thấy sao?

Tôi đưa thực phẩm, chỉ cách nấu rồi mà bạn vẫn không ra được món thì ...

 

[Huonggiang13]

Tôi viết code khi sheet1 trong file bài #1 là sheet Dữ liệu, Sheet2 là sheet Điều tra. Chừ bạn xóa mất Sheet1 rồi biến Sheet3 thành sheet Điều tra, Sheet4 thành sheet Dữ liệu. Thế thì code làm sao chạy.

Ở bài #26, tôi bảo bạn lấy file ở bài #1 chép code vào mà bạn không thấy sao?

Tôi đưa thực phẩm, chỉ cách nấu rồi mà bạn vẫn không ra được món thì ...

Dạ tại em đang tập tành mới tìm hiểu VBA. Nên em chưa rõ lắm. Cái dữ liệu này em đang cần làm gấp. Anh làm ơn làm giúp e file e vừa gửi giúp em được không ạ. Sau lần này e sẽ học thêm về mảng này ạ.Anh làm xong cho e xin file được không anh!!!

 

[Maika8008]

Dạ tại em đang tập tành mới tìm hiểu VBA. Nên em chưa rõ lắm. Cái dữ liệu này em đang cần làm gấp. Anh làm ơn làm giúp e file e vừa gửi giúp em được không ạ. Sau lần này e sẽ học thêm về mảng này ạ.Anh làm xong cho e xin file được không anh!!!

Mời bạn đọc lại bài #5, #7, #9.
Người ta muốn nắm cấu trúc của file thực để mà còn viết code "chạy đúng" cho dữ liệu thực của bạn mà bạn lại dùng từ đáp lại khá khó nghe.

Bây giờ bạn thấy được cái hệ quả khi file này khác file kia có tí ti (do chính bạn làm cho khác đi) mà code đã không chạy rồi huống gì khi dùng cho file thực (mà tôi đoán là nó sẽ khác nhiều lắm).

Chừ bạn nói tôi nghe: có lý do gì ngăn cản bạn không dùng file bài #1 để chạy code mà nhất quyết phải dùng file bài #31?

 

[Huonggiang13]

Mời bạn đọc lại bài #5, #7, #9.
Người ta muốn nắm cấu trúc của file thực để mà còn viết code "chạy đúng" cho dữ liệu thực của bạn mà bạn lại dùng từ đáp lại khá khó nghe.

Bây giờ bạn thấy được cái hệ quả khi file này khác file kia có tí ti (do chính bạn làm cho khác đi) mà code đã không chạy rồi huống gì khi dùng cho file thực (mà tôi đoán là nó sẽ khác nhiều lắm).

Chừ bạn nói tôi nghe: có lý do gì ngăn cản bạn không dùng file bài #1 để chạy code mà nhất quyết phải dùng file bài #31?

Anh ơi e dán code vào file bài #1 rồi. Em có chuyển sang xlsm rồi mà không biết sai đây không được dữ liệu. Anh làm ơn xem giúp em ạ.
E sẽ chú ý hơn lời ăn tiếng nói của mình ạ
Anh xem giùm e sai đâu em sửa để dùng được ạ.

 

[Maika8008]

Anh ơi e dán code vào file bài #1 rồi. Em có chuyển sang xlsm rồi mà không biết sai đây không được dữ liệu. Anh làm ơn xem giúp em ạ.
E sẽ chú ý hơn lời ăn tiếng nói của mình ạ
Anh xem giùm e sai đâu em sửa để dùng được ạ.

Đưa cái file lên coi bạn dán thế nào?

 

[Huonggiang13]

Đưa cái file lên coi bạn dán thế nào?

Dạ đây ạ. Anh xem giúp em nhé.

 

[Maika8008]

Dạ đây ạ. Anh xem giúp em nhé.

Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.

 

[Thóc Sama]

Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.

Lao được phóng rồi, không được "quạo" nha bác!!!

 

[Huonggiang13]

Bạn có biết chạy 1 macro thế nào không? Tôi chạy macro không thấy bất kỳ sai sót nào. Dữ liệu kết quả trả về đúng từ J2 của sheet2

P/S: mà bạn làm gì với cái file mà mở ra nó cứ phóng đại trang tính lên không ngừng vậy.

Anh cho em xin file anh làm với ạ. Tại em chỉ dán code vào và đổi file thành xlsm giống như anh chỉ dậy mà không được. A làm được thì cho em xin lại file anh làm nhé.

 

[Maika8008]

Anh cho em xin file anh làm với ạ. Tại em chỉ dán code vào và đổi file thành xlsm giống như anh chỉ dậy mà không được. A làm được thì cho em xin lại file anh làm nhé.

Bạn có biết chạy 1 macro không? Tôi hỏi lại!!!!!!!!!

 

[Huonggiang13]

Bạn có biết chạy 1 macro không? Tôi hỏi lại!!!!!!!!!

1/ Develop
2/ Macros
3/ Run
Đúng vậy không anh

 

[Maika8008]

1/ Develop
2/ Macros
3/ Run
Đúng vậy không anh

Thế sao không chạy macro để kết thúc câu chuyện này đi mà hỏi lại làm gì?
Bạn là cái gân gà chính hiệu.

 

[Huonggiang13]

Thế sao không chạy macro để kết thúc câu chuyện này đi mà hỏi lại làm gì?
Bạn là cái gân gà chính hiệu.

Thì bắt đầu chưa biết gì. Đúng là gà công nghiệp luôn ấy. Nếu đã biết nhiều người ta gọi là am hiểu rồi. Nãy e chạy không được. Thôi chắc do máy em làm sao ấy. Để e xem lại ạ

 

[TH2]

Bạn có biết chạy 1 macro không? Tôi hỏi lại!!!!!!!!!

Khổ quen kiểu cơm dâng nước rót rồi ...
GPE cứ giúp kiểu này làm hỏng những người hỏi thôi.

 

[baongocdaihocchuto]

Thế sao không chạy macro để kết thúc câu chuyện này đi mà hỏi lại làm gì?
Bạn là cái gân gà chính hiệu.

Sao anh lại ngỏ lời vào 1 bên tai đ....?

 

[Huonggiang13]

Khổ quen kiểu cơm dâng nước rót rồi ...
GPE cứ giúp kiểu này làm hỏng những người hỏi thôi.

Dạ là do em chưa học mà e đang cần làm dữ liệu thôi. Sau này em sẽ học hỏi thêm chứ.

 

[SA_DQ]

Bạn có biết chạy 1 macro không? Tôi hỏi lại!!!!!!!!!

Thế Maika8008 có nhớ là cần 30 bài đăng thì được đăng quảng cáo hay rao mua hay bán?

 

[Maika8008]

Thế Maika8008 có nhớ là cần 30 bài đăng thì được đăng quảng cáo hay rao mua hay bán?

Em chưa biết chuyện đó bác ơi!

 

[SA_DQ]

Em chưa biết chuyện đó bác ơi!

Có nhiều cách để biết chuyện này mà, ví dụ:

(1) Nhờ ai đó mới đăng chưa đến 30 bài đăng bài vô mục '2uảng cáo. . .'
(2) Tạo thêm 1 NICKNAME cho chính mình & tự thử
(3) Hỏi anh Hai Lúa - phụ trách kỹ thuật diễn đàn
(4) . . . . .

 

[Huonggiang13]

Đọc chú thích trong code:

Sub DoTimCapNhatDL()
    Dim aKT, aDL, aKQ, i&, j&, k&, rw&, endR&, dic As Object, Rng As Range
    endR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    aDL = Sheet1.Range("A2:F" & endR).Value
    endR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    aKT = Sheet2.Range("A2:F" & endR).Value
    ReDim aKQ(1 To UBound(aDL) * 2, 1 To UBound(aDL, 2))
    Set dic = CreateObject("Scripting.Dictionary")
   
    'Duyet + lay du lieu sheet Du LIEU
    For i = 1 To UBound(aDL)
        If Not dic.Exists(aDL(i, 1)) Then
            dic(aDL(i, 1)) = i
            k = k + 1
            For j = 1 To UBound(aDL, 2)
                aKQ(k, j) = aDL(i, j)
            Next
        End If
    Next
   
    'Duyet + lay du lieu sheet Dieu tra ma sheet DU LIEU khong co
    For i = 1 To UBound(aKT)
        If Not dic.Exists(aKT(i, 1)) Then
            k = k + 1
            aKQ(k, 1) = aKT(i, 1)
        End If
    Next
   
    'Chep vao J2 va sap xep theo cot ma so (thay J2 bang dia chi mong muon)
    Set Rng = Sheet2.Range("J2")
    With Rng.Resize(k, UBound(aDL, 2))
        .Value = aKQ
        .Sort Key1:=Rng, Order1:=xlAscending
    End With
End Sub

Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với

 

[Maika8008]

Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với

Thôi. Tôi dừng hỗ trợ bạn.

 

[namvu230397]

Anh ơi cho em hỏi tý ạ. Hôm trước anh làm giúp em lấy dữ liệu tại cột A trở đi, bây giờ em muốn lấy dữ liệu bắt đầu từ cột B thì e cần sửa code ở chỗ nào thì chạy được ạ. Anh chỉ giúp em với

Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn

 

[SA_DQ]

Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn

Chủ bài đăng đã đạt chuẩn trên 30 bài rồi; Ha, ha, ha, ha,. . . .

Nội quy mục Quảng cáo - Rao vặt

NỘI QUY VIẾT BÀI TRONG BOX RAO VẶT 1. Quyền được đăng bài Thành viên có số bài viết từ 30 bài trở lên sẽ được đăng bài trong box. 2. Các quy định khi đăng bài: Box "Quảng cáo - Rao vặt" là nơi giao thương 2 chiều bao gồm cả "CẦN MUA" và "CẦN BÁN" Không quảng cáo liên tiếp (spam) các bài...

www.giaiphapexcel.com

 

[Huonggiang13]

Thôi. Tôi dừng hỗ trợ bạn.

Dạ vâng em cảm ơn

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

Dăm ba hôm lại đổi code một lần như này khó ai theo được bạn ạ. Hỏi thì nên hỏi cái tổng quát ngay từ đâu. Mà bạn cũng nên tìm hiểu mấy cái cơ bản đi để sau này còn biết để mà tùy chỉnh theo ý muốn

Dạ vâng ạ. Em cảm ơn anh