Quyenchips
Thành viên mới

- Tham gia
- 12/7/06
- Bài viết
- 1
- Được thích
- 3
Các anh chị ơi! Giúp em tạo file Kế toán về bán lẻ xăng dầu với !!!!!!!! Em đang lúng túng chưa biết làm như thế nào. Thanks



bạn ơi hướng dẫn cụ thể 1 chút giúp mình được không? cảm ơn bạn nhiều/(/hưng mất đâu 2 cái macro rồi; nếu ưng í sẽ giúp tiếp!
Sub Nhap()
' Macro recorded 14/07/2006 ' Keyboard Shortcut: Ctrl+Shift+N'
Dim jZ As Integer: Dim StrC As String
Application.ScreenUpdating = 0
Sheets("Nhap").Select: Range("C1:C13").Select
Selection.Copy
Sheets("CSDL").Select: Range("B2").Select
Selection.End(xlDown).Select: jZ = Selection.Row + 1
StrC = "A" & CStr(jZ): Range(StrC).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Nhap").Select: Range("C2").Select
Application.ScreenUpdating = -1
End Sub



