Lỗi tạo nút lưu trữ ambiguous name detected....... (1 người xem)

[phamhiep78]

Sub luuvaodata()
Dim lr As Long
With IsShdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 3
Shform.Range("AA5:AK5").Copy
.Range("A" & lr).PasteSpecial xlPasteValues
MsgBox ("Ghi data xong!")
End With
End Sub

 

[Hoàng Tuấn 868]

Sub luuvaodata()
Dim lr As Long
With IsShdata
lr = .Range("A" & Rows.Count).End(xlUp).Row + 3
Shform.Range("AA5:AK5").Copy
.Range("A" & lr).PasteSpecial xlPasteValues
MsgBox ("Ghi data xong!")
End With
End Sub

Vụ này là giới thiệu lỗi hay làm gì nhỉ.

 

[ongke0711]

Lỗi do có một sub khác trùng tên "luuvaodata".