Giúp tạo User Form để nhập liệu (1 người xem)

[tranchautrungduong]

Chào các bạn!

Mình cũng cần các bạn giúp đỡ mình tạo form nhập cho file đính kèm bên dưới.

Cám ơn các bạn nhiều ạ!

 

[SA_DQ]

Các vùng gán tên đang hư hầu hết thì fải?
Bạn nên gởi file khác lên, nếu vậy.

 

[be_09]

Chào các bạn!

Mình cũng cần các bạn giúp đỡ mình tạo form nhập cho file đính kèm bên dưới.

Cám ơn các bạn nhiều ạ!

Tại sao không nhập liệu theo chiều dọc rồi muốn cái gì theo trình tự thì Sort cho thuận tiện mà lại phải chèn dòng.

 

[tranchautrungduong]

Tại sao không nhập liệu theo chiều dọc rồi muốn cái gì theo trình tự thì Sort cho thuận tiện mà lại phải chèn dòng.

Cám ơn bạn đã giúp mình, thì mình nhập vào vùng nhập liệu nó sẽ cập nhật qua sheet XUAT theo dữ liệu y vậy khi ta bấm NHẬP

Bài đã được tự động gộp: 9/7/18

Các vùng gán tên đang hư hầu hết thì fải?
Bạn nên gởi file khác lên, nếu vậy.

Chắc mình lấy từ file gốc nên sai, bạn xem lại file mới giúp mình hen! Cám ơn bạn

 

[Ba Tê]

Cám ơn bạn đã giúp mình, thì mình nhập vào vùng nhập liệu nó sẽ cập nhật qua sheet XUAT theo dữ liệu y vậy khi ta bấm NHẬP

Bài đã được tự động gộp: 9/7/18

Chắc mình lấy từ file gốc nên sai, bạn xem lại file mới giúp mình hen! Cám ơn bạn

Chép Sub này vào Module:

Public Sub GPE()
Dim Rng As Range, R As Long
Set Rng = Sheet1.Range("B1:B7")
With Sheets("XUAT")
    R = .Range("C60000").End(xlUp).Row + 1
    .Cells(R, 3).Value = Rng(1, 1).Value
    .Cells(R, 4).Value = Rng(2, 1).Value
    .Cells(R, 5).Value = Rng(3, 1).Value
    .Cells(R, 6).Value = Rng(4, 1).Value
    .Cells(R, 8).Value = Rng(5, 1).Value
    .Cells(R, 9).Value = Rng(6, 1).Value
    .Cells(R, 11).Value = Rng(7, 1).Value
End With
Rng.ClearContents
Set Rng = Nothing
MsgBox "Xong.", , "GPE"
End Sub

Bạn gán Sub này vào cái nút lệnh của bạn.

 

[tranchautrungduong]

Chép Sub này vào Module:

Public Sub GPE()
Dim Rng As Range, R As Long
Set Rng = Sheet1.Range("B1:B7")
With Sheets("XUAT")
    R = .Range("C60000").End(xlUp).Row + 1
    .Cells(R, 3).Value = Rng(1, 1).Value
    .Cells(R, 4).Value = Rng(2, 1).Value
    .Cells(R, 5).Value = Rng(3, 1).Value
    .Cells(R, 6).Value = Rng(4, 1).Value
    .Cells(R, 8).Value = Rng(5, 1).Value
    .Cells(R, 9).Value = Rng(6, 1).Value
    .Cells(R, 11).Value = Rng(7, 1).Value
End With
Rng.ClearContents
Set Rng = Nothing
MsgBox "Xong.", , "GPE"
End Sub

Bạn gán Sub này vào cái nút lệnh của bạn.

Cám ơn bạn đã giúp đỡ, cám ơn bạn rất nhiều!