toangiaphat
Thành viên hoạt động



- Tham gia
- 6/5/09
- Bài viết
- 136
- Được thích
- 3
Thực hiện theo ý bạn, nhưng tôi thấy hơi bị kỳ..... Ai mà lại đi làm công việc nàyMình có file đính kèm với mục đích như sau:
Tại sheet1: tạo 1 form hiện ra. khi mình gõ vùng dữ liệu. ví dụ: A7:A10, thì nó sẽ copy và paste vào sheet2 bắt đầu từ ô A2.
CÁM ƠN CÁC BẠN!
Có lẽ bạn nhớ nhầm thì phải, Data validation chỉ có moột cột thôi, không thể tạo 2 cột được đâu. Nếu muốn có 2 cột trở lên thì phải can thiệp tới code thôi.Sẵn Bạn cho mình hỏi luôn nhé. Mình gà cái tạo list wa. Mình thấy trong Data Validation tạo list chỉ hiện có một cột để xem. Mình nhớ Excel 2000 cho xem 2 cột luôn. Còn Excel 2010 làm ntn?
Cám ơn Bạn!
Bạn nói vậy mình chưa hiểu, phải nói cụ thể mới được, mục đích ra sao? (Bạn nói sheet1, sheet2 gì đó nhưng trong file bạn tên sheet lại khác tôi không hiểu đâu là sheet1 đâu là sheet2)Mình đang tìm hiểu Combo box để giải quyết vấn đề đó.
Bác cho mình hỏi.
Ví dụ: Mình có 2 sheet. Sheet 2 tham chiếu từ sheet1. Nhưng khi mình xóa dữ liệu ở sheet1 thì kết quả sheet2 vẫn ko mất. Và sau khi mình nhập liệu tiếp ở sheet1 thì sheet2 vẫn tiếp tục tham chiếu tiếp được.
Mình định dùng Code, để copy kết quả qua, nhưng ngày tiếp theo sau khi nhập sheet1 làm sau để sheet2 update mà ko mất kết quả củ.
Nhờ bạn giúp giùm nha!
Cái Vung.text chính là tên textbox trong Form (chính là ô để nhập địa chỉ của bạn đó), khi copy qua file của bạn thì file của bạn đã có textbox tên Vung chưa? nếu chưa có thì báo lỗi là đúng rồi.Mình sử dụng code của bạn để sử dụng cho file khác, mình đổi tên sheet lại nhưng nó báo lỗi "Vung.Text?
Bạn chỉ mình với
Bạn nói vậy mình chưa hiểu, phải nói cụ thể mới được, mục đích ra sao? (Bạn nói sheet1, sheet2 gì đó nhưng trong file bạn tên sheet lại khác tôi không hiểu đâu là sheet1 đâu là sheet2)
SHEET1 LÀ SHEET BÊN TRÁI, SHEET 2 LÀ SHEET BÊN PHẢI.
Bạn chỉ mình phân vùng để chạy được code trên luôn nhé
CÁM ƠN BẠN!
Vậy bạn sửa lệnh của nút Copy như sau:
Mã:Private Sub CommandButton1_Click() Sheet1.Range(Vung.Text).Copy Sheet2.Range("A" & (Sheet2.Range("A65000").End(xlUp).Row + 1)) Unload Me End Sub
Bạn gửi file cho mình có 2 sheet còn file của bạn một mâm sheet luôn, mình viết code trên file thực tế, bạn áp dụng vào file khác phải tự biết chỉnh sửa chứ sao lại đổ thừa. Tôi sẽ giúp bạn lần nửa nếu muốn gửi file gốc thực của bạn nếu không tôi bye topic này.Ban giúp mình báo lỗi thế này:
Buồn bản thân thiệt chứ. Mình vẫn ko làm được. (Tự học VBA cả tuần rồi mà cứ rói nùi)
Bạn gửi file cho mình có 2 sheet còn file của bạn một mâm sheet luôn, mình viết code trên file thực tế, bạn áp dụng vào file khác phải tự biết chỉnh sửa chứ sao lại đổ thừa. Tôi sẽ giúp bạn lần nửa nếu muốn gửi file gốc thực của bạn nếu không tôi bye topic này.
Đã nói là lỗi đó chỉ khắc phục được khi thấy dữ liệu thật.
Ý này nhiêu khê lắm nghe, vẫn thực hiện được nhưng bạn suy nghĩ cho kỷ mới thực hiện, khi bắt tay vào sẽ nhiều phát sinh lắm đây (Tôi chạy vấn đề này). Nếu muốn xóa nó tự mất thì dùng hàm cho nó nhẹ.- Bạn nghiêm cứu thêm giúp mình, nếu nhập Tiền phát sinh thì TONGKET sẽ chạy theo, nhưng khi xoa bên PhatSinh thì ko mất. Khi mình nhập mới ở PhatSinh thì Tong Ket tiếp tục update nhưng ko mất dữ liệu củ ở dong trên của cột Thanh Tien.
Nếu yêu cầu thứ 2 dị quá thì bạn bỏ qua nhé.
CÁM ƠN BẠN!
Hôm nay, lể mà bạn vẫn giành thời gian cho gpe. Mình cảm ơn nhé. mình cứ nghĩ ngày mốt bạn mới hồi âm. (Mặc dù sáng giờ vẫn cứ trong)Ý này nhiêu khê lắm nghe, vẫn thực hiện được nhưng bạn suy nghĩ cho kỷ mới thực hiện, khi bắt tay vào sẽ nhiều phát sinh lắm đây (Tôi chạy vấn đề này). Nếu muốn xóa nó tự mất thì dùng hàm cho nó nhẹ.
Trong sheet "PHAT SINH" bạn quét chọn vùng cần copy (ví dụ chọn vùng từ E2:G3), sau đó nháy vào nút lệnh trên sheet, chọn sheet "TONG KET" để xem kết quả.Hôm nay, lể mà bạn vẫn giành thời gian cho gpe. Mình cảm ơn nhé. mình cứ nghĩ ngày mốt bạn mới hồi âm. (Mặc dù sáng giờ vẫn cứ trong)
Bạn hướng dẫn sử dụng nha. mình ko hiểu?
Trong sheet "PHAT SINH" bạn quét chọn vùng cần copy (ví dụ chọn vùng từ E2:G3), sau đó nháy vào nút lệnh trên sheet, chọn sheet "TONG KET" để xem kết quả.