Tự động copy có điều kiện sang sheet khác

[thanhtungpt1]

Mình có file DS hoc sinh.xls . Sheet1 là danh sách học sinh toàn khối . Mình muốn tự động cập nhật có điều kiện sang các sheet khác . Cụ thể : Em nào ở lớp 6/1 thì tự động cập nhật sang sheet 6/1 , Em nào ở lớp 6/2 thì tự động cập nhật sang sheet 6/2 .... nếu Sheet1 là danh sách học sinh toàn khối có chỉnh sửa thì các sheet kia cũng tự động cập nhật . Rất mong các bạn giúp đỡ , cám ơn rất nhiều !
có File đính kèm :

 

[concogia]

Bạn Concogia vui lòng giúp mình giải quyết lại vấn đề này nhé. CÁm ơn bạn nhiều
Lọc và Sum dữ liệu theo điều kiện

Xin giúp đỡ tôi cách lọc dự liệu và Sum trong "sheet CT TToan" theo điều kiện thanh lý sau đó SUM cột số tiền thanh toán theo số Hợp đồng thành tổng số tiền đã thanh toán và copy sang Sheet "tong hop" theo mẫu đã tạo. Hợp Đồng nào đã thanh lý được đánh dấu "X" thì không xuất hiện trong "Sheet Tong Hop"

các điều kiện sau:
1. Hợp đồng nào đánh dấu "x" đã thanh lý thì không xuất hiện trong "Sheet Tong hop"
2. Sum cột số tiền thanh toán theo Số Hợp đồng thành Tổng số tiền đã thanh toán
3. Được phép chèn thêm cột vào giữa cá cột khi có nhu cầu phát sinh trong Sheet"TT KH" và Sheet"CT TToan" để tính tóan lại giá trị hợp đồng hoặc để làm rõ thêm vấn đề.
CÁM ƠN NHIỀU.
​

Thật tình mình cũng chưa thông cái "zụ" chèn cột, "bi' giờ còn "lượm" thêm một em ở sheet TT KH nữa, chơi khó nhau quá
Trong bài nếu có chèn bạn chèn ở cột G nhé, vài ba cột cũng được

Private Sub CommandButton2_Click()
  Dim Vung As Range, Ws As Worksheet, I As Integer, VungA As Range, J As Integer
    Set Ws = Sheets("tong hop")
      Ws.Range(Ws.[a6], Ws.[a6].End(xlDown)).Resize(, 13).Clear
        Set Vung = [a5].CurrentRegion
          I = Vung.Columns.Count
            With Vung
                .AutoFilter Field:=I, Criteria1:=" "
                .Offset(1).Resize(, I - 4).SpecialCells(12).Copy Ws.[a6]
                .Resize(, 1).Offset(1, I - 3).Copy Ws.[n6]
                .AutoFilter
            End With
                Set VungA = Ws.Range(Ws.[b6], Ws.[b6].End(xlDown))
                With VungA
                    .Offset(0, 6).FormulaR1C1 = "=SUMIF(shd,RC[-6],tien)"
                    .Offset(0, 6).Value = .Offset(0, 6).Value
                    .Offset(0, 12).Clear
                End With
                    For J = VungA.Rows.Count To 1 Step -1
                        If Application.WorksheetFunction.CountIf(VungA, VungA(J)) > 1 Then Ws.Rows(J + 5).Delete
                    Next
    VungA.Offset(0, -1) = [row(A:A)]
    VungA.Offset(0, 5).FormulaR1C1 = "=INDEX(tong,MATCH(RC[-5],hd,0))": VungA.Offset(0, 5).Value = VungA.Offset(0, 5).Value
    VungA.Offset(0, 7).FormulaR1C1 = "=RC[-2]-RC[-1]": VungA.Offset(0, 7).Value = VungA.Offset(0, 7).Value
End Sub

Mình nghĩ bảng của bạn tạo ra bạn cứ dự trù cho đủ cột, lúc lọc mình bỏ đi bao nhiêu cột cũng được mà ( bỏ dễ hơn chèn thêm)
Nói vui thôi, có gì bàn tiếp
(Thầy Sa va Thầy Sealand trợ giúp bạn bài này là Thầy mình í)
Híc

 

[hung1]

Cám ơn bạn Concogia.
có gì nhở bạn giúp thêm nhé

 

[nvthanhdb]

Các bạn giúp mình vấn đề này với
Mình có 1 bảng như sau
A1 A2 A3 A4 A5
AABBC x
CCDDC X
mình muốn tạo vòng lặp để trích 2 ký tự đầu cột A1 sang cột A3, và 2 ký tự tiếp theo sang cột A4 và ký tự cuối cùng sang cột A5
Nếu có thể được thì bạn giải thích giúp mình các lênh dùng trong đó với nhé
Cám ơn trước

 

[ngoctuan277]

Lọc danh sách sang từng sheet cũng đơn giản thôi, nhưng nếu sử dụng công thức thì trong bảng tính của bạn sẽ 'hơi bị nhiều" công thức, mình đề nghị một cách lọc bằng VBA, bạn nhập, hoặc sửa chữa, thêm bớt dữ liệu xong thì bấm cái nút nằm kế bên dữ liệu sẽ đưa về các sheet
Thân

Mình thấy cách của bạn hay qúa nhưng không sao sửa để áp dụng bài này được. Mong bạn giúp mình nhé. mình gửi flie đính kèm, nếu có kết quả, xin bạn đẩy thẳng về mail của mình nhé, vì khi thoát ra khỏi diễn đàn thì khó tìm lại bài giải của bạn được. Cảm ơn thật nhiều. Mail: Ngoctuan277@gmail.com

 

[tqv012006]

Nhân đây cũng kính nhờ các cao thủ giúp em giải quyết bài toàn này với ạ, em đang cần lắm.

Mục đích: Khi nhấn button "Update" sẽ copy các cell thỏa mãn điều kiện như sau:
Copy cell H6 tại sheet "NHACLICH" sang cell F4 vì F4 nằm ở dòng 1(mảng CSDL!A4:H1000) = giá trị tại NHACLICH!J6. Tương tự đối với NHACLICH!H7 sẽ được copy sang CSDL!F6;NHACLICH!I6 sẽ được copy sang CSDL!G4; NHACLICH!I7 sẽ được copy sang CSDL!G6.
VBA em viết như sau, xin các anh sửa lỗi giùm:

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim iValueCopy1 As String, iValueCopy2 As String
For i = 1 To 100
j = Worksheets("Sheet1").Range("J5").Offset(i)
iValueCopy1 = Worksheets("Sheet1").Range("H5").Offset(i)
iValueCopy2 = Worksheets("Sheet1").Range("I5").Offset(i)
Worksheets("Sheet2").Range("F3").Offset(j) = iValueCopy1
Worksheets("Sheet2").Range("G3").Offset(j) = iValueCopy2
Worksheets("Sheet2").Range("A1").Select
Next i
End Sub

Xin cám ơn anh chị trước.
File đính kèm : http://www.mediafire.com/file/1l936h...0LAM%20VIEC.7z

 

[duhero]

Cho em hỏi tý, em có 1 file chứa danh sách có 1 cột được đánh true hoặc false bây giờ em muốn COPY hết từ dòng false đầu tiên (1 theo số tứ tự) đến dòng false thứ 9 và lấy thêm dòng có giá trị = TRUE. (vì e để dòng chia hết cho 10 = TRUE) copy ra 1 sheet mới. Em gửi file đính kèm ạ
.Cứ mỗi lần đến dòng TRUE thứ 10 này thì lặp tiếp tục

 

[nhapmon]

bài của bạn được trả lời ở đây
http://www.giaiphapexcel.com/forum/...h-bảng-sản-phẩm-giới-hạn-mỗi-bảng-10-sản-phẩm

anh Quang Hai xem bài mới này có sáng sủa hơn ko, giúp bạn áy với, và cho tôi học hỏi thêm về cách viết code
tks

 

[thuong truong]

Thanks ban concogia vì file excel của bạn rất hay. Minh cũng có 1 bài toán tương tự nhưng chưa hoàn thiện được. Mong ban giúp mình đoạn code nhé! Mình sẽ gửi bạn file của mình

 

[ngothaicuong]

Theo như bạn nói thì để đơn giản hơn mình làm một mẫu chung, sau đó nếu muốn xem DS lớp nào thì chọn lớp đó

Bạn xem file đính kèm thử có giúp gì được cho bạn không nha

Chúc bạn thành công./.

Cho mình kết hợp hỏi thêm nhé.
Nếu như mình muốn các cột : " Họ tên"; "Chổ ở" "Điện thoại" Nằm ở các vị trí khác được không ... Xin cảm ơn

 

[huyvikoda]

gới bạn giao_nguyenthat
mình đã xem câu trả lời của bạn cho câu hỏi của bạn thanhtungpt1 nhưng mình áp dụng vào bài tập của mình thì không được do mình chưa hiểu rõ lắm.
nhờ bạn chỉ giúp bài tập mình với.
mình muốn trích lọc dữ liệu từ master lish sang các sheet khác với điều kiện là theo code line (tệp đính kèm)
rất mong bạn giúp đỡ. thank bạn nhiều

 

[nguyen trunghoa]

Tôi có 1 file access đang thực hiện, cần mọi người giúp đỡ, dưới đây là liên kết:

Phan cong 2020.accdb

drive.google.com

Tôi cần viết code cho form F1-Day: nếu cột "MaGV" trùng thì ghép lại 1 dòng với điều kiện cột "tenmon" các môn cách nhau dấu phẩy "," còn cột "HKI_1-14" cộng các giá trị lại.
Rất cám ơn!

 

[nguyen trunghoa]

Tôi có 1 file access đang thực hiện, cần mọi người giúp đỡ, dưới đây là liên kết:
Phan cong 2020.accdb

drive.google.com
Tôi cần viết code cho form F1-Day: nếu cột "MaGV" trùng thì ghép lại 1 dòng với điều kiện cột "tenmon" các môn cách nhau dấu phẩy "," còn cột "HKI_1-14" cộng các giá trị lại.
Rất cám ơn!