có cao nhân nào thạo VBA ở TP.Bắc Ninh ko để em qua xin chỉ giáo với ạ?

[newname1186]

Em đang gặp khó khăn trong viết lệnh VBA có bác nào thạo VBA ở TP.Bắc Ninh để e qua xin ý kiến chút ạ. Chân thành cảm ơn!

 

[newname1186]

Đất Bắc Ninh không nhiều đá vôi bằng Ninh Bình. Qua bên Ninh Bình hy vọng dân ở đó nhiều "cao nhơn" hơn.
Còn muốn kiếm cao hổ cốt, cao khỉ thì nên lên Lạng Sơn.

Bác nào code giúp đoạn này thành copy từ dòng số 3, sheet 4 sau đó paste special, value vào báo cáo tổng với ạ. Thanks!
Sub MergeFilesExcel()

Dim path As String, ThisWB As String, lngFilecounter As Long
Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
Dim Filename As String, Wkb As Workbook
Dim CopyRng As Range, Dest As Range
Dim RowofCopySheet As Integer

RowofCopySheet = 2

ThisWB = ActiveWorkbook.Name

'Dien duong dan folder chua cac tap tin excel can gom lai.
'Nhu ban thay toi tien duong dan thu muc chua cai file excel cua toi.
path = "C:\Users\DAT\Desktop\New folder (2)"

Application.EnableEvents = False
Application.ScreenUpdating = False

Set shtDest = ActiveWorkbook.Sheets(1)
Filename = Dir(path & "\*.xls", vbNormal)
If Len(Filename) = 0 Then Exit Sub
Do Until Filename = vbNullString
If Not Filename = ThisWB Then
Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
CopyRng.Copy Dest
Wkb.Close False
End If

Filename = Dir()
Loop

Range("A1").Select

Application.EnableEvents = True
Application.ScreenUpdating = True

MsgBox "Ket Thuc!"

End Sub

 

[ptm0412]

Bài này vi phạm nội quy về tiêu đề, nên tôi đóng lại. Bạn mở chủ đề mới tiêu đề ngắn gọn, mô tả đầy đủ, code cần có file đính kèm, hạn chế dùng tiếng Anh nếu như tiếng Việt có sẵn. Còn chủ đề này tôi đóng lại.