Lỗi run-time error '1004' (3 người xem)

[duchuynh103]

Nhờ các bạn giúp mình: Làm cách nào để sử dụng được macro sau khi Protect sheet?
Trong file của mình sau khi protect xong thì bị lỗi Run-time error '1004'. Cảm ơn các bạn.

 

[Hai Lúa Miền Tây]

Cái này bạn bị Protect sheet : bạn bào tools\protection, chọn unprotect sheet là xong

 

[ChanhTQ@]

Bạn tham khảo bọn này xem sao?

Sub To_Sh1()
   i = Range("A600").End(xlUp).Row
   Protect True  '<=|'
   Range("B3:E" & i).ClearContents
   Sheet1.Select
   [a600].End(xlUp).Select
   Protect            '<=|'
End Sub
Sub To_sh2()
   Sheet2.Select
   Protect True       '<=|'
   i = Range("A600").End(xlUp).Row
   Range("B3:E" & i).FormulaR1C1 = "=SUMIF(Sheet1!R3C1:R7C1,Sheet2!RC1,Sheet1!R3C:R7C)"
   Protect     '<=|'
End Sub

[B]Sub Protect(Optional Khoa As Boolean = False)[/B]
    If Khoa Then
        ActiveSheet.Unprotect
    Else
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
[B]End Sub[/B]

 

[ERX_Vietnam]

Bạn ChanhTQ@ ơi, mình cũng có file giống bạn duchuynh103 nè. khi protect sheet hay share đều bị runtime error 1004 hết. Bạn xem giúp mình được không?
Thank bạn trước hen.

 

[ngoctrongdat]

Tôi cũng có một bài như vậy đấy, các Bác giúp hộ xem phải làm thế nào?
Tôi cũng đã thử xong đoạn code của ChanhTQ@ tôi không biết phải viết vào đâu và thực hiện như thế nào?

 

[ndu96081631]

Tôi cũng có một bài như vậy đấy, các Bác giúp hộ xem phải làm thế nào?
Tôi cũng đã thử xong đoạn code của ChanhTQ@ tôi không biết phải viết vào đâu và thực hiện như thế nào?

Bài của bạn đã được giải quyết xong tại đây:
http://www.giaiphapexcel.com/forum/showpost.php?p=169351&postcount=15

 

[123]

Chào cả nhà,
Tôi cũng gặp phải tình trạng hệt như vậy, tuy nhiên file của tôi có khác hơn một chút, là do
1- File của tôi để trên máy chủ mà nhiều người dùng một lúc nên phải đặt ở chế độ share workbook
2- Do có một số phần lọc hay được sử dụng nên tôi đã tạo một số nút command button và gán các macro để thực hiện các thao tác lọc cho nhanh.
3- Do nhiều người thuộc nhiều nhóm khác nhau cùng truy cập nên tôi muốn phân quyền cho mỗi người làm việc trên một số ô cụ thể của file (màu xanh và màu vàng tương ứng trên file đính kèm) và tôi đã đặt được pass vùng cho 2 vùng nay.
Trước đây tôi cũng bị lỗi khi protect sheet để sử dụng pass vùng thì các nút bấm không thể sử dụng được và báo lỗi run time error 1004 như đã nêu. Qua trao đổi của cả nhà, tôi đã xử lý được lỗi này khi không share workbook. Nhưng khi share thì vẫn báo lỗi như trên. Mọi người có thể chỉ dẫn tôi cách xử lý được không? Yêu cầu của vấn đề là:
1-Phải để file ở chế độ share
2-Phải sử dụng được các nút bấm
3-Phải đặt được pass vùng (mỗi người chỉ được quyền nhập số liệu trên một vùng nhất định)
Cám ơn mọi người .
Thân mến

 

[Doan huu chinh]

xin mọi người sửa giúp cho tôi lỗi này , nó báo là :run-time error '1004' và đây là đoạn mã sai mà tôi ko biết sửa như thế nào :
Sub Home()
i4 = WorksheetFunction.Match(SHd.Range("E1"), _
Sheets("Table No.").Range("A2:A25"), 0)
If i4 <= 8 Then
j1 = 4
ElseIf i4 <= 16 Then
j1 = 6
Else: j1 = 8
End If
j2 = 3 * (i4 Mod 8) + 2
If j2 = 6 Then j2 = 26
End Sub

 

[Po_Pikachu]

Code này mình đâu thấy có lỗi gì đâu. Bạn xem lại vùng dữ liệu [A2:A25] xem đúng dữ liệu chưa?

Sub Home()
i4 = WorksheetFunction.Match(SHd.Range("E1"), _
Sheets("Table No.").Range("A2:A25"), 0)
j1 = Int((i4 - 1) / 8) * 2 + 4
If j1 > 8 Then j4 = 8
j2 = 3 * (i4 Mod 8) + 2
If j2 = 6 Then j2 = 26
End Sub

Thân.

 

[Doan huu chinh]

bạn po pikachu ơi ! mình đã kiểm tra lại vùng dữ liệu nhưng vẫn ko được. Bây giờ phải làm gì tiếp đây.Mình nhờ bạn xem lại giúp mình . nó báo run-time error '1004' . unable to get the match property of the worksheetfunctionclass
Option Explicit
Public i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer
Public eR1 As Integer, eR2 As Integer, k, j1, j2
Public SHd As Worksheet, SDa As Worksheet
Sub PreviewInvoice()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Sub khaibao()
Set SHd = Sheets("Invoice") ' <-- Gán SHd là sheet 'Invoice'
Set SDa = Sheets("Data") ' <-- Gán SHd là sheet 'Data'
End Sub
Sub SaveInvoiceProcess()
Application.ScreenUpdating = False
LuuDL
XoaDL
Application.ScreenUpdating = True
End Sub
Sub LuuDL()
Dim A2
khaibao ' <-- Goi sub 'khaibao'
eR1 = SHd.Range("C21").End(xlUp).Row ' <-- Dong cuoi trong bang hoa don
eR2 = SDa.Range("A65536").End(xlUp).Row + 1 ' <-- Dong trong ngay duoi dong cuoi trong 'Data'
If eR1 >= 12 Then
k = WorksheetFunction.CountIf(SDa.Range("C2:C" & eR2), _
Range("B1"))
If k > 0 Then
i2 = WorksheetFunction.Match(SHd.Range("B1"), _
Sheets("Data").Range("C1:C" & eR2), 0) ' <-- Dong dau tien chua so HDon
i3 = WorksheetFunction.Match(SHd.Range("B1"), _
Sheets("Data").Range("C1:C" & eR2), 1) ' <-- Dong cuoi cung chua so HDon
SDa.Range("A" & i3 + 1 & ":H" & i3 + eR1 - 11).Insert Shift:=xlDown ' <-- Chen them dong
SDa.Range("H" & i2).Copy SDa.Range("H" & i3 + 1 & ":H" & i3 + eR1 - 11)
SDa.Range("A" & i2 & ":H" & i3).Delete Shift:=xlUp ' <-- Xoa dong cu
eR2 = i2
End If
Else
MsgBox "Khong co du lieu de luu", , "Error"
Exit Sub
End If
'======================================
SHd.Range("B12:E" & eR1).Copy
SDa.Cells(eR2, 4).PasteSpecial xlPasteValues
SDa.Cells(eR2, 1) = SHd.Range("E10")
SDa.Cells(eR2, 2) = SHd.Range("E1")
SDa.Cells(eR2, 3) = SHd.Range("B1")
SDa.Range("A" & eR2 & ":C" & eR2).Copy _
SDa.Range("A" & eR2 & ":C" & eR2 + eR1 - 12)
Home
End Sub
Sub XoaDL()
SHd.Range("B1") = SHd.Range("B1").Value + 1
SHd.Range("B12:C21").ClearContents
Sheets("Home").Activate
If SDa.Range("H" & eR2) = "" Then Sheets("Home").Cells(j2, j1) _
= WorksheetFunction.Sum(SDa.Range("G" & eR2 & ":G" & eR2 + eR1 - 12))
End Sub
Sub Home()
i4 = WorksheetFunction.Match(SHd.Range("E1"), _
Sheets("Table No.").Range("A2:A25"), 0)
If i4 <= 8 Then
j1 = 4
ElseIf i4 <= 16 Then
j1 = 6
Else: j1 = 8
End If
j2 = 3 * (i4 Mod 8) + 2
If j2 = 6 Then j2 = 26
End Sub

 

[Po_Pikachu]

Cái bạn cần làm là gửi file bị lỗi ấy lên chứ gửi cả đống link lên mà chẳng thấy dữ liệu thì làm sao mà làm chứ? Nhìn vậy giống như ăn chay vậy? Gọi là thịt mà có phải thịt đâu, toàn là tàu hủ thúi cả. Hhuhuhuhu
Thân.

 

[Doan huu chinh]

đây mình gửi file các bạn xem hộ

 

[Ruou_va_hoa]

Có ai giúp mình với

Anh em xem cái lỗi file Excel này rùi sữa cho mình với. Cảm ơn trước nha: Sửa xong nhớ gửi về "Quanghieu.vl@gmail.com"

 

[Ruou_va_hoa]

xem và sửa dùm

sửa xong nhờ gửi đến : quanghieu.vl@gmail.com

 

[Hoangtrang211]

Các bác ơi giúp em sửa lỗi run time error 1004 này với ạ, em có mấy file toàn bị như thế này

 

[Talaai123]

Em có cái file bị dính lỗi runtime erro 1004, loay hoay các kiểu không khắc phục được, em post lên đây nhờ các bác fix dùm ạ. Em xin cảm ơn nhiều !



Hic ! file dung luong qua 1MB nen khong tai duoc, em phai dung duong link.

 

[Talaai123]

EM up lên nhờ các cao thủ đi qua fix giùm.

 

[Dang MInh Tue]

Nhờ anh em cao thủ giúp sửa chữa đoạn code nhập liệu này cho gọn gàng, chạy nhẹ nhàng giúp mình với, gửi giùm về minhtue.dang@gmail.com nhé. Thank nhiều

 

[be_09]

Nhờ anh em cao thủ giúp sửa chữa đoạn code nhập liệu này cho gọn gàng, chạy nhẹ nhàng giúp mình với, gửi giùm về minhtue.dang@gmail.com nhé. Thank nhiều

Chủ đề bạn yêu cầu không liên qua đến lỗi Run-time error '1004.
Tốt nhất là bạn tạo chủ đề mới và đính kèm File Excel, nêu rõ vấn đề cần ở cột nào (vì tôi thấy File txt của bạn có 1 đống hàm trong đó), thà viết code mới còn lẹ hơn ngồi đọc code của bạn.

 

[Hoang2013]

Các bác ơi giúp em sửa lỗi run time error 1004 này với ạ, em có mấy file toàn bị như thế này
View attachment 162007
View attachment 162008

Mắt kém, nhồm hoài mà chả thấy gì sất!

Hay bạn trích nguyên macro đó lên & dòng nào bị tô vàng, thì còn họa may!