Xin giúp đỡ sửa code chèn ảnh được trên nhiều sheet

[Jayce]

- Em có code chèn ảnh như sau:
Ảnh sẽ được chèn tự động vào các ô có đánh số trong "sheet1" từ thư mục "IMG"
Các anh/chị cho em hỏi giờ em muốn bỏ "sheet1" ở trong code đi thì làm như thế nào ạ?
Tức là khi em sao chép ra "sheet2" hay "sheet3" thì code vẫn chạy được trên "sheet2" và "sheet3" ạ
Em cảm ơn ạ!

Sub chen_anh()
Const dong_dau = 5
Const cot_dau = "B"
Const so_cot = 4
Dim lastRow As Long, vung As range, cell_ As range
    With ThisWorkbook.Worksheets("Sheet1")
        lastRow = .Cells(Rows.Count, cot_dau).End(xlUp).Row ' dong cuoi cung co du lieu trong cot B
        If lastRow < dong_dau Then Exit Sub
        Set vung = .range(cot_dau & dong_dau).Resize(lastRow - dong_dau + 1, so_cot)
    End With
    For Each cell_ In vung
        InsertPicture ThisWorkbook.Path & "\IMG\" & cell_.Value & ".jpg", cell_, False, True, False
    Next cell_
End Sub

 

[huuthang_bd]

- Em có code chèn ảnh như sau:
Ảnh sẽ được chèn tự động vào các ô có đánh số trong "sheet1" từ thư mục "IMG"
Các anh/chị cho em hỏi giờ em muốn bỏ "sheet1" ở trong code đi thì làm như thế nào ạ?
Tức là khi em sao chép ra "sheet2" hay "sheet3" thì code vẫn chạy được trên "sheet2" và "sheet3" ạ
Em cảm ơn ạ!

Sub chen_anh()
Const dong_dau = 5
Const cot_dau = "B"
Const so_cot = 4
Dim lastRow As Long, vung As range, cell_ As range
    With ThisWorkbook.Worksheets("Sheet1")
        lastRow = .Cells(Rows.Count, cot_dau).End(xlUp).Row ' dong cuoi cung co du lieu trong cot B
        If lastRow < dong_dau Then Exit Sub
        Set vung = .range(cot_dau & dong_dau).Resize(lastRow - dong_dau + 1, so_cot)
    End With
    For Each cell_ In vung
        InsertPicture ThisWorkbook.Path & "\IMG\" & cell_.Value & ".jpg", cell_, False, True, False
    Next cell_
End Sub

Bạn sửa

With ThisWorkbook.Worksheets("Sheet1")

Thành

With ActiveSheet

 

[Jayce]

Bạn sửa

With ThisWorkbook.Worksheets("Sheet1")

Thành

With ActiveSheet

Em cảm ơn ạ! Em cứ sửa thêm Activesheet lung tung mãi không được. không nghĩ lại đơn giản như vậy ạ