[Help] Nhập liệu trong excel (1 người xem)

[SuperManager]

Em có file thu thập thông tin khách hàng, em muốn lập trình nhập liệu từ sheet NHAPLIEU để thông tin tự động nhập vào sheet DULIEU đồng thời chỉ cho nhập không cho xóa thông tin đã nhập, ai biết giúp em với . Em trân trọng cảm ơn !

 

[quanluu]

Bạn dùng code VBA này nhé. Rất đơn giản:

Sub NhapLieu()
Dim LastRow As Integer
LastRow = Sheets("DULIEU").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("DULIEU").Cells(LastRow, 2) = Sheets("NHAPLIEU").Range("B2").Value
Sheets("DULIEU").Cells(LastRow, 3) = Sheets("NHAPLIEU").Range("B3").Value
Sheets("DULIEU").Cells(LastRow, 4) = Sheets("NHAPLIEU").Range("B4").Value
Sheets("DULIEU").Cells(LastRow, 5) = Sheets("NHAPLIEU").Range("B5").Value
Sheets("DULIEU").Cells(LastRow, 6) = Sheets("NHAPLIEU").Range("B6").Value
Sheets("DULIEU").Cells(LastRow, 7) = Sheets("NHAPLIEU").Range("B7").Value
Sheets("DULIEU").Cells(LastRow, 8) = Sheets("NHAPLIEU").Range("B8").Value
Sheets("DULIEU").Cells(LastRow, 9) = Sheets("NHAPLIEU").Range("B9").Value
Sheets("DULIEU").Cells(LastRow, 10) = Sheets("NHAPLIEU").Range("B10").Value
Sheets("DULIEU").Cells(LastRow, 11) = Sheets("NHAPLIEU").Range("B11").Value
Sheets("DULIEU").Cells(LastRow, 12) = Sheets("NHAPLIEU").Range("B12").Value
End Sub

còn vấn đề ko cho nhập và chỉnh sửa sheet DULIEU thì bạn chỉ cần protect sheet đó là đc.

 

[khaivinh]

Phụ bạn 1 tay dùng transpose của excel nhé
Pass sheet DULIEU = 12345678
chúc vui!

Private Sub CommandButton1_Click()
Dim arr
Dim rw As Long
Sheets("DULIEU").Unprotect ("12345678")
rw = Sheets("DULIEU").[b65536].End(xlUp).Row
arr = WorksheetFunction.Transpose(Sheets("NHAPLIEU").[b2:b12])
Sheets("DULIEU").Range("B" & rw, "L" & rw).Offset(1).Value = arr
Sheets("DULIEU").Protect ("12345678")
End Sub

 

[be_09]

Em có file thu thập thông tin khách hàng, em muốn lập trình nhập liệu từ sheet NHAPLIEU để thông tin tự động nhập vào sheet DULIEU đồng thời chỉ cho nhập không cho xóa thông tin đã nhập, ai biết giúp em với . Em trân trọng cảm ơn !

Thử với 1 cách khác:
Nhấn nút Nhập liệu vào sheet Theodoi để nhập dữ liệu.

Gõ tên cần lọc tại B2 của sheet LOC_DULIEU, xong nhấn Alt+F8 chọn macro LocDuLieu và nhấn Run để lọc khách hàng.

 

[SuperManager]

cảm ơn bác nhiều, để em nghiệ cứu