Hỏi cách khâc phụ lỗi trong excel2010 (1 người xem)

[dtuntanh]

Khi e chay 1 from VBA trên VBA trên excel2010 thì báo lỗi " system error &H80070008(-2147024888) Not enough srorange is available to process this command. Mong anh chị hướng dẫn e sửa vfa khác phục lỗi này với ạ. Em xin cảm ơn.u

 

[be_09]

Bạn tìm dòng code nào bị lỗi và thử sửa vầy coi có được không?

&H800700FF

Nếu sửa không được thì bạn nên đính kèm File để các thành viên xem và giúp thì thuận lợi hơn.

 

[dtuntanh]

Của mình khi gọi form lên thì nó báo vậy. Nó báo lỗi tại dòng.
call THOATHUANTK.show

 

[dtuntanh]

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False ''' tat nháy màn hình
Application.Calculation = xlCalculationManual ''' tat công thuc
HoiUpdate = MsgBox("Ban muon tao lai du lieu chi nhanh ban tu file luu?", vbYesNo, "Agribank Chi nhanh huyen Dai Tu")
If HoiUpdate = vbYes Then
If Dir(ThisWorkbook.Path & "" & "Luu.xlsx") = "Luu.xlsx" Then
Workbooks("Tao ho so.xlsm").Activate
Workbooks.Open (ThisWorkbook.Path & "" & "Luu.XLSX")
Sheets(1).Select
Range("A2:A200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("DATA").Range("A1:A200")
Range("B2:H200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("AA2:AG200")
Range("I2:I200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("BH2:BH200")
Range("K2:K200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("BZ2:BZ200")
Range("J2:J200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("BQ2:BQ200")
Range("L2:L200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("BY2:BY200")
Range("T2:T200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("BL2:BL200")
Range("M2:M200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("CG2:CG200")
Range("N2:N200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("CS2:CS200")
Range("O2:O200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("CV2:CV200")
Range("P2200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("DL2L200")
Range("Q2:Q200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("DM2M200")
Range("R2:R200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("EP2:EP200")
Range("S2:S200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("DO2O200")
Range("B2:B200").Copy _
Workbooks("Tao ho so.xlsm").Sheets("Solieu").Range("DQ1Q200")
Sheets("Luu HSTC").Select
Range("A1:NZ1000").Copy _
Workbooks("Tao ho so.xlsm").Sheets("DATA1").Range("A1:NZ1000")
Sheets("Luu HMHO").Select
Range("A1:NZ1000").Copy _
Workbooks("Tao ho so.xlsm").Sheets("HMHO").Range("A1:NZ1000")
Sheets("Luu HOSX").Select
Range("A1:NZ1000").Copy _
Workbooks("Tao ho so.xlsm").Sheets("HOSX").Range("A1:NZ1000")
Sheets("TIEUDUNG").Select
Range("A1:NZ1000").Copy _
Workbooks("Tao ho so.xlsm").Sheets("TIEUDUNG").Range("A1:NZ1000")
Sheets("THAUCHI").Select
Range("A1:NZ1000").Copy _
Workbooks("Tao ho so.xlsm").Sheets("THAUCHI").Range("A1:NZ1000")
Workbooks("Luu.XLSX").Close SaveChanges = False 'Dong file nguon du lieu khong save
MsgBox "Da cap nhat xong du lieu tu file Luu.xlsx vao chuong trinh"
TTCN.Hide
Call TTCN.Show
Else
MsgBox "File Luu.xlsx khong ton tai" ' neu file sao ke ko ton tai thi hien ra msgbox nay
Exit Sub ' thoat khoi sub
End If
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Goto ActiveWorkbook.Sheets("TT Chung").Cells(1, 5)
End Sub

Anh chị xem giúp em đoạn code trên lỗi ở chỗ nào với ạ. Khi e chạy đoạn code trên xong thoat ra. Và khi e gọi một form khác lên thì máy báo lỗi như ở #1 em đã trình bầy. Rất mong được anh, chị giúp đỡ. Em xin cảm ơn!

 

[be_09]

Vấn đề bài #3

Call THOATHUANTK.show

Với code bài #4 không ăn nhậu gì với nhau (mỗi thằng nhậu 1 quán).

 

[dtuntanh]

Nhưng mỗi khi mình chạy code o #4 xong, thì chậy call THOATHUANTK.show bị lỗi, còn nếu không chạy code#4 thì lại bình thường, bạn giúp mình giải quyết vấn đề này với.

 

[dtuntanh]

Sau khi báo lỗi ở phần #1 ấn Ok thì lại báo " Run-time error '7': Could not find the specified obhiect. Bạn xem giúp mình với.

 

[be_09]

Bạn vui lòng đọc lại bài #2.

Code chạy lần đầu kết quả ra sao, làm sao tôi biết? Xem kết quả thì mới biết code 2 nó lỗi chỗ nào chứ.