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

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

sorry0ne

Thành viên mới
Tham gia
28/11/17
Bài viết
13
Được thích
2
Giới tính
Nữ
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
 

File đính kèm

  • 1700638101596.png
    1700638101596.png
    59.6 KB · Đọc: 9
  • Thang nguon Phu luc dinh kem_STC- cat phan giai ngan.xlsm
    63.3 KB · Đọc: 10

...
.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.
 
...
.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:

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 !_!
 
...
.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
1700665835917.png
 
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:

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 ạ.
Tại sao xảy ra bác nhẩy?
 
Đã 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.
 
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
 
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!
 
Web KT

Bài viết mới nhất

Back
Top Bottom