Các cao nhân giúp e sửa lỗi "Run -time error'1004': Method 'Range' of object '_worksheet' failed"

[sorry0ne]

Em mới nhập môn VBA. rất mong các anh, chị cao nhân chỉ giúp em lỗi này với ạ
Dim lr As Long, i As Long
'Kiem tra dieu kien
For i = 5 To 17
If Shfrom.Range("F" & i).Value = False Then
MsgBox Shfrom.Range("H" & i).Value
Shfrom.Range("B" & i).Select
Exit Sub
End If
Next i
'Luu vao data
With shdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
Shfrom.Range("AA6:AM6").Copy 'copy
.Range("A" & lr).PasteSpecial xlPasteValues 'paste
Application.CutCopyMode = False
reset 'xoa nhap lai tu dau
MsgBox "Xong!"
Shfrom.Range("B5") = "=MAX('data Ke toan'!A1)+1"
.Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")"
End With

 

[BuiQuangThuan]

Em mới nhập môn VBA. rất mong các anh, chị cao nhân chỉ giúp em lỗi này với ạ

Đính kèm cái file lên giùm với. chứ không thì biết nó lỗi ở đâu.

 

[sorry0ne]

Đính kèm cái file lên giùm với. chứ không thì biết nó lỗi ở đâu.

Mình mới đính kèm lên rồi a

 

[BuiQuangThuan]

Mình mới đính kèm lên rồi a

Muốn sửa hay muốn viết lại mới

 

[sorry0ne]

Muốn sửa hay muốn viết lại mới
View attachment 296940

dạ. e muốn sửa trước ạ ...

 

[sorry0ne]

Muốn sửa hay muốn viết lại mới
View attachment 296940

Em lại bị lỗi này ạ

 

[BuiQuangThuan]

Em lại bị lỗi này ạ View attachment 296952

Tắt file rồi chạy lại xem sao

 

[sorry0ne]

Tắt file rồi chạy lại xem sao

dạ cũng vẫn bị ạ

 

[Phuocam]

Em mới nhập môn VBA. rất mong các anh, chị cao nhân chỉ giúp em lỗi này với ạ
If Shfrom.Range("F" & i).Value = False Then

Thử khai báo đầy đủ xem sao, như thêm:

Dim Shfrom As Worksheet
Set Shfrom = Sheets("abc gi do")

 

[sorry0ne]

Thử khai báo đầy đủ xem sao, như thêm:

Dim Shfrom As Worksheet
Set Shfrom = Sheets("abc gi do")

nó vẫn bị lỗi ạ

 

[VetMini]

Tại chỉ tha thiết cầu "cao nhơn" cho nên thường nhơn người ta "e" bị chê, chạy hết rồi.

 

[cantl]

lỗi

...
.Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")" 'cái này không gán xuống được. KHÓ HIỂU

...
.Range("b6;b16").ClearContents 'sai dấu : ;
.Range("B5") = "=MAX('data Ke toan'!A1)+1" 'sửa A1 -> A:A
...
'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------

XÓA DÒNG KIA ĐI THÌ CÒN VỚT VÁT ĐƯỢC.

 

[Quang_Hải]

Em lại bị lỗi này ạ View attachment 296952

Bạn đã sai 1 chút xíu. Mình phải có cầu lệnh ShFrom.Select trước rồi mới Select cells của nó chứ. Thử vầy coi sao

            Shfrom.Select
            Shfrom .Range("B" & i).Select

 

[sorry0ne]

Bạn đã sai 1 chút xíu. Mình phải có cầu lệnh ShFrom.Select trước rồi mới Select cells của nó chứ. Thử vầy coi sao

            Shfrom.Select
            Shfrom .Range("B" & i).Select

e đã thửử nhưng nó lại báo lỗi "Can't execute code in break mode" ạ

 

[sorry0ne]

...
.Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")" 'cái này không gán xuống được. KHÓ HIỂU

...
.Range("b6;b16").ClearContents 'sai dấu : ;
.Range("B5") = "=MAX('data Ke toan'!A1)+1" 'sửa A1 -> A:A
...
'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------

XÓA DÒNG KIA ĐI THÌ CÒN VỚT VÁT ĐƯỢC.

Sư fụuuuuu. Cám ơn bạn nhiều lắm lắm luôn.

Bài đã được tự động gộp: 22/11/23

Tại chỉ tha thiết cầu "cao nhơn" cho nên thường nhơn người ta "e" bị chê, chạy hết rồi.

Chị sai quá sai rồi. Rất mong em thường nhơn hỗ trợ, hướng dẫn, chỉ bảo lỗi lầm của chị với !_!

 

[sorry0ne]

...
.Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")" 'cái này không gán xuống được. KHÓ HIỂU

...
.Range("b6;b16").ClearContents 'sai dấu : ;
.Range("B5") = "=MAX('data Ke toan'!A1)+1" 'sửa A1 -> A:A
...
'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------'---------------------------

XÓA DÒNG KIA ĐI THÌ CÒN VỚT VÁT ĐƯỢC.

Đã sửa rồi nhưng sao vẫn còn lỗi nữa bạn ơi. Hjx

 

[cantl]

lỗi

Sửa code của bài 1 nhé:

Option Explicit
Sub Luuvaodata()
Dim lr As Long, i As Long
'Kiem tra dieu kien
For i = 5 To 17
If Shfrom.Range("F" & i).Value = False Then
MsgBox Shfrom.Range("H" & i).Value
Shfrom.Range("B" & i).Select
Exit Sub
End If
Next i
'Luu vao data
With shdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
Shfrom.Range("AA6:AM6").Copy 'copy
.Range("A" & lr).PasteSpecial xlPasteValues 'paste
Application.CutCopyMode = False
reset 'xoa nhap lai tu dau
MsgBox "Xong!"


End With

End Sub
Sub reset()
With Shfrom
.Range("b6:b16").ClearContents
.Range("B5") = "=MAX('data Ke toan'!A:A)+1"
.Range("B8") = "=c8" (*---*)
' .Range("B8") = "=IFERROR(VLOOKUP(B7;'danh sach'!$G$2:$H$259;2;0);"")"
'công thức này nhét sẵn vào ô C8, để cho (*---*) chạy được (chỉ là chữa cháy thôi)
End With
End Sub

Bài đã được tự động gộp: 22/11/23

Tại chỉ tha thiết cầu "cao nhơn" cho nên thường nhơn người ta "e" bị chê, chạy hết rồi.

bác thường giải thích cho em cái vụ công thức báo lỗi với ạ.

.Range("B8") = "=IFERROR

Tại sao xảy ra bác nhẩy?

 

[ongke0711]

Đã sửa rồi nhưng sao vẫn còn lỗi nữa bạn ơi. Hjx
View attachment 296957

Cái báo lỗi trên đơn giản là "Code đang bị dừng giữa chừng vì lỗi" (nó tô màu vàng dòng lỗi đó).
Để trả lại trạng thái bình thường (không phải break mode) thì bấm cái icon hình vuông bên phải cái icon hình tam giác, rồi sửa code -> chạy...Vậy thôi.

 

[HieuCD]

Tại chỉ tha thiết cầu "cao nhơn" cho nên thường nhơn người ta "e" bị chê, chạy hết rồi.

Hệ thống tuyên truyền của Trung Quốc quá hay, nhiều bạn trẻ Việt Nam chạy theo dùng tiếng Trung Quốc dần bỏ quên ngôn ngữ thuần Việt!
"Cao nhơn" là tiếng Hán Việt , tiếng Hán viết theo chữ Việt

 

[SA_DQ]

Hệ thống tuyên truyền của Trung Quốc quá hay, nhiều bạn trẻ Việt Nam chạy theo dùng tiếng Trung Quốc dần bỏ quên ngôn ngữ thuần Việt!
. . . .

Chỉ 1 phần thôi; Nếu người Việt hàng ngàn năm xưa cũng vậy thì giờ ta chả có tiếng Việt đâu!
Cũng tại:
→ Nhiều người Việt ta đang chán hàng nội, xính hàng ngoại
→ Một số không ít thanh niên đang mất phương hướng & niềm tin nội tại & đi tìm cái gì đó mới hơn, có vẻ đáng tin hơn;
→ LĐ kêu gọi hòa nhập chớ hòa tan; Nhưng với nhiều người thì sẵn sàn hòa tan (cho oai, cho tân tiến hơn, cho màu mè hơn,. . . . )
→ . . . .

Chúc các bạn vui nhiều trong ngày!