Help: Lưu database từ form nhập sang một file khác. (1 người xem)

[gh0st02]

Chào các cao thủ !
Em có 1 vấn đề nhờ các cáo thủ ra tay tương trợ.
Em có 1 file - gửi đính kèm. Sheet INPUT là nơi nhập dữ liệu - và dữ liệu sẽ được chuyển sang sheet DATABASE.
Cái đó em làm được rồi.
Giờ em muốn khi INPUT và SAVE thì dữ liệu sẽ được chuyển sang 1 file khác, tách biệt với file đang có.
Các bác chỉ giúp em có cách nào không ạ ???
Em xin cảm ơn !

 

[gh0st02]

Up cho ngày mới.
Hy vọng sẽ có giải pháp.

 

[gh0st02]

Cảm ơn bác hpkhuong đã reply.
Yêu cầu của em chắc là cũng không đến nỗi khó hiểu lắm.
Thay vì dữ liệu lưu vào sheet DATABASE như hiện tại, thì nó sẽ lưu vào file DATABASE - có format và nội dung tương tự như cái sheet DATABASE kia.
2 file lưu cùng thư mục.
Nhờ các CAO THỦ ra tay tương trợ.

 

[Kiều Mạnh]

Bạn thử vầy xem... Dữ liệu là theo code của bạn nha. Sai gì thì tự sửa cho đúng...và thêm thắt code xóa gì đó của bạn nữa. Tôi chỉ giúp bạn cái việc lưu dữ liệu vào File đang đóng

Public Sub GPE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("IN-OUT")
    Shift = .Range("I9").Value
    inout = .Range("H14").Value
    code = .Range("H16").Value
    qty = .Range("H18").Value
    Location = .Range("H20").Value
    Status = .Range("H22").Value
    pur = .Range("H24").Value
    remark = .Range("H26").Value
    Pic = .Range("H30").Value
    Name = .Range("U16").Value
End With
Arr = Array(Shift, inout, code, Name, qty, Status, Location, pur, remark, Pic)
With Application.Workbooks.Open(ThisWorkbook.Path & "\Database.xlsx")
    .Sheets(1).Range("C65000").End(3).Offset(1).Resize(, 10).Value = Arr
    .Close True
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

cách này Transpose ...Cot To dong hay đó

 

[Kiều Mạnh]

Cái này là mình nạp vào mảng... Thì code ở trên hiển nhiên nó tự hiểu là mảng ngang rồi. (cứ xem như mảng 1 dòng, nhiều cột)..Chẳng cần Transpose gì sất...Cứ resize mảng đích bằng với mảng nguồn cho đúng số cột thì đập vào sheet là nó chạy thôi mà....

ok Bạn cách này Mạnh mới thấy cách viết lần đầu rất ngắn gọn

 

[gh0st02]

Bạn thử vầy xem... Dữ liệu là theo code của bạn nha. Sai gì thì tự sửa cho đúng...và thêm thắt code xóa gì đó của bạn nữa. Tôi chỉ giúp bạn cái việc lưu dữ liệu vào File đang đóng

Public Sub GPE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("IN-OUT")
    Shift = .Range("I9").Value
    inout = .Range("H14").Value
    code = .Range("H16").Value
    qty = .Range("H18").Value
    Location = .Range("H20").Value
    Status = .Range("H22").Value
    pur = .Range("H24").Value
    remark = .Range("H26").Value
    Pic = .Range("H30").Value
    Name = .Range("U16").Value
End With
Arr = Array(Shift, inout, code, Name, qty, Status, Location, pur, remark, Pic)
With Application.Workbooks.Open(ThisWorkbook.Path & "\Database.xlsx")
    .Sheets(1).Range("C65000").End(3).Offset(1).Resize(, 10).Value = Arr
    .Close True
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Tuyệt với ông mặt trời !
Mình sẽ chỉnh sửa lại 1 chút là phù hợp.
Cảm ơn rất nhiều !