Lỗi code khi viết lệnh (1 người xem)

[ngocrin1]

Chào các bạn,

Mình đang tập tành viết code nhưng tới dòng bôi đỏ ở dưới thì bị báo lỗi nhưng không biết bị sai chỗ nào. Nhờ các bạn xem giúp mình với. Thanks!

Sub Data()
Dim Dongia As Single
LRow1 = Sheets("DATA").Range("E65000").End(xlUp).Row
LRow2 = Sheets("DATA").Range("F65000").End(xlUp).Row
LRow3 = Sheets("DATA").Range("G65000").End(xlUp).Row
LRow4 = Sheets("DATA").Range("H65000").End(xlUp).Row
Sheets("DATA").Range("A7") = 1
Sheets("DATA").Range("A8").Formula = "=A7+1"
Sheets("DATA").Range("A8:A" & LRow1).FillDown
'
Sheets("DATA").Range("F" & LRow2).Select
Selection.Copy
Sheets("DATA").Range("F" & LRow2 + 1:"F" & LRow1).Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[khuongvietphong]

Chào các bạn,

Mình đang tập tành viết code nhưng tới dòng bôi đỏ ở dưới thì bị báo lỗi nhưng không biết bị sai chỗ nào. Nhờ các bạn xem giúp mình với. Thanks!

Sub Data()
Dim Dongia As Single
LRow1 = Sheets("DATA").Range("E65000").End(xlUp).Row
LRow2 = Sheets("DATA").Range("F65000").End(xlUp).Row
LRow3 = Sheets("DATA").Range("G65000").End(xlUp).Row
LRow4 = Sheets("DATA").Range("H65000").End(xlUp).Row
Sheets("DATA").Range("A7") = 1
Sheets("DATA").Range("A8").Formula = "=A7+1"
Sheets("DATA").Range("A8:A" & LRow1).FillDown
'
Sheets("DATA").Range("F" & LRow2).Select
Selection.Copy
Sheets("DATA").Range("F" & LRow2 + 1:"F" & LRow1).Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Bạn sửa lại thành như này xem có đươck không
Sheets("DATA").Range("F" & LRow2 + 1 &":F" & LRow1).Select

 

[ngocrin1]

Thành công rồi bạn ơi. Thanks!

 

[langtuchungtinh360]

Thành công rồi bạn ơi. Thanks!

đừng bôi đỏ nữa nha bạn, quy định màu đỏ chỉ cho BQT

 

[ngocrin1]

Tiếp tục mình có một ý tưởng mới nhưng hiện vẫn chưa thực hiện được nhờ các bạn giúp đỡ với.

Mình muốn viết một đoạn Code thực hiện chức năng như chức năng của Table là khi ta gõ một dòng mới vào bên dưới table, tất cả các công thức, format, vadiation của ô sẽ tự động điền xuống dòng tiếp theo.
Đơn giản theo cách của mình với code ở trên mình muốn viết thêm dòng lệnh mà các thao tác Filldown ở trên sẽ được thực hiện lại khi phát sinh thao tác gõ thêm dữ liệu vào dòng mới phía dưới.

 

[ndu96081631]

đừng bôi đỏ nữa nha bạn, quy định màu đỏ chỉ cho BQT

Chừng nào viết đỏ toàn bộ bài viết thì mới vi phạm. Bôi đỏ một vài dòng để ghi chú, đánh dấu... thì không sao
----------------------------------

Tiếp tục mình có một ý tưởng mới nhưng hiện vẫn chưa thực hiện được nhờ các bạn giúp đỡ với.

Mình muốn viết một đoạn Code thực hiện chức năng như chức năng của Table là khi ta gõ một dòng mới vào bên dưới table, tất cả các công thức, format, vadiation của ô sẽ tự động điền xuống dòng tiếp theo.
Đơn giản theo cách của mình với code ở trên mình muốn viết thêm dòng lệnh mà các thao tác Filldown ở trên sẽ được thực hiện lại khi phát sinh thao tác gõ thêm dữ liệu vào dòng mới phía dưới.

Vậy sao không dùng luôn công cụ Table, code chi cho mệt vậy?

 

[langtuchungtinh360]

Chừng nào viết đỏ toàn bộ bài viết thì mới vi phạm. Bôi đỏ một vài dòng để ghi chú, đánh dấu... thì không sao

vậy là chắc em hiểu nhầm. xem nội quy cứ nghĩ chỉ BQT mới được dùng màu đỏ

 

[ngocrin1]

Vậy sao không dùng luôn công cụ Table, code chi cho mệt vậy?

Thực ra em muốn khóa một số cột không cho chỉnh sửa nhưng khi dùng chức năng protect sheet thì chức năng tự động Filldown của công cụ Table lại không dùng được nữa nên mới nghĩ ra là phải viết code. Anh ndu96081631 có cách nào chỉ e với. Thanks!