Nhờ sửa dùm tôi code

[thanhtam348]

Lại lần nửa làm phiền tới mấy bạn.
Có một file tôi tìm thấy trên diển đàn nầy về cập nhật dử liệu rất thích, nhưng bố trí "mã KH" và "tên KH" của tôi lại theo hàng, không theo cột như trong file gốc, vậy nhờ mấy bạn sửa code dùm. Cám ơn nhiều

 

[NH_DK]

Lại lần nửa làm phiền tới mấy bạn.
Có một file tôi tìm thấy trên diển đàn nầy về cập nhật dử liệu rất thích, nhưng bố trí "mã KH" và "tên KH" của tôi lại theo hàng, không theo cột như trong file gốc, vậy nhờ mấy bạn sửa code dùm. Cám ơn nhiều

Bạn xem đã đúng ý bạn chưa?

Nếu bạn muốn ô B9 xoá thì bạn sửa lại code chút là:

Private Sub CommandButton1_Click()
On Error Resume Next
With Sheet2
er2 = .[g65535].End(xlUp).Row + 1
.Cells(4, 1).Value = WorksheetFunction.Transpose([b9])
.Cells(4, 2).Value = WorksheetFunction.Transpose([d9])
.Cells(4, 3).Value = WorksheetFunction.Transpose([f9])
.Cells(er2, 5) = [C4]: [C4] = Empty: [B6] = Empty
.Cells(er2, 6) = Format([E46], "dd-mm-yyyy"): [B9] = Empty  ----> bạn sửa ở đây nhé!
er1 = IIf([A11].End(xlDown).Row > 40, 0, [A11].End(xlDown).Row - 11)
.Cells(er2, 7).Resize(er1, 6) = [a12].Resize(er1, 6).Value
[a12:a40,d12:d40] = Empty
End With
End Sub

Nếu bạn không biết nữa thì copy tất đoạn code này vào nhé!
Chúc bạn thành công!

 

[thanhtam348]

Thành thật cám ơn bạn.