Giúp Form nhập liệu bằng VBA (1 người xem)

[tiendo1988]

Em có 2 Sheet: "form" và "DL"
sheet "form" khi nhập dữ liệu vào B3, sau khi enter:
- B4 tự động điền ngày giờ nhập dữ liệu tương ứng.
- dữ liệu ở B3, B4 sẽ được chuyển sang sheet "DL" tương ứng ở cột B, C
- Sau đó tự động xóa dữ liệu ở B3, B4 để nhập dữ liệu mới.

Rất mong các bạn giúp mình đoạn code VBA để giải quyết vấn đề này.
File dữ liệu mẫu đính kèm và mô tả chi tiết.
Nếu có chỗ nào các bạn chưa rõ mình sẽ giải thích thêm ạ.

Trân trọng cảm ơn

 

[phulien1902]

Em có 2 Sheet: "form" và "DL"
sheet "form" khi nhập dữ liệu vào B3, sau khi enter:
- B4 tự động điền ngày giờ nhập dữ liệu tương ứng.
- dữ liệu ở B3, B4 sẽ được chuyển sang sheet "DL" tương ứng ở cột B, C
- Sau đó tự động xóa dữ liệu ở B3, B4 để nhập dữ liệu mới.

Rất mong các bạn giúp mình đoạn code VBA để giải quyết vấn đề này.
File dữ liệu mẫu đính kèm và mô tả chi tiết.
Nếu có chỗ nào các bạn chưa rõ mình sẽ giải thích thêm ạ.

Trân trọng cảm ơn

Bạn thử:
+ Code Sheets("Form")

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
Target.Offset(1) = Now()
Call abc
End If
End Sub

+ Code Module:

Option Explicit
Sub abc()
    Dim LR&
    Application.ScreenUpdating = False
    With Sheets("DL")
        LR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
        Sheets("Form").Range("B3:B4").Copy
        .Range("B" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
       Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[tiendo1988]

Bạn thử:
+ Code Sheets("Form")

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
Target.Offset(1) = Now()
Call abc
End If
End Sub

+ Code Module:

Option Explicit
Sub abc()
    Dim LR&
    Application.ScreenUpdating = False
    With Sheets("DL")
        LR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
        Sheets("Form").Range("B3:B4").Copy
        .Range("B" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
       Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nhiều. chúc bạn và mọi người ngày nghỉ cuối tuần vui vẻ

 

[be_09]

Em có 2 Sheet: "form" và "DL"
..............................................................
Trân trọng cảm ơn

Thử cách khác.

 

[truongvu317]

Dùng nút bấm để save dữ liệu có vẻ hợp lý hơn, nhỡ nhập liệu bị sai thì sao, với cả B4 chả có ý nghĩa gì, cuối cùng cũng chỉ là lưu tên phụ tùng cùng thời gian lưu, nên không cần B4 làm gì. Các code ở trên chưa làm nhiệm vụ xóa dữ liệu sau khi lưu dữ liệu.

 

[be_09]

Dùng nút bấm để save dữ liệu có vẻ hợp lý hơn, nhỡ nhập liệu bị sai thì sao, với cả B4 chả có ý nghĩa gì, cuối cùng cũng chỉ là lưu tên phụ tùng cùng thời gian lưu, nên không cần B4 làm gì. Các code ở trên chưa làm nhiệm vụ xóa dữ liệu sau khi lưu dữ liệu.

Dùng Validation chọn thì cần gì phải xóa.