babygirl_8990
Thành viên mới
- Tham gia
- 16/10/18
- Bài viết
- 42
- Được thích
- 0
Chào mọi người cho em hỏi ạ: làm thế nào chạy được mã code cosolidate này trên server được ạ: chạy trên ổ D: thì ok mà thực hiện trên \\192. thì không được mà báo lổi không mở đươc
Sub GOP()
Sheets("QUYDOI").Select
Range("N5:O1000").ClearContents
Range("N5").Select
Selection.Consolidate Sources:= _
"'\\192.168.2.240\Public\TUY?N\00. ???????\[2???????_T?n kho tháng 2.xlsm]QUYDOI'!R5C10:R225C11" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
cảm ơn mọi người
Sub GOP()
Sheets("QUYDOI").Select
Range("N5:O1000").ClearContents
Range("N5").Select
Selection.Consolidate Sources:= _
"'\\192.168.2.240\Public\TUY?N\00. ???????\[2???????_T?n kho tháng 2.xlsm]QUYDOI'!R5C10:R225C11" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
cảm ơn mọi người