Xin trợ giúp về nhập dữ liệu bằng VBA

[raisoldier]

Xin chào anh chị. Xin được giúp đỡ vẫn đề này
Em muốn viết macro:
Khi em nhập số 129 vào ô D2 thì sẽ xác định là bắt đầu làm việc với cột E
khi em nhập "X" vào ô D4 và thì "X" sẽ nhảy vào ô E11, tương tự như vậy D5, D6, D7 sẽ nhảy vào E12, E13, E14

việc e không biết làm ở đây là để khi e nhập số 129 vào D2 thì excel hiểu là em bắt đầu làm việc với cột E và khi em nhập vào ô D4 thì excel hiểu là sẽ điền vào E11. (Đương nhiên là sẽ làm thêm vài công thức nữa). em đang hình dung là sẽ xác định địa chỉ cột E sau đó xác định địa chỉ hàng 11 rồi kết hợp lại rồi ra địa chỉ của Cell, đặt tên cho cell (nhưng em không biết nối làm sao)
Xin mọi người chỉ giúp
Chân thành cảm ơn

 

[SA_DQ]

Bạn xem file:

 

[raisoldier]

Vâng em cảm ơn. Để em triển khai tiếp. Bí chỗ nào em nhờ a chỉ giúp.

 

[raisoldier]

Em cảm ơn anh, công thức của anh đúng ý em rồi. Em mong anh chỉ thêm. công dụng các nút:
- Nút Lưu: khi e nhập dữ liệu vào ô D2: giả sử là 129, sau đó nhập dữ liệu vào các ô D4-D7, bấm nút Lưu thì các giá trị D4-D7 sẽ tự nhập vào E11-E14. Nếu ô D2 là 132 thì tương tự như vậy nhưng là cột H
- Nút Cập nhật: khi e trỏ chuột vào 1 trong các ô E10 - E14 thì các ô D2 - D7 sẽ hiện dữ liệu của các ô cột E, e sửa dữ liệu ở cột D, bấm Cập Nhật nó sẽ cập nhật vào cột E

Anh chị giúp em được không, e cảm ơn

 

[raisoldier]

Xin chào anh chị, em có đoạn code này, sau khi bấm chạy thì báo lỗi Runtime error 9 và tô vàng ngay vị trí tô đậm, a/c chỉ giúp cách sửa, e cảm ơn

Sub Lenh_Xoa_NoiDung31()
'Tim dong cuoi chua noi dung trong bang danh sach
Dim DongCuoi31 As Long
DongCuoi31 = Sheet31.Cells(Rows.Count, 1).End(xlUp).Row
'Bien luan cac truong hop
If DongCuoi31 < 18 Then
Exit Sub
ElseIf ActiveCell.Row >= 18 And ActiveCell.Row <= DongCuoi31 Then
'Xoa noi dung
Sheet31.Range("A" & ActiveCell.Row & ":" & "M" & ActiveCell.Row).ClearContents
'Xoa dong
Sheet31.Range("A" & ActiveCell.Row & ":" & "M" & ActiveCell.Row).EntireRow.Delete
'Sap sep voi chuc nang Sort cho bang trong pham vi A17:M6000, bao gom ca dong tieu de
ActiveWorkbook.Worksheets("Sheet31").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet31").Sort.SortFields.Add Key:=Range("A18:A6000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet31").Sort
.SetRange Range("A17:M6000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Thong bao xoa thanh cong
MsgBox "Xoa du lieu thanh cong"
End If
End Sub