Đình Phán
Thành viên thường trực
Chào các anh
Em hiện đang bị vướng lỗi Run time 438 mà không biết cách xử lý như thế nào. Cụ thể
Ở file test (trên cùng 1 Workbook) thì code này chạy mượt
Tuy nhiên, cũng với giải pháp như trên, em copy từ sheet khác vào sheet hiện thành thì báo lỗi 438
ở dòng .Sheet_chon.Range([DU122], [DU498]).Resize(0, So_thang).Copy
Mong các anh giúp đỡ.
Em cảm ơn!
Em hiện đang bị vướng lỗi Run time 438 mà không biết cách xử lý như thế nào. Cụ thể
Ở file test (trên cùng 1 Workbook) thì code này chạy mượt
Mã:
Sub test2()
Dim so_thang As Integer
so_thang = 3
'ThisWorkbook.Sheets("Sheet1").Range([I2], [I10]).Resize(0, 3).Copy
ThisWorkbook.Sheets("Sheet1").Range([I2], [I10]).Resize(, so_thang).Copy
ThisWorkbook.Sheets("Sheet1").Range("Q2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Tuy nhiên, cũng với giải pháp như trên, em copy từ sheet khác vào sheet hiện thành thì báo lỗi 438
ở dòng .Sheet_chon.Range([DU122], [DU498]).Resize(0, So_thang).Copy
Mã:
Private Sub CommandButton2_Click()
Dim Duong_dan As String, Ten_file As String
Dim File_goc As Workbook
Dim S_filename As Variant
Dim File_chon As Workbook
Dim Sheet_chon As Worksheet
Dim Thi_truong As Variant
Dim ThongBao As VbMsgBoxResult
Dim Loai_so_lieu As Variant
Dim Thang_dau As Integer
Dim Thang_cuoi As Integer
Dim So_thang As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.CutCopyMode = False
Set File_goc = ActiveWorkbook
Thang_dau = ComboBox1.Value
Thang_cuoi = ComboBox2.Value
So_thang = Thang_cuoi - Thang_dau + 1
'Gan ma dich den cua thi truong can dien du lieu
If OptionButton1.Value Then Thi_truong = 1
If OptionButton2.Value Then Thi_truong = 2
If OptionButton3.Value Then Thi_truong = 3
If OptionButton4.Value Then Thi_truong = 4
If OptionButton5.Value Then Thi_truong = 5
If OptionButton6.Value Then Thi_truong = 6
If OptionButton7.Value Then Thi_truong = 7
If OptionButton8.Value Then Thi_truong = 8
If OptionButton9.Value Then Thi_truong = 9
If OptionButton10.Value Then Thi_truong = 10
If OptionButton26.Value Then Thi_truong = 11
'Kiem tra dieu kien, gan ky du lieu can copy
If Thang_cuoi < Thang_dau Then
MsgBox "Ban chon Form Month va To Month sai logic!"
Exit Sub
End If
'Gan vung du lieu can lay la Ke hoach hay Thuc hien
If OptionButton24.Value Then Loai_so_lieu = 1
If OptionButton25.Value Then Loai_so_lieu = 2
'Chon File can
Duong_dan = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsb; *.xlsm; *.xlsx", Title:="Open Workbook")
If Duong_dan = "False" Then
MsgBox "No File Selected!"
Exit Sub
Else
S_filename = Split(Duong_dan, "\")
Ten_file = S_filename(UBound(S_filename))
Application.Workbooks.Open Filename:=Duong_dan
Set File_chon = Workbooks(Ten_file)
With File_chon
If Ton_tai_sheet("DLG-BD") Then
Set Sheet_chon = .Sheets("DLG-BD")
'Dieu khien loai du lieu la Ke hoach
If Loai_so_lieu = 1 Then
'Dieu khien ky lay du lieu
Select Case Thang_dau
Case 1
.Sheet_chon.Range([DU122], [DU498]).Resize(0, So_thang).Copy
'Dieu khien tinh huong chon du lieu cua tung thi truong
Select Case Thi_truong
Case 1
File_goc.Sheets("TONG HOP - BD").Range("C121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 2
File_goc.Sheets("TONG HOP - BD").Range("Q121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 3
File_goc.Sheets("TONG HOP - BD").Range("AE121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 4
File_goc.Sheets("TONG HOP - BD").Range("AS121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 5
File_goc.Sheets("TONG HOP - BD").Range("BG121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 6
File_goc.Sheets("TONG HOP - BD").Range("BU121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 7
File_goc.Sheets("TONG HOP - BD").Range("CI121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 8
File_goc.Sheets("TONG HOP - BD").Range("CW121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 9
File_goc.Sheets("TONG HOP - BD").Range("DK121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 10
File_goc.Sheets("TONG HOP - BD").Range("DY121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Case 11
File_goc.Sheets("TONG HOP - BD").Range("EM121").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Select
Em cảm ơn!