Nhờ Thầy xem giúp em dòng code bên dưới sai ở đâu ạ, khi chạy lệnh thì bị vàng dòng dưới và hiện lỗi 424, em cảm ơn Thầy rất nhiều:
DC = Workbooks("WEEKLY31_10").Sheet18.Range("C" & Sheet18.Rows.Count).End(xlUp).Row
chào bạn bạn viết dưới dang sheets name cần viết như sau:
dc = workbooks("Tenbook").sheets("Tensheets").range("tencong"&rows.count).end(xlup).row
Cảm phiền Thầy xem giúp em, em không tìm ra được chỗ sai ạ: Workbooks("WEEKLY31_11").Sheets("KSV").Range("C2:C252").Value = Workbooks("Data").Sheets("Data10").Range("A2:A252").Value
Chào bạn bạn viết trên cùng một dòng hay hai dòng vậy nếu hai dòng thì bạn thiếu một dấu _
Dạ trên 1 dòng ạ
Chào bạn bạn có thể đẩy code lên được không?
Sub Gop_DuLieu_01()
Workbooks("WEEKLY31_11").Sheets("KSV").Range("C2:C252").Value = Workbooks("Data").Sheets("Data10").Range("A2:A252").Value
End Sub
em tự làm cái cơ bản nhất, nên chưa viết gì nhiều ạ
Dạ, Thầy chỉ giúp em xem lại video nào để em viết thêm code vào ạ
Chào bạn bạn xem lại bài 7 nhé. lưu ý woorkbook của bạn được lưu nhé. và đang được mở nhé.
Nhờ Thầy giúp em, xem code bên dưới ạ, em muốn dán dữ liệu từ cột C9:C2000 của sheet DVKH (nv) dán vào dòng cuối trở đi của sheet Data10KSV ạ
Workbooks("Data.xlsm").Sheets("Data10KSV").Range("A" & DongCuoi + 1).Value = Workbooks("WEEKLY31_10.xlsx").Sheets("DVKH (nv)").Range("C9:C2000").Value
chào bạn bạn xem ở phần chương 10 sẽ thấy rõ phần này nhé. code nhìn thì không thấy sai nhưng phần dongcuoi là gì thì hiện tại đang không được hiện lên ở đây.
Dạ, em cảm ơn thầy ạ
Chúc bạn học tốt cùng gitiho
Nhờ Thầy giúp em với ạ,
Em muốn giá trị Filter 004 được nhập vào ô A1 của sheet, mỗi lần em thay đổi giá trị tại ô A1 thì Filter được nhảy theo giá trị đó ạ, dĩ nhiên giá trị tại ô A1 là tập con của giá trị trong bảng ạ. Em cảm ơn thầy nhiều ạ
Sub Filter()
' Filter Macro
' Rows("8:8").Select
Range("Y8").Activate
Selection.AutoFilter
ActiveWindow.ScrollColumn = 166
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 5
Application.Calculation = xlManual
ActiveSheet.Range("$A$8:$GI$2882").AutoFilter Field:=6, Criteria1:="004"
End Sub
Dạ, advance filter là để trích dữ liệu cần filter từ 1 bảng, còn cái em muốn chỉ là filter thôi ạ, em có xài macro advance filter cho trường hợp khác rồi, trường hợp này em chỉ muốn filter bằng macro vậy thôi ạ, ko muốn trích dữ liệu ra vị trí khác ạ
Chào bạn bạn có thể đẩy file lên được không? còn bước này nó đơn giản chỉ là recon macrro thôi không có gì phức tạp đâu.
Em cảm ơn Thầy, em làm được theo ý Thầy gợi là là dùng advancel fiter rồi ạ.
chúc bạn học tốt cùng gitiho
Thầy ơi, nhờ Thầy giúp em với ạ,
em muốn thiết lập sự kiện khi em bấm tắt 1 file thì các file khác tắt theo cùng mà em làm nó báo lỗi, nhờ Thầy chỉnh giúp em ạ
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Close "D:\XuanDieu\Dieu\6.Xuatso\1.2021\BAO CAO TUAN_08042021_PFS.xlsx"
Workbooks.Close "D:\XuanDieu\Dieu\6.Xuatso\1.2021\KHKH 2021_31.03.2020.xlsm"
Workbooks.Close "D:\XuanDieu\Dieu\6.Xuatso\1.2021\BAO CAO TUAN_31032021_ PFS.xlsx"
End Sub
Chào bạn bạn xem dường dẫn các file đã đúng chưa? bạn có thể ghi macro để đổi dạng như sau:
Sub dongfile()
Application.WindowState = xlNormal
Windows("kiemtra.xlsx").Activate
ActiveWindow.Close
End Sub