Hỏi về cập nhật dữ liệu giữa 2 sheet qua form?

[trungkienn]

Nhờ các chuyên gia chỉ giáo.

Các anh chị trên GE cho em hỏi có cách nào để làm như thế nay không a ?
Em có 2 sheet, sheet 1 em coi như 1 cái form, sheet 2 để chứa dữ liệu nhập từ form.
Ví dụ như em đặt công thức ở ô A1 của sheet 2 la bằng giá trị A1 ở sheet 1. Khi em gõ vào A1 ở sheet 1 một dữ liệu nào đó (số, chữ..) thì đương nhiên A1 ở sheet 2 nó bằng giá trị đó. Nhưng có cách nào để em gõ giá trị khác ở ô A1 sheet 1 nhưng giá trị ô A1 ở sheet 2 không thay đổi mà giá trị mới gõ nó nằm ở A2 sheet 2.

Hơi lăng ngoằng, khó hiểu mông các anh chị giúp đỡ.

Xin trân trọng cảm ơn.

 

[tedaynui]

Chào bạn
Bạn xem File ví dụ có đúng ý muốn không nhé.

TDN

 

[SA_DQ]

Thêm 1 tham khảo, nha!

Option Explicit
[COLOR="Blue"]'Chép Từ 1 Cell của Sheets("S1") sang dòng cuối của cột "A" của Sheets("S2")[/COLOR]
[b]Private Sub Worksheet_Change(ByVal Target As Range)[/b]
   If Not Intersect(Target, Range("B2")) Is Nothing Then
         Sheets("S2").Range("A" & Sheets("S2").Range("A65432").End(xlUp).Row + 1) = Target
    End If
    ActiveCell.Offset(-1).Select
[b]End Sub [/b]

 

[trungkienn]

Cảm ơn các anh chị đã giúp đỡ.
Anh tedaynui làm ơn chỉ cho em công thức để em thực hiện vào files của em duoc khong ạ
Em có 2 sheet, sheet 1 la cái phiếu xuất kho, còn sheet 2 là bảng tổng hợp các loại vật tư mà em đã xuất. Nếu bình thường thì em dùng hàm vlookup là em cung tổng hợp được nhưng nó có nhược điểm là mỗi lần in phiếu xuất thi phải copy cái phiếu xuất khác chứ không nhập vào 1 cái phiếu xuất được có nghĩa là phải có rất nhiều phiếu xuất.

Các anh chị xem xét giải quyết giúp.

Trân trọng.

 

[tedaynui]

Anh tedaynui làm ơn chỉ cho em công thức để em thực hiện vào files của em duoc khong ạ
Em có 2 sheet, sheet 1 la cái phiếu xuất kho, còn sheet 2 là bảng tổng hợp các loại vật tư mà em đã xuất. Nếu bình thường thì em dùng hàm vlookup là em cung tổng hợp được nhưng nó có nhược điểm là mỗi lần in phiếu xuất thi phải copy cái phiếu xuất khác chứ không nhập vào 1 cái phiếu xuất được có nghĩa là phải có rất nhiều phiếu xuất.

File ví dụ trên không dùng công thức, dùng VBA bạn à. Bạn có thể vào VBA (bằng Alt+F11) để tham khảo. Hoặc bạn gởi file và nêu rõ yêu cầu trong File, mình sẽ giúp bạn.

TDN

 

[trungkienn]

Xin cảm ơn sự nhiệt tình giúp đỡ của bạn.
Bạn có thể cho minh địa chỉ email để mình attach file cho bạn được không ? Mình không attach file trong diễn đàn được.

Trân trọng.

_________________

Bạn xem hướng dẫn cách post file lên diễn đàn tại đây.

 

[anhtuan1066]

Bạn gữi mail cho tôi: yeulachet1066@yahoo.com
Tôi sẽ post file giùm bạn
ANH TUẤN

 

[trungkienn]

Xin cảm ơn anhtuan1066, minh đã gửi file cho ban.

Trung Kien

 

[anhtuan1066]

Đây là file nhờ gữi lên giùm của Trungkienn
Các bạn xem thử
ANH TUẤN

 

[SoiBien]

Bạn TrungKien xem nhé.

 

[SA_DQ]

(hưa thấy giờ xuất bến thực tế lấy ở Cells nào cả?!

(/ì giờ xuất bến theo hợp đồng, bạn đã truy xuất từ Sheets("DuLieu") sang Sheets("Giay Bien Nhan") = hàm VLOOKUP()
(/ậy giờ xuất bến thực tế lấy luôn giờ hiện hành?!

 

[SoiBien]

(/ì giờ xuất bến theo hợp đồng, bạn đã truy xuất từ Sheets("DuLieu") sang Sheets("Giay Bien Nhan") = hàm VLOOKUP()
(/ậy giờ xuất bến thực tế lấy luôn giờ hiện hành?!

Hì hì, chắc giờ thực tế chừa lại để gõ vô bằng tay quá anh, hoặc là mấy cha bảo vệ đứng ngoài cửa, cầm cái biên lai này (liên 3) ghi giờ thực tế.

 

[trungkienn]

Rất cảm ơn bạn SoiBien.

Các bạn siêu thế, em Alt+F11 nhưng nhìn vào cũng chẳng hiểu gì, chắc đây là kiến thức về lập trình rồi.
Mình sẽ cố gắng tìm hiểu để ứng dụng nó cho công việc.

Một lần nữa xin cảm ơn và bày tỏ lòng ngưỡng mộ về kiến thức, trình độ tin học các bạn cũng như sự sẵn lòng chia sẻ giúp đỡ của các bạn.

Chúc các bạn sức khỏe, thành đạt và hạnh phúc.
Chúc GPE ngày càng lớn mạnh để đóng góp cho cộng đồng.

Nguyễn Trung Kiên.

 

[SoiBien]

à khoan, dòm lại thì file bạn chắc là bị virus gì gì đó wên rồi, nhiều name quá, xóa giùm bạn rồi, lấy cái nì mà xài.

còn muốn biết về lập trình thì bạn cứ đọc chữ ký mình nhé, và tham khảo các bài khác trên GPE, chắc chắn sẽ làm được mà.

Thân.

 

[trungkienn]

Vâng xin cảm ơn bạn SoiBien. Nhân tiện bạn có thể kết hợp cái leenjg Print vào cái nút lệnh "Lưu giấy BN" và gán cho nó một cái phím tắt giống như kiểu Ctrl+... gì đó được không bạn. Nếu được bạn giúp mình nhé.

Trân trọng.

 

[SoiBien]

Vâng xin cảm ơn bạn SoiBien. Nhân tiện bạn có thể kết hợp cái leenjg Print vào cái nút lệnh "Lưu giấy BN" và gán cho nó một cái phím tắt giống như kiểu Ctrl+... gì đó được không bạn. Nếu được bạn giúp mình nhé.

Trân trọng.

Bạn dùng tổ hợp Ctrl+Shift+L nhé.

Tôi có thêm chức năng Lưu bảng tính trước khi in, nếu không muốn sử dụng thì bạn cứ vào module1 bỏ dòng thisworkbook.save đi nhé.

Thân

 

[trungkienn]

Bạn làm giúp mình cho tại cái ô "Số: 00001" Sau khi mình gõ một số bất kỳ nào đó rối sau mỗi lần mình Ctrl+Shift+L cái số đó tự động công thêm 1 đơn vị nữa được không ?

Rất cảm ơn bạn.

 

[SoiBien]

Bạn làm giúp mình cho tại cái ô "Số: 00001" Sau khi mình gõ một số bất kỳ nào đó rối sau mỗi lần mình Ctrl+Shift+L cái số đó tự động công thêm 1 đơn vị nữa được không ?

Rất cảm ơn bạn.

Mình làm cho bạn rồi nè, tuy nhiên, ở ô số bây giờ giá trị bạn nhập số luôn nhé, không dùng dấu ' đằng trước.

Thân.

à, thanks thì bạn nhấn nút Thanks đó. hì hì.

 

[trungkienn]

Xin lỗi, bạn soibien có thể cho minh địa chỉ email của bạn được không ?
Mình muốn nhờ bạn giúp mình thực hiện một cai file khác.

Rất mong bạn giúp đỡ.

 

[trungkienn]

Ban Soibien oi tôi đã gửi email cho bạn theo địa chỉ soibien@yahoo.com, bạn xem rồi giúp tôi vơi.

Thanks.